| Filename | /usr/share/perl/5.28/Carp/Heavy.pm |
| Statements | Executed 6 statements in 110µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 8µs | 8µs | Carp::Heavy::BEGIN@3 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package Carp::Heavy; | ||||
| 2 | |||||
| 3 | 2 | 100µs | 1 | 8µs | # spent 8µs within Carp::Heavy::BEGIN@3 which was called:
# once (8µs+0s) by IO::CaptureOutput::_proxy::BEGIN@138 at line 3 # spent 8µs making 1 call to Carp::Heavy::BEGIN@3 |
| 4 | |||||
| 5 | 1 | 400ns | our $VERSION = '1.50'; | ||
| 6 | 1 | 1µs | $VERSION =~ tr/_//d; | ||
| 7 | |||||
| 8 | # Carp::Heavy was merged into Carp in version 1.12. Any mismatched versions | ||||
| 9 | # after this point are not significant and can be ignored. | ||||
| 10 | 1 | 2µs | if(($Carp::VERSION || 0) < 1.12) { | ||
| 11 | my $cv = defined($Carp::VERSION) ? $Carp::VERSION : "undef"; | ||||
| 12 | 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"; | ||||
| 13 | } | ||||
| 14 | |||||
| 15 | 1 | 6µs | 1; | ||
| 16 | |||||
| 17 | # Most of the machinery of Carp used to be here. | ||||
| 18 | # It has been moved in Carp.pm now, but this placeholder remains for | ||||
| 19 | # the benefit of modules that like to preload Carp::Heavy directly. | ||||
| 20 | # This must load Carp, because some modules rely on the historical | ||||
| 21 | # behaviour of Carp::Heavy loading Carp. |