← 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/ParameterValue.pm
StatementsExecuted 15 statements in 378µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11115µs15µsPerl::Critic::Exception::Configuration::Option::Policy::ParameterValue::::BEGIN@10Perl::Critic::Exception::Configuration::Option::Policy::ParameterValue::BEGIN@10
11111µs1.18msPerl::Critic::Exception::Configuration::Option::Policy::ParameterValue::::BEGIN@22Perl::Critic::Exception::Configuration::Option::Policy::ParameterValue::BEGIN@22
1117µs11µsPerl::Critic::Exception::Configuration::Option::Policy::ParameterValue::::BEGIN@12Perl::Critic::Exception::Configuration::Option::Policy::ParameterValue::BEGIN@12
1117µs252µsPerl::Critic::Exception::Configuration::Option::Policy::ParameterValue::::BEGIN@16Perl::Critic::Exception::Configuration::Option::Policy::ParameterValue::BEGIN@16
1117µs26µsPerl::Critic::Exception::Configuration::Option::Policy::ParameterValue::::BEGIN@14Perl::Critic::Exception::Configuration::Option::Policy::ParameterValue::BEGIN@14
1117µs18µsPerl::Critic::Exception::Configuration::Option::Policy::ParameterValue::::BEGIN@11Perl::Critic::Exception::Configuration::Option::Policy::ParameterValue::BEGIN@11
0000s0sPerl::Critic::Exception::Configuration::Option::Policy::ParameterValue::::full_messagePerl::Critic::Exception::Configuration::Option::Policy::ParameterValue::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::ParameterValue;
9
10239µs115µs
# spent 15µs within Perl::Critic::Exception::Configuration::Option::Policy::ParameterValue::BEGIN@10 which was called: # once (15µs+0s) by Perl::Critic::PolicyConfig::BEGIN@19 at line 10
use 5.006001;
11219µs229µs
# spent 18µs (7+11) within Perl::Critic::Exception::Configuration::Option::Policy::ParameterValue::BEGIN@11 which was called: # once (7µs+11µs) by Perl::Critic::PolicyConfig::BEGIN@19 at line 11
use strict;
# spent 18µs making 1 call to Perl::Critic::Exception::Configuration::Option::Policy::ParameterValue::BEGIN@11 # spent 11µs making 1 call to strict::import
12218µs214µs
# spent 11µs (7+4) within Perl::Critic::Exception::Configuration::Option::Policy::ParameterValue::BEGIN@12 which was called: # once (7µs+4µs) by Perl::Critic::PolicyConfig::BEGIN@19 at line 12
use warnings;
13
14222µs244µs
# spent 26µs (7+19) within Perl::Critic::Exception::Configuration::Option::Policy::ParameterValue::BEGIN@14 which was called: # once (7µs+19µs) by Perl::Critic::PolicyConfig::BEGIN@19 at line 14
use Readonly;
15
16240µs2496µs
# spent 252µs (7+245) within Perl::Critic::Exception::Configuration::Option::Policy::ParameterValue::BEGIN@16 which was called: # once (7µs+245µs) by Perl::Critic::PolicyConfig::BEGIN@19 at line 16
use Perl::Critic::Utils qw{ :characters };
# spent 252µs making 1 call to Perl::Critic::Exception::Configuration::Option::Policy::ParameterValue::BEGIN@16 # spent 245µs making 1 call to Exporter::import
17
181600nsour $VERSION = '1.121';
19
20#-----------------------------------------------------------------------------
21
22
# spent 1.18ms (11µs+1.17) within Perl::Critic::Exception::Configuration::Option::Policy::ParameterValue::BEGIN@22 which was called: # once (11µs+1.17ms) by Perl::Critic::PolicyConfig::BEGIN@19 at line 28
use Exception::Class (
231300ns 'Perl::Critic::Exception::Configuration::Option::Policy::ParameterValue' => {
24 isa => 'Perl::Critic::Exception::Configuration::Option::Policy',
25 description => 'A problem with the value of a parameter for a policy.',
26 alias => 'throw_policy_value',
27 },
281230µs22.34ms);
29
30#-----------------------------------------------------------------------------
31
3214µs143µsReadonly::Array our @EXPORT_OK => qw< throw_policy_value >;
# spent 43µs making 1 call to Readonly::Array
33
34#-----------------------------------------------------------------------------
35
36sub full_message {
37 my ( $self ) = @_;
38
39 my $source = $self->source();
40 if ($source) {
41 $source = qq{ found in "$source"};
42 }
43 else {
44 $source = $EMPTY;
45 }
46
47 my $policy = $self->policy();
48 my $option_name = $self->option_name();
49 my $option_value =
50 defined $self->option_value()
51 ? $DQUOTE . $self->option_value() . $DQUOTE
52 : '<undef>';
53 my $message_suffix = $self->message_suffix() || $EMPTY;
54
55 return
56 qq{The value for the $policy "$option_name" option }
57 . qq{($option_value)$source $message_suffix};
58}
59
60
6115µs1;
62
63__END__