Profile of Sub/Name.pm

Filename	/usr/lib/perl5/Sub/Name.pm
Statements	Executed 15 statements in 333µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	1.03ms	1.15ms	Sub::Name::::BEGIN@49Sub::Name::BEGIN@49
204	3	2	428µs	428µs	Sub::Name::::subnameSub::Name::subname (xsub)
1	1	1	22µs	22µs	Sub::Name::::bootstrapSub::Name::bootstrap (xsub)
1	1	1	15µs	15µs	Sub::Name::::BEGIN@42Sub::Name::BEGIN@42
1	1	1	8µs	13µs	Sub::Name::::BEGIN@45Sub::Name::BEGIN@45
1	1	1	8µs	1.88ms	Sub::Name::::BEGIN@50Sub::Name::BEGIN@50
1	1	1	7µs	20µs	Sub::Name::::BEGIN@44Sub::Name::BEGIN@44

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

Line	State ments	Time on line	Calls	Time in subs	Code
1					package Sub::Name;
2
3					=head1 NAME
4
5					Sub::Name - (re)name a sub
6
7					=head1 SYNOPSIS
8
9					use Sub::Name;
10
11					subname $name, $subref;
12
13					$subref = subname foo => sub { ... };
14
15					=head1 DESCRIPTION
16
17					This module has only one function, which is also exported by default:
18
19					=head2 subname NAME, CODEREF
20
21					Assigns a new name to referenced sub. If package specification is omitted in
22					the name, then the current package is used. The return value is the sub.
23
24					The name is only used for informative routines (caller, Carp, etc). You won't
25					be able to actually invoke the sub by the given name. To allow that, you need
26					to do glob-assignment yourself.
27
28					Note that for anonymous closures (subs that reference lexicals declared outside
29					the sub itself) you can name each instance of the closure differently, which
30					can be very useful for debugging.
31
32					=head1 AUTHOR
33
34					Matthijs van Duin <xmath@cpan.org>
35
36					Copyright (C) 2004, 2008 Matthijs van Duin. All rights reserved.
37					This program is free software; you can redistribute it and/or modify
38					it under the same terms as Perl itself.
39
40					=cut
41
42	2	49µs	1	15µs	# spent 15µs within Sub::Name::BEGIN@42 which was called: # once (15µs+0s) by Try::Tiny::BEGIN@1 at line 42 use 5.006; # spent 15µs making 1 call to Sub::Name::BEGIN@42
43
44	2	29µs	2	33µs	# spent 20µs (7+13) within Sub::Name::BEGIN@44 which was called: # once (7µs+13µs) by Try::Tiny::BEGIN@1 at line 44 use strict; # spent 20µs making 1 call to Sub::Name::BEGIN@44 # spent 13µs making 1 call to strict::import
45	2	47µs	2	18µs	# spent 13µs (8+5) within Sub::Name::BEGIN@45 which was called: # once (8µs+5µs) by Try::Tiny::BEGIN@1 at line 45 use warnings; # spent 13µs making 1 call to Sub::Name::BEGIN@45 # spent 5µs making 1 call to warnings::import
46
47	1	800ns			our $VERSION = '0.05';
48
49	2	129µs	2	1.22ms	# spent 1.15ms (1.03+125µs) within Sub::Name::BEGIN@49 which was called: # once (1.03ms+125µs) by Try::Tiny::BEGIN@1 at line 49 use base 'Exporter'; # spent 1.15ms making 1 call to Sub::Name::BEGIN@49 # spent 68µs making 1 call to base::import
50	2	65µs	2	3.75ms	# spent 1.88ms (8µs+1.87) within Sub::Name::BEGIN@50 which was called: # once (8µs+1.87ms) by Try::Tiny::BEGIN@1 at line 50 use base 'DynaLoader'; # spent 1.88ms making 1 call to Sub::Name::BEGIN@50 # spent 1.87ms making 1 call to base::import
51
52	1	900ns			our @EXPORT = qw(subname);
53	1	600ns			our @EXPORT_OK = @EXPORT;
54
55	1	6µs	1	202µs	bootstrap Sub::Name $VERSION; # spent 202µs making 1 call to DynaLoader::bootstrap
56
57	1	5µs			1;

					# spent 22µs within Sub::Name::bootstrap which was called: # once (22µs+0s) by DynaLoader::bootstrap at line 207 of DynaLoader.pm sub Sub::Name::bootstrap; # xsub
					# spent 428µs within Sub::Name::subname which was called 204 times, avg 2µs/call: # 194 times (403µs+0s) by Moo::_Utils::_name_coderef at line 89 of Moo/_Utils.pm, avg 2µs/call # 5 times (16µs+0s) by Try::Tiny::try at line 60 of Try/Tiny.pm, avg 3µs/call # 5 times (9µs+0s) by Try::Tiny::try at line 61 of Try/Tiny.pm, avg 2µs/call sub Sub::Name::subname; # xsub