← Back to branch summary

~percona-toolkit-dev/percona-toolkit/release-2.2.13

« back to all changes in this revision

Viewing changes to lib/Percona/WebAPI/Resource/LogEntry.pm

  • Committer: Daniel Nichter
  • Date: 2014-05-30 01:09:13 UTC
  • mfrom: (598.5.6 release-2.2.8)
  • Revision ID: daniel@percona.com-20140530010913-4wep0en37aa4vvok
Merge release-2.2.8.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Percona/WebAPI/Resource/LogEntry.pm
1
 
# This program is copyright 2013 Percona Inc.
2
 
# Feedback and improvements are welcome.
3
 
#
4
 
# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
5
 
# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
6
 
# MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
7
 
#
8
 
# This program is free software; you can redistribute it and/or modify it under
9
 
# the terms of the GNU General Public License as published by the Free Software
10
 
# Foundation, version 2; OR the Perl Artistic License.  On UNIX and similar
11
 
# systems, you can issue `man perlgpl' or `man perlartistic' to read these
12
 
# licenses.
13
 
#
14
 
# You should have received a copy of the GNU General Public License along with
15
 
# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
16
 
# Place, Suite 330, Boston, MA  02111-1307  USA.
17
 
# ###########################################################################
18
 
# Percona::WebAPI::Resource::LogEntry package
19
 
# ###########################################################################
20
 
{
21
 
package Percona::WebAPI::Resource::LogEntry;
22
 
 
23
 
use Lmo;
24
 
 
25
 
has 'pid' => (
26
 
   is       => 'ro',
27
 
   isa      => 'Int',
28
 
   required => 1,
29
 
);
30
 
 
31
 
has 'service' => (
32
 
   is       => 'ro',
33
 
   isa      => 'Str',
34
 
   required => 0,
35
 
);
36
 
 
37
 
has 'data_ts' => (
38
 
   is       => 'ro',
39
 
   isa      => 'Int',
40
 
   required => 0,
41
 
);
42
 
 
43
 
has 'entry_ts' => (
44
 
   is       => 'ro',
45
 
   isa      => 'Str',
46
 
   required => 1,
47
 
);
48
 
 
49
 
has 'log_level' => (
50
 
   is       => 'ro',
51
 
   isa      => 'Int',
52
 
   required => 1,
53
 
);
54
 
 
55
 
has 'message' => (
56
 
   is       => 'ro',
57
 
   isa      => 'Str',
58
 
   required => 1,
59
 
);
60
 
 
61
 
no Lmo;
62
 
1;
63
 
}
64
 
# ###########################################################################
65
 
# End Percona::WebAPI::Resource::LogEntry package
66
 
# ###########################################################################