| Filename | /Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/Perl/Critic/Exception/Configuration/Option/Policy/ParameterValue.pm |
| Statements | Executed 15 statements in 378µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 15µs | 15µs | Perl::Critic::Exception::Configuration::Option::Policy::ParameterValue::BEGIN@10 |
| 1 | 1 | 1 | 11µs | 1.18ms | Perl::Critic::Exception::Configuration::Option::Policy::ParameterValue::BEGIN@22 |
| 1 | 1 | 1 | 7µs | 11µs | Perl::Critic::Exception::Configuration::Option::Policy::ParameterValue::BEGIN@12 |
| 1 | 1 | 1 | 7µs | 252µs | Perl::Critic::Exception::Configuration::Option::Policy::ParameterValue::BEGIN@16 |
| 1 | 1 | 1 | 7µs | 26µs | Perl::Critic::Exception::Configuration::Option::Policy::ParameterValue::BEGIN@14 |
| 1 | 1 | 1 | 7µs | 18µs | Perl::Critic::Exception::Configuration::Option::Policy::ParameterValue::BEGIN@11 |
| 0 | 0 | 0 | 0s | 0s | Perl::Critic::Exception::Configuration::Option::Policy::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::Policy::ParameterValue; | ||||
| 9 | |||||
| 10 | 2 | 39µs | 1 | 15µ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 # spent 15µs making 1 call to Perl::Critic::Exception::Configuration::Option::Policy::ParameterValue::BEGIN@10 |
| 11 | 2 | 19µs | 2 | 29µ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 # 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 |
| 12 | 2 | 18µs | 2 | 14µ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 # spent 11µs making 1 call to Perl::Critic::Exception::Configuration::Option::Policy::ParameterValue::BEGIN@12
# spent 4µs making 1 call to warnings::import |
| 13 | |||||
| 14 | 2 | 22µs | 2 | 44µ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 # spent 26µs making 1 call to Perl::Critic::Exception::Configuration::Option::Policy::ParameterValue::BEGIN@14
# spent 19µs making 1 call to Exporter::import |
| 15 | |||||
| 16 | 2 | 40µs | 2 | 496µ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 # 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 | |||||
| 18 | 1 | 600ns | our $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 | ||||
| 23 | 1 | 300ns | '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 | }, | ||||
| 28 | 1 | 230µs | 2 | 2.34ms | ); # spent 1.18ms making 1 call to Perl::Critic::Exception::Configuration::Option::Policy::ParameterValue::BEGIN@22
# spent 1.17ms making 1 call to Exception::Class::import |
| 29 | |||||
| 30 | #----------------------------------------------------------------------------- | ||||
| 31 | |||||
| 32 | 1 | 4µs | 1 | 43µs | Readonly::Array our @EXPORT_OK => qw< throw_policy_value >; # spent 43µ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 $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 | |||||
| 61 | 1 | 5µs | 1; | ||
| 62 | |||||
| 63 | __END__ |