← 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/Global/ParameterValue.pm
StatementsExecuted 15 statements in 268µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11116µs16µsPerl::Critic::Exception::Configuration::Option::Global::ParameterValue::::BEGIN@10Perl::Critic::Exception::Configuration::Option::Global::ParameterValue::BEGIN@10
1119µs1.14msPerl::Critic::Exception::Configuration::Option::Global::ParameterValue::::BEGIN@22Perl::Critic::Exception::Configuration::Option::Global::ParameterValue::BEGIN@22
1118µs256µsPerl::Critic::Exception::Configuration::Option::Global::ParameterValue::::BEGIN@16Perl::Critic::Exception::Configuration::Option::Global::ParameterValue::BEGIN@16
1118µs11µsPerl::Critic::Exception::Configuration::Option::Global::ParameterValue::::BEGIN@12Perl::Critic::Exception::Configuration::Option::Global::ParameterValue::BEGIN@12
1117µs18µsPerl::Critic::Exception::Configuration::Option::Global::ParameterValue::::BEGIN@11Perl::Critic::Exception::Configuration::Option::Global::ParameterValue::BEGIN@11
1117µs27µsPerl::Critic::Exception::Configuration::Option::Global::ParameterValue::::BEGIN@14Perl::Critic::Exception::Configuration::Option::Global::ParameterValue::BEGIN@14
0000s0sPerl::Critic::Exception::Configuration::Option::Global::ParameterValue::::full_messagePerl::Critic::Exception::Configuration::Option::Global::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::Global::ParameterValue;
9
10243µs116µs
# spent 16µs within Perl::Critic::Exception::Configuration::Option::Global::ParameterValue::BEGIN@10 which was called: # once (16µs+0s) by Perl::Critic::Config::BEGIN@22 at line 10
use 5.006001;
11219µs230µs
# spent 18µs (7+11) within Perl::Critic::Exception::Configuration::Option::Global::ParameterValue::BEGIN@11 which was called: # once (7µs+11µs) by Perl::Critic::Config::BEGIN@22 at line 11
use strict;
# spent 18µs making 1 call to Perl::Critic::Exception::Configuration::Option::Global::ParameterValue::BEGIN@11 # spent 11µs making 1 call to strict::import
12218µs215µs
# spent 11µs (8+4) within Perl::Critic::Exception::Configuration::Option::Global::ParameterValue::BEGIN@12 which was called: # once (8µs+4µs) by Perl::Critic::Config::BEGIN@22 at line 12
use warnings;
13
14222µs248µs
# spent 27µs (7+20) within Perl::Critic::Exception::Configuration::Option::Global::ParameterValue::BEGIN@14 which was called: # once (7µs+20µs) by Perl::Critic::Config::BEGIN@22 at line 14
use Readonly;
15
16241µs2504µs
# spent 256µs (8+248) within Perl::Critic::Exception::Configuration::Option::Global::ParameterValue::BEGIN@16 which was called: # once (8µs+248µs) by Perl::Critic::Config::BEGIN@22 at line 16
use Perl::Critic::Utils qw{ :characters };
# spent 256µs making 1 call to Perl::Critic::Exception::Configuration::Option::Global::ParameterValue::BEGIN@16 # spent 248µs making 1 call to Exporter::import
17
181300nsour $VERSION = '1.121';
19
20#-----------------------------------------------------------------------------
21
22
# spent 1.14ms (9µs+1.13) within Perl::Critic::Exception::Configuration::Option::Global::ParameterValue::BEGIN@22 which was called: # once (9µs+1.13ms) by Perl::Critic::Config::BEGIN@22 at line 28
use Exception::Class (
231300ns 'Perl::Critic::Exception::Configuration::Option::Global::ParameterValue' => {
24 isa => 'Perl::Critic::Exception::Configuration::Option::Global',
25 description => 'A problem with the value of a global parameter.',
26 alias => 'throw_global_value',
27 },
281119µs22.27ms);
29
30#-----------------------------------------------------------------------------
31
3212µs125µsReadonly::Array our @EXPORT_OK => qw< throw_global_value >;
# spent 25µ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 $option_name = $self->option_name();
48 my $option_value =
49 defined $self->option_value()
50 ? $DQUOTE . $self->option_value() . $DQUOTE
51 : '<undef>';
52 my $message_suffix = $self->message_suffix() || $EMPTY;
53
54 return
55 qq{The value for the global "$option_name" option }
56 . qq{($option_value)$source $message_suffix};
57}
58
59
6013µs1;
61
62__END__