← Index
NYTProf Performance Profile   « block view • line view • sub view »
For mentat.storage.mongo.pl
  Run on Tue Jun 24 09:58:41 2014
Reported on Tue Jun 24 09:59:14 2014

Filename/usr/local/lib/site_perl/Log/Filter/Severity.pm
StatementsExecuted 14 statements in 276µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11111µs15µsLog::Filter::Severity::::BEGIN@2Log::Filter::Severity::BEGIN@2
1119µs9µsLog::Filter::Severity::::BEGIN@78Log::Filter::Severity::BEGIN@78
1117µs44µsLog::Filter::Severity::::BEGIN@70Log::Filter::Severity::BEGIN@70
1117µs12µsLog::Filter::Severity::::BEGIN@3Log::Filter::Severity::BEGIN@3
1116µs34µsLog::Filter::Severity::::BEGIN@79Log::Filter::Severity::BEGIN@79
1114µs4µsLog::Filter::Severity::::BEGIN@75Log::Filter::Severity::BEGIN@75
1112µs2µsLog::Filter::Severity::::ENDLog::Filter::Severity::END
0000s0sLog::Filter::Severity::::_initLog::Filter::Severity::_init
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Log::Filter::Severity;
2227µs218µs
# spent 15µs (11+3) within Log::Filter::Severity::BEGIN@2 which was called: # once (11µs+3µs) by Log::Loger::BEGIN@123 at line 2
use strict;
# spent 15µs making 1 call to Log::Filter::Severity::BEGIN@2 # spent 3µs making 1 call to strict::import
3260µs217µs
# spent 12µs (7+5) within Log::Filter::Severity::BEGIN@3 which was called: # once (7µs+5µs) by Log::Loger::BEGIN@123 at line 3
use warnings;
# spent 12µs making 1 call to Log::Filter::Severity::BEGIN@3 # spent 5µs making 1 call to warnings::import
4
5################################################################################
6#
7# DOCUMENTATION SECTION
8#
9################################################################################
10
11=head1 NAME
12
13Log::Filter::Severity - Accepts messages coming with certain severities
14
15=head1 SYNOPSIS
16
17 use Log::Filter::Severity;
18
19 my $filter = new Log::Filter::Severity('EMERG');
20
21 my ($result, $continue) = $filter->accept($source, $severity, $message);
22
23=head1 DESCRIPTION
24
25This module accepts messages, whose SEVERITY value is in the given set
26of acceptable values.
27
28There are two flags, that are altering the avaluation process, see
29Log::Filter::Set for details.
30
31=head1 USAGE
32
33=head1 BUGS
34
35=head1 SUPPORT
36
37=head1 AUTHOR
38
39Jan Mach
40Cesnet, z.s.p.o
41jan.mach@cesnet.cz
42http://www.cesnet.cz
43
44=head1 COPYRIGHT
45
46This program is free software; you can redistribute
47it and/or modify it under the same terms as Perl itself.
48
49The full text of the license can be found in the
50LICENSE file included with this module.
51
52
53=head1 SEE ALSO
54
55perl(1).
56
57=head1 FUNCTION REFERENCE
58
59=over 4
60
61=cut
62
63################################################################################
64#
65# INITIALIZATION AND CLEANUP SECTION
66#
67################################################################################
68
69#-- Perl core modules ---------------------------------------------------------#
70228µs280µs
# spent 44µs (7+37) within Log::Filter::Severity::BEGIN@70 which was called: # once (7µs+37µs) by Log::Loger::BEGIN@123 at line 70
use Carp;
# spent 44µs making 1 call to Log::Filter::Severity::BEGIN@70 # spent 37µs making 1 call to Exporter::import
71
72#-- Perl CPAN modules ---------------------------------------------------------#
73
74#-- Custom application modules ------------------------------------------------#
75227µs14µs
# spent 4µs within Log::Filter::Severity::BEGIN@75 which was called: # once (4µs+0s) by Log::Loger::BEGIN@123 at line 75
use Log::Filter::Set;
# spent 4µs making 1 call to Log::Filter::Severity::BEGIN@75
76
77#-- Module initializations ----------------------------------------------------#
78
# spent 9µs within Log::Filter::Severity::BEGIN@78 which was called: # once (9µs+0s) by Log::Loger::BEGIN@123 at line 82
BEGIN {
79230µs261µs
# spent 34µs (6+28) within Log::Filter::Severity::BEGIN@79 which was called: # once (6µs+28µs) by Log::Loger::BEGIN@123 at line 79
use vars qw($VERSION @ISA);
# spent 34µs making 1 call to Log::Filter::Severity::BEGIN@79 # spent 28µs making 1 call to vars::import
8028µs $VERSION = '0.01';
81 @ISA = ('Log::Filter::Set');
82191µs19µs}
# spent 9µs making 1 call to Log::Filter::Severity::BEGIN@78
83
84
85#-- Module clean-up code (global destructor) ----------------------------------#
8612µs
# spent 2µs within Log::Filter::Severity::END which was called: # once (2µs+0s) by main::RUNTIME at line 0 of mentat.storage.mongo.pl
END {
87
88}
89
90################################################################################
91#
92# CONSTANTS AND GLOBAL VARIABLES DEFINITION SECTION
93#
94################################################################################
95
96#-- Constants -----------------------------------------------------------------#
97
98#-- Static public class variables (our) ---------------------------------------#
99
100#-- Static protected class variables (my) -------------------------------------#
101
102################################################################################
103#
104# IMPLEMENTATION SECTION
105#
106################################################################################
107
108=item _init() [PROTECTED]
109
110 Usage : Used from constructor as follows: return $self->_init(@_);
111 Purpose : Initialize newly created filter instance
112 Returns : $self
113 Arguments : space separated string|array reference $value_set - set of acceptable values
114 string $flags - flags separated with spaces
115 i - invert the result
116 r - required
117 Throws : Croaks, if invoked on class or invalid arguments given
118 Comments : Internally used by parent`s new() method
119 See Also :
120
121=cut
122
123sub _init {
124 my $self = shift;
125 croak ((caller(0))[3] . ": instance method invoked on class") unless ref $self;
126
127 return $self->SUPER::_init('severity', @_);
128}
129
130=pod
131
132=back
133
134=cut
135
13612µs1;