Profile of warnings/register.pm

← Index
NYTProf Performance Profile «line view»
For examples/benchmark4.pl
Run on Thu Aug 28 19:01:43 2014
Reported on Thu Aug 28 19:02:42 2014

Filename | /usr/share/perl/5.18/warnings/register.pm
Statements | Executed 18 statements in 25µs

Subroutines
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
3 | 3 | 3 | 20µs | 196µ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 | 600ns |  |  | our $VERSION = '1.02';
4 |  |  |  |  |
5 | 1 | 400ns |  |  | require warnings;
6 |  |  |  |  |
7 |  |  |  |  | # left here as cruft in case other users were using this undocumented routine
8 |  |  |  |  | # -- rjbs, 2010-09-08
9 |  |  |  |  | sub mkMask
10 |  |  |  |  | {
11 |  |  |  |  | my ($bit) = @_;
12 |  |  |  |  | my $mask = "";
13 |  |  |  |  |
14 |  |  |  |  | vec($mask, $bit, 1) = 1;
15 |  |  |  |  | return $mask;
16 |  |  |  |  | }
17 |  |  |  |  |
18 |  |  |  |  | sub import
19 |  |  |  |  | # spent 196µs (20+176) within warnings::register::import which was called 3 times, avg 65µs/call: # once (6µs+60µs) by overload::BEGIN@144 at line 144 of overload.pm # once (6µs+59µs) by Socket::BEGIN@11 at line 11 of Socket.pm # once (8µs+57µs) by vars::BEGIN@7 at line 7 of vars.pm {
20 | 3 | 600ns |  |  | shift;
21 | 3 | 2µs |  |  | my @categories = @_;
22 |  |  |  |  |
23 | 3 | 6µs |  |  | my $package = (caller(0))[0];
24 | 3 | 4µs | 3 | 176µs | warnings::register_categories($package); # spent 176µs making 3 calls to warnings::register_categories, avg 59µs/call
25 |  |  |  |  |
26 | 3 | 10µs |  |  | warnings::register_categories($package . "::$_") for @categories;
27 |  |  |  |  | }
28 |  |  |  |  |
29 | 1 | 3µs |  |  | 1;