← 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/Policy/ExtraParameter.pm
StatementsExecuted 13 statements in 383µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
111548µs582µsPerl::Critic::Exception::Configuration::Option::Policy::ExtraParameter::::BEGIN@14Perl::Critic::Exception::Configuration::Option::Policy::ExtraParameter::BEGIN@14
11128µs28µsPerl::Critic::Exception::Configuration::Option::Policy::ExtraParameter::::BEGIN@10Perl::Critic::Exception::Configuration::Option::Policy::ExtraParameter::BEGIN@10
11120µs303µsPerl::Critic::Exception::Configuration::Option::Policy::ExtraParameter::::BEGIN@20Perl::Critic::Exception::Configuration::Option::Policy::ExtraParameter::BEGIN@20
11113µs19µsPerl::Critic::Exception::Configuration::Option::Policy::ExtraParameter::::BEGIN@12Perl::Critic::Exception::Configuration::Option::Policy::ExtraParameter::BEGIN@12
11112µs30µsPerl::Critic::Exception::Configuration::Option::Policy::ExtraParameter::::BEGIN@11Perl::Critic::Exception::Configuration::Option::Policy::ExtraParameter::BEGIN@11
0000s0sPerl::Critic::Exception::Configuration::Option::Policy::ExtraParameter::::full_messagePerl::Critic::Exception::Configuration::Option::Policy::ExtraParameter::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::Option::Policy::ExtraParameter;
9
10263µs128µs
# spent 28µs within Perl::Critic::Exception::Configuration::Option::Policy::ExtraParameter::BEGIN@10 which was called: # once (28µs+0s) by Perl::Critic::PolicyConfig::BEGIN@20 at line 10
use 5.006001;
11238µs249µs
# spent 30µs (12+19) within Perl::Critic::Exception::Configuration::Option::Policy::ExtraParameter::BEGIN@11 which was called: # once (12µs+19µs) by Perl::Critic::PolicyConfig::BEGIN@20 at line 11
use strict;
# spent 30µs making 1 call to Perl::Critic::Exception::Configuration::Option::Policy::ExtraParameter::BEGIN@11 # spent 19µs making 1 call to strict::import
12230µs225µs
# spent 19µs (13+6) within Perl::Critic::Exception::Configuration::Option::Policy::ExtraParameter::BEGIN@12 which was called: # once (13µs+6µs) by Perl::Critic::PolicyConfig::BEGIN@20 at line 12
use warnings;
13
14271µs2615µs
# spent 582µs (548+34) within Perl::Critic::Exception::Configuration::Option::Policy::ExtraParameter::BEGIN@14 which was called: # once (548µs+34µs) by Perl::Critic::PolicyConfig::BEGIN@20 at line 14
use Readonly;
# spent 582µs making 1 call to Perl::Critic::Exception::Configuration::Option::Policy::ExtraParameter::BEGIN@14 # spent 34µs making 1 call to Exporter::import
15
161500nsour $VERSION = '1.121';
17
18#-----------------------------------------------------------------------------
19
20
# spent 303µs (20+282) within Perl::Critic::Exception::Configuration::Option::Policy::ExtraParameter::BEGIN@20 which was called: # once (20µs+282µs) by Perl::Critic::PolicyConfig::BEGIN@20 at line 26
use Exception::Class (
211500ns 'Perl::Critic::Exception::Configuration::Option::Policy::ExtraParameter' => {
22 isa => 'Perl::Critic::Exception::Configuration::Option::Policy',
23 description => 'The configuration of a policy referred to a non-existant parameter.',
24 alias => 'throw_extra_parameter',
25 },
261172µs2585µs);
27
28#-----------------------------------------------------------------------------
29
3014µs141µsReadonly::Array our @EXPORT_OK => qw< throw_extra_parameter >;
# spent 41µs making 1 call to Readonly::Array
31
32#-----------------------------------------------------------------------------
33
34sub full_message {
35 my ( $self ) = @_;
36
37 my $source = $self->source();
38 if ($source) {
39 $source = qq{ (found in "$source")};
40 }
41 else {
42 $source = q{};
43 }
44
45 my $policy = $self->policy();
46 my $option_name = $self->option_name();
47
48 return
49 qq{The $policy policy doesn't take a "$option_name" option$source.};
50}
51
52
5315µs1;
54
55__END__