Profile of Carp/Heavy.pm

← Index
NYTProf Performance Profile «line view»
For t/bug-md-11.t
Run on Fri Mar 8 13:27:24 2024
Reported on Fri Mar 8 13:30:23 2024

Filename | /home/micha/.plenv/versions/5.38.2/lib/perl5/5.38.2/Carp/Heavy.pm
Statements | Executed 6 statements in 85µs

Subroutines
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
1 | 1 | 1 | 7µs | 7µs | Carp::Heavy::::BEGIN@3Carp::Heavy::BEGIN@3

Call graph for these subroutines as a Graphviz dot language file.

Line | State ments | Time on line | Calls | Time in subs | Code
--- | --- | --- | --- | --- | ---
1 |  |  |  |  | package Carp::Heavy;
2 |  |  |  |  |
3 | 2 | 69µs | 1 | 7µs | # spent 7µs within Carp::Heavy::BEGIN@3 which was called: # once (7µs+0s) by Archive::Zip::BEGIN@11 at line 3 use Carp (); # spent 7µs making 1 call to Carp::Heavy::BEGIN@3
4 |  |  |  |  |
5 | 1 | 300ns |  |  | our $VERSION = '1.54';
6 | 1 | 600ns |  |  | $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 | 14µ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.