| Filename | /Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/Perl/Critic/Exception/Configuration/Option/Global/ParameterValue.pm |
| Statements | Executed 15 statements in 268µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 16µs | 16µs | Perl::Critic::Exception::Configuration::Option::Global::ParameterValue::BEGIN@10 |
| 1 | 1 | 1 | 9µs | 1.14ms | Perl::Critic::Exception::Configuration::Option::Global::ParameterValue::BEGIN@22 |
| 1 | 1 | 1 | 8µs | 256µs | Perl::Critic::Exception::Configuration::Option::Global::ParameterValue::BEGIN@16 |
| 1 | 1 | 1 | 8µs | 11µs | Perl::Critic::Exception::Configuration::Option::Global::ParameterValue::BEGIN@12 |
| 1 | 1 | 1 | 7µs | 18µs | Perl::Critic::Exception::Configuration::Option::Global::ParameterValue::BEGIN@11 |
| 1 | 1 | 1 | 7µs | 27µs | Perl::Critic::Exception::Configuration::Option::Global::ParameterValue::BEGIN@14 |
| 0 | 0 | 0 | 0s | 0s | Perl::Critic::Exception::Configuration::Option::Global::ParameterValue::full_message |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | ############################################################################## | ||||
| 2 | # $URL$ | ||||
| 3 | # $Date$ | ||||
| 4 | # $Author$ | ||||
| 5 | # $Revision$ | ||||
| 6 | ############################################################################## | ||||
| 7 | |||||
| 8 | package Perl::Critic::Exception::Configuration::Option::Global::ParameterValue; | ||||
| 9 | |||||
| 10 | 2 | 43µs | 1 | 16µ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 # spent 16µs making 1 call to Perl::Critic::Exception::Configuration::Option::Global::ParameterValue::BEGIN@10 |
| 11 | 2 | 19µs | 2 | 30µ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 # 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 |
| 12 | 2 | 18µs | 2 | 15µ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 # spent 11µs making 1 call to Perl::Critic::Exception::Configuration::Option::Global::ParameterValue::BEGIN@12
# spent 4µs making 1 call to warnings::import |
| 13 | |||||
| 14 | 2 | 22µs | 2 | 48µ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 # spent 27µs making 1 call to Perl::Critic::Exception::Configuration::Option::Global::ParameterValue::BEGIN@14
# spent 20µs making 1 call to Exporter::import |
| 15 | |||||
| 16 | 2 | 41µs | 2 | 504µ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 # 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 | |||||
| 18 | 1 | 300ns | our $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 | ||||
| 23 | 1 | 300ns | '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 | }, | ||||
| 28 | 1 | 119µs | 2 | 2.27ms | ); # spent 1.14ms making 1 call to Perl::Critic::Exception::Configuration::Option::Global::ParameterValue::BEGIN@22
# spent 1.13ms making 1 call to Exception::Class::import |
| 29 | |||||
| 30 | #----------------------------------------------------------------------------- | ||||
| 31 | |||||
| 32 | 1 | 2µs | 1 | 25µs | Readonly::Array our @EXPORT_OK => qw< throw_global_value >; # spent 25µs making 1 call to Readonly::Array |
| 33 | |||||
| 34 | #----------------------------------------------------------------------------- | ||||
| 35 | |||||
| 36 | sub 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 | |||||
| 60 | 1 | 3µs | 1; | ||
| 61 | |||||
| 62 | __END__ |