| Filename | /Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/Carp/Heavy.pm |
| Statements | Executed 5 statements in 77µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 9µs | 9µs | Carp::Heavy::BEGIN@3 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package Carp::Heavy; | ||||
| 2 | |||||
| 3 | 2 | 70µs | 1 | 9µs | # spent 9µs within Carp::Heavy::BEGIN@3 which was called:
# once (9µs+0s) by Perl::Critic::Policy::Documentation::PodSpelling::BEGIN@18 at line 3 # spent 9µs making 1 call to Carp::Heavy::BEGIN@3 |
| 4 | |||||
| 5 | 1 | 500ns | our $VERSION = '1.36'; | ||
| 6 | |||||
| 7 | # Carp::Heavy was merged into Carp in version 1.12. Any mismatched versions | ||||
| 8 | # after this point are not significant and can be ignored. | ||||
| 9 | 1 | 2µs | if(($Carp::VERSION || 0) < 1.12) { | ||
| 10 | my $cv = defined($Carp::VERSION) ? $Carp::VERSION : "undef"; | ||||
| 11 | die "Version mismatch between Carp $cv ($INC{q(Carp.pm)}) and Carp::Heavy $VERSION ($INC{q(Carp/Heavy.pm)}). Did you alter \@INC after Carp was loaded?\n"; | ||||
| 12 | } | ||||
| 13 | |||||
| 14 | 1 | 5µs | 1; | ||
| 15 | |||||
| 16 | # Most of the machinery of Carp used to be here. | ||||
| 17 | # It has been moved in Carp.pm now, but this placeholder remains for | ||||
| 18 | # the benefit of modules that like to preload Carp::Heavy directly. | ||||
| 19 | # This must load Carp, because some modules rely on the historical | ||||
| 20 | # behaviour of Carp::Heavy loading Carp. |