Profile of warnings/register.pm

← Index
NYTProf Performance Profile «block view•line view•sub view»
For bin/dpath
Run on Tue Jun 5 15:31:33 2012
Reported on Tue Jun 5 15:31:47 2012

Filename | /home/ss5/perl5/perlbrew/perls/perl-5.14.1/lib/5.14.1/warnings/register.pm
Statements | Executed 23 statements in 175µs

Subroutines
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
4 | 4 | 4 | 145µs | 1.75ms | 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 | 2µs |  |  | our $VERSION = '1.02';
4 |  |  |  |  |
5 |  |  |  |  | =pod
6 |  |  |  |  |
7 |  |  |  |  | =head1 NAME
8 |  |  |  |  |
9 |  |  |  |  | warnings::register - warnings import function
10 |  |  |  |  |
11 |  |  |  |  | =head1 SYNOPSIS
12 |  |  |  |  |
13 |  |  |  |  | use warnings::register;
14 |  |  |  |  |
15 |  |  |  |  | =head1 DESCRIPTION
16 |  |  |  |  |
17 |  |  |  |  | Creates a warnings category with the same name as the current package.
18 |  |  |  |  |
19 |  |  |  |  | See L<warnings> and L<perllexwarn> for more information on this module's
20 |  |  |  |  | usage.
21 |  |  |  |  |
22 |  |  |  |  | =cut
23 |  |  |  |  |
24 | 1 | 1µs |  |  | require warnings;
25 |  |  |  |  |
26 |  |  |  |  | # left here as cruft in case other users were using this undocumented routine
27 |  |  |  |  | # -- rjbs, 2010-09-08
28 |  |  |  |  | sub mkMask
29 |  |  |  |  | {
30 |  |  |  |  | my ($bit) = @_;
31 |  |  |  |  | my $mask = "";
32 |  |  |  |  |
33 |  |  |  |  | vec($mask, $bit, 1) = 1;
34 |  |  |  |  | return $mask;
35 |  |  |  |  | }
36 |  |  |  |  |
37 |  |  |  |  | sub import
38 |  |  |  |  | # spent 1.75ms (145µs+1.60) within warnings::register::import which was called 4 times, avg 437µs/call: # once (33µs+449µs) by Tie::Hash::BEGIN@189 at line 189 of Tie/Hash.pm # once (40µs+386µs) by overload::BEGIN@147 at line 147 of overload.pm # once (35µs+386µs) by constant::BEGIN@4 at line 4 of constant.pm # once (37µs+381µs) by vars::BEGIN@7 at line 7 of vars.pm {
39 | 4 | 5µs |  |  | shift;
40 | 4 | 17µs |  |  | my @categories = @_;
41 |  |  |  |  |
42 | 4 | 46µs |  |  | my $package = (caller(0))[0];
43 | 4 | 28µs | 4 | 1.60ms | warnings::register_categories($package); # spent 1.60ms making 4 calls to warnings::register_categories, avg 401µs/call
44 |  |  |  |  |
45 | 4 | 64µs |  |  | warnings::register_categories($package . "::$_") for @categories;
46 |  |  |  |  | }
47 |  |  |  |  |
48 | 1 | 12µs |  |  | 1;