| Filename | /Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/Perl/Critic/Exception/Configuration/Option/Policy/ExtraParameter.pm |
| Statements | Executed 13 statements in 383µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 548µs | 582µs | Perl::Critic::Exception::Configuration::Option::Policy::ExtraParameter::BEGIN@14 |
| 1 | 1 | 1 | 28µs | 28µs | Perl::Critic::Exception::Configuration::Option::Policy::ExtraParameter::BEGIN@10 |
| 1 | 1 | 1 | 20µs | 303µs | Perl::Critic::Exception::Configuration::Option::Policy::ExtraParameter::BEGIN@20 |
| 1 | 1 | 1 | 13µs | 19µs | Perl::Critic::Exception::Configuration::Option::Policy::ExtraParameter::BEGIN@12 |
| 1 | 1 | 1 | 12µs | 30µs | Perl::Critic::Exception::Configuration::Option::Policy::ExtraParameter::BEGIN@11 |
| 0 | 0 | 0 | 0s | 0s | Perl::Critic::Exception::Configuration::Option::Policy::ExtraParameter::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::ExtraParameter; | ||||
| 9 | |||||
| 10 | 2 | 63µs | 1 | 28µ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 # spent 28µs making 1 call to Perl::Critic::Exception::Configuration::Option::Policy::ExtraParameter::BEGIN@10 |
| 11 | 2 | 38µs | 2 | 49µ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 # 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 |
| 12 | 2 | 30µs | 2 | 25µ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 # spent 19µs making 1 call to Perl::Critic::Exception::Configuration::Option::Policy::ExtraParameter::BEGIN@12
# spent 6µs making 1 call to warnings::import |
| 13 | |||||
| 14 | 2 | 71µs | 2 | 615µ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 # 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 | |||||
| 16 | 1 | 500ns | our $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 | ||||
| 21 | 1 | 500ns | '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 | }, | ||||
| 26 | 1 | 172µs | 2 | 585µs | ); # spent 303µs making 1 call to Perl::Critic::Exception::Configuration::Option::Policy::ExtraParameter::BEGIN@20
# spent 282µs making 1 call to Exception::Class::import |
| 27 | |||||
| 28 | #----------------------------------------------------------------------------- | ||||
| 29 | |||||
| 30 | 1 | 4µs | 1 | 41µs | Readonly::Array our @EXPORT_OK => qw< throw_extra_parameter >; # spent 41µs making 1 call to Readonly::Array |
| 31 | |||||
| 32 | #----------------------------------------------------------------------------- | ||||
| 33 | |||||
| 34 | sub 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 | |||||
| 53 | 1 | 5µs | 1; | ||
| 54 | |||||
| 55 | __END__ |