← 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/NonExistentPolicy.pm
StatementsExecuted 13 statements in 281µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11121µs21µsPerl::Critic::Exception::Configuration::NonExistentPolicy::::BEGIN@10Perl::Critic::Exception::Configuration::NonExistentPolicy::BEGIN@10
11112µs286µsPerl::Critic::Exception::Configuration::NonExistentPolicy::::BEGIN@20Perl::Critic::Exception::Configuration::NonExistentPolicy::BEGIN@20
11110µs15µsPerl::Critic::Exception::Configuration::NonExistentPolicy::::BEGIN@12Perl::Critic::Exception::Configuration::NonExistentPolicy::BEGIN@12
11110µs37µsPerl::Critic::Exception::Configuration::NonExistentPolicy::::BEGIN@14Perl::Critic::Exception::Configuration::NonExistentPolicy::BEGIN@14
11110µs25µsPerl::Critic::Exception::Configuration::NonExistentPolicy::::BEGIN@11Perl::Critic::Exception::Configuration::NonExistentPolicy::BEGIN@11
0000s0sPerl::Critic::Exception::Configuration::NonExistentPolicy::::full_messagePerl::Critic::Exception::Configuration::NonExistentPolicy::full_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::NonExistentPolicy;
9
10257µs121µs
# spent 21µs within Perl::Critic::Exception::Configuration::NonExistentPolicy::BEGIN@10 which was called: # once (21µs+0s) by Perl::Critic::PolicyFactory::BEGIN@34 at line 10
use 5.006001;
11231µs241µs
# spent 25µs (10+16) within Perl::Critic::Exception::Configuration::NonExistentPolicy::BEGIN@11 which was called: # once (10µs+16µs) by Perl::Critic::PolicyFactory::BEGIN@34 at line 11
use strict;
# spent 25µs making 1 call to Perl::Critic::Exception::Configuration::NonExistentPolicy::BEGIN@11 # spent 16µs making 1 call to strict::import
12225µs221µs
# spent 15µs (10+5) within Perl::Critic::Exception::Configuration::NonExistentPolicy::BEGIN@12 which was called: # once (10µs+5µs) by Perl::Critic::PolicyFactory::BEGIN@34 at line 12
use warnings;
# spent 15µs making 1 call to Perl::Critic::Exception::Configuration::NonExistentPolicy::BEGIN@12 # spent 5µs making 1 call to warnings::import
13
14258µs264µs
# spent 37µs (10+27) within Perl::Critic::Exception::Configuration::NonExistentPolicy::BEGIN@14 which was called: # once (10µs+27µs) by Perl::Critic::PolicyFactory::BEGIN@34 at line 14
use Readonly;
# spent 37µs making 1 call to Perl::Critic::Exception::Configuration::NonExistentPolicy::BEGIN@14 # spent 27µs making 1 call to Exporter::import
15
161500nsour $VERSION = '1.121';
17
18#-----------------------------------------------------------------------------
19
20
# spent 286µs (12+274) within Perl::Critic::Exception::Configuration::NonExistentPolicy::BEGIN@20 which was called: # once (12µs+274µs) by Perl::Critic::PolicyFactory::BEGIN@34 at line 26
use Exception::Class (
211400ns 'Perl::Critic::Exception::Configuration::NonExistentPolicy' => {
22 isa => 'Perl::Critic::Exception::Configuration',
23 description => 'The configuration referred to a non-existant policy.',
24 fields => [ qw{ policy } ],
25 },
261102µs2560µs);
# spent 286µs making 1 call to Perl::Critic::Exception::Configuration::NonExistentPolicy::BEGIN@20 # spent 274µs making 1 call to Exception::Class::import
27
28#-----------------------------------------------------------------------------
29
3013µs135µsReadonly::Array our @EXPORT_OK => qw< throw_extra_parameter >;
# spent 35µs making 1 call to Readonly::Array
31
32#-----------------------------------------------------------------------------
33
34sub full_message {
35 my ( $self ) = @_;
36
37 my $policy = $self->policy();
38
39 return qq<There is no $policy policy installed.>;
40}
41
42
4314µs1;
44
45__END__