← Index
NYTProf Performance Profile   « line view »
For /Users/timbo/perl5/perlbrew/perls/perl-5.18.2/bin/perlcritic
  Run on Sat Mar 19 22:12:22 2016
Reported on Sat Mar 19 22:14:11 2016

Filename/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/Perl/Critic/Exception/Configuration/Option.pm
StatementsExecuted 12 statements in 231µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11124µs24µsPerl::Critic::Exception::Configuration::Option::::BEGIN@10Perl::Critic::Exception::Configuration::Option::BEGIN@10
11116µs20µsPerl::Critic::Exception::Configuration::Option::::BEGIN@12Perl::Critic::Exception::Configuration::Option::BEGIN@12
1119µs22µsPerl::Critic::Exception::Configuration::Option::::BEGIN@18Perl::Critic::Exception::Configuration::Option::BEGIN@18
1119µs247µsPerl::Critic::Exception::Configuration::Option::::BEGIN@20Perl::Critic::Exception::Configuration::Option::BEGIN@20
1117µs18µsPerl::Critic::Exception::Configuration::Option::::BEGIN@11Perl::Critic::Exception::Configuration::Option::BEGIN@11
0000s0sPerl::Critic::Exception::Configuration::Option::::errorPerl::Critic::Exception::Configuration::Option::error
0000s0sPerl::Critic::Exception::Configuration::Option::::full_messagePerl::Critic::Exception::Configuration::Option::full_message
0000s0sPerl::Critic::Exception::Configuration::Option::::messagePerl::Critic::Exception::Configuration::Option::message
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1##############################################################################
2# $URL$
3# $Date$
4# $Author$
5# $Revision$
6##############################################################################
7
8package Perl::Critic::Exception::Configuration::Option;
9
10249µs124µs
# spent 24µs within Perl::Critic::Exception::Configuration::Option::BEGIN@10 which was called: # once (24µs+0s) by base::import at line 10
use 5.006001;
11228µs229µs
# spent 18µs (7+11) within Perl::Critic::Exception::Configuration::Option::BEGIN@11 which was called: # once (7µs+11µs) by base::import at line 11
use strict;
# spent 18µs making 1 call to Perl::Critic::Exception::Configuration::Option::BEGIN@11 # spent 11µs making 1 call to strict::import
12228µs224µs
# spent 20µs (16+4) within Perl::Critic::Exception::Configuration::Option::BEGIN@12 which was called: # once (16µs+4µs) by base::import at line 12
use warnings;
# spent 20µs making 1 call to Perl::Critic::Exception::Configuration::Option::BEGIN@12 # spent 4µs making 1 call to warnings::import
13
141300nsour $VERSION = '1.121';
15
16#-----------------------------------------------------------------------------
17
18236µs234µs
# spent 22µs (9+12) within Perl::Critic::Exception::Configuration::Option::BEGIN@18 which was called: # once (9µs+12µs) by base::import at line 18
use Perl::Critic::Exception::Fatal::Internal;
# spent 22µs making 1 call to Perl::Critic::Exception::Configuration::Option::BEGIN@18 # spent 12µs making 1 call to Exporter::import
19
20
# spent 247µs (9+238) within Perl::Critic::Exception::Configuration::Option::BEGIN@20 which was called: # once (9µs+238µs) by base::import at line 26
use Exception::Class ( # this must come after "use P::C::Exception::*"
211200ns 'Perl::Critic::Exception::Configuration::Option' => {
22 isa => 'Perl::Critic::Exception::Configuration',
23 description => 'A problem with an option in the Perl::Critic configuration, whether from a file or a command line or some other source.',
24 fields => [ qw{ option_name option_value message_suffix } ],
25 },
26187µs2247µs);
# spent 247µs making 1 call to Perl::Critic::Exception::Configuration::Option::BEGIN@20 # spent 238µs making 1 call to Exception::Class::import, recursion: max depth 2, sum of overlapping time 238µs
27
28#-----------------------------------------------------------------------------
29
30sub message {
31 my $self = shift;
32
33 return $self->full_message();
34}
35
36#-----------------------------------------------------------------------------
37
38sub error {
39 my $self = shift;
40
41 return $self->full_message();
42}
43
44#-----------------------------------------------------------------------------
45
46## no critic (Subroutines::RequireFinalReturn)
47sub full_message {
48 Perl::Critic::Exception::Fatal::Internal->throw(
49 'Subclass failed to override abstract method.'
50 );
51}
52## use critic
53
54
5512µs1;
56
57__END__