Profile of warnings/register.pm

← Index
NYTProf Performance Profile «line view»
For test.pl
Run on Mon Apr 5 14:31:27 2021
Reported on Mon Apr 5 14:31:40 2021

Filename | /home/leont/perl5/perlbrew/perls/perl-5.32.0/lib/5.32.0/warnings/register.pm
Statements | Executed 8 statements in 6µs

Subroutines
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
1 | 1 | 1 | 4µs | 15µs | warnings::register::::importwarnings::register::import
0 | 0 | 0 | 0s | 0s | warnings::register::::mkMaskwarnings::register::mkMask

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

Line | State ments | Time on line | Calls | Time in subs | Code
--- | --- | --- | --- | --- | ---
1 |  |  |  |  | package warnings::register;
2 |  |  |  |  |
3 | 1 | 200ns |  |  | our $VERSION = '1.04';
4 | 1 | 100ns |  |  | require warnings;
5 |  |  |  |  |
6 |  |  |  |  | # left here as cruft in case other users were using this undocumented routine
7 |  |  |  |  | # -- rjbs, 2010-09-08
8 |  |  |  |  | sub mkMask
9 |  |  |  |  | {
10 |  |  |  |  | my ($bit) = @_;
11 |  |  |  |  | my $mask = "";
12 |  |  |  |  |
13 |  |  |  |  | vec($mask, $bit, 1) = 1;
14 |  |  |  |  | return $mask;
15 |  |  |  |  | }
16 |  |  |  |  |
17 |  |  |  |  | sub import
18 |  |  |  |  | # spent 15µs (4+11) within warnings::register::import which was called: # once (4µs+11µs) by version::BEGIN@6 at line 6 of version.pm {
19 | 1 | 100ns |  |  | shift;
20 | 1 | 200ns |  |  | my @categories = @_;
21 |  |  |  |  |
22 | 1 | 2µs |  |  | my $package = (caller(0))[0];
23 | 1 | 600ns | 1 | 11µs | warnings::register_categories($package); # spent 11µs making 1 call to warnings::register_categories
24 |  |  |  |  |
25 | 1 | 2µs |  |  | warnings::register_categories($package . "::$_") for @categories;
26 |  |  |  |  | }
27 | 1 | 2µs |  |  | 1;
28 |  |  |  |  | __END__