← Back to branch summary

~percona-toolkit-dev/percona-toolkit/pt-mysql-summary-Blank-InnoDB-Section-for-5.6-1254233

« back to all changes in this revision

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

  • Committer: Daniel Nichter
  • Date: 2013-06-19 21:23:55 UTC
  • mfrom: (582.1.5 release-2.2.3)
  • Revision ID: daniel@percona.com-20130619212355-nf6bmx23j3b76afe
Tags: 2.2.3
Merge release-2.2.3.

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
# ###########################################################################