Profile of Package/Stash.pm

Filename	/home/doy/coding/Package-Stash/Package-Stash-0.16/blib/lib/Package/Stash.pm
Statements	Executed 37 statements in 5.59ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	2.77ms	5.54ms	Package::Stash::::BEGIN@11Package::Stash::BEGIN@11
1	1	1	69µs	1.24ms	Package::Stash::::BEGIN@48Package::Stash::BEGIN@48
1	1	1	42µs	42µs	Package::Stash::::BEGIN@2Package::Stash::BEGIN@2
1	1	1	38µs	103µs	Package::Stash::::BEGIN@6Package::Stash::BEGIN@6
1	1	1	37µs	54µs	Package::Stash::::BEGIN@5Package::Stash::BEGIN@5
0	0	0	0s	0s	Package::Stash::::add_package_symbolPackage::Stash::add_package_symbol
0	0	0	0s	0s	Package::Stash::::add_symbolPackage::Stash::add_symbol
0	0	0	0s	0s	Package::Stash::::bootstrapPackage::Stash::bootstrap
0	0	0	0s	0s	Package::Stash::::get_all_symbolsPackage::Stash::get_all_symbols
0	0	0	0s	0s	Package::Stash::get_or_add_package_symbol
0	0	0	0s	0s	Package::Stash::::get_or_add_symbolPackage::Stash::get_or_add_symbol
0	0	0	0s	0s	Package::Stash::::get_package_symbolPackage::Stash::get_package_symbol
0	0	0	0s	0s	Package::Stash::::get_symbolPackage::Stash::get_symbol
0	0	0	0s	0s	Package::Stash::::has_package_symbolPackage::Stash::has_package_symbol
0	0	0	0s	0s	Package::Stash::::has_symbolPackage::Stash::has_symbol
0	0	0	0s	0s	Package::Stash::list_all_package_symbols
0	0	0	0s	0s	Package::Stash::::list_all_symbolsPackage::Stash::list_all_symbols
0	0	0	0s	0s	Package::Stash::::namePackage::Stash::name
0	0	0	0s	0s	Package::Stash::::namespacePackage::Stash::namespace
0	0	0	0s	0s	Package::Stash::::newPackage::Stash::new
0	0	0	0s	0s	Package::Stash::::remove_globPackage::Stash::remove_glob
0	0	0	0s	0s	Package::Stash::::remove_package_globPackage::Stash::remove_package_glob
0	0	0	0s	0s	Package::Stash::::remove_package_symbolPackage::Stash::remove_package_symbol
0	0	0	0s	0s	Package::Stash::::remove_symbolPackage::Stash::remove_symbol

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

Line	State ments	Time on line	Calls	Time in subs	Code
1					package Package::Stash;
2					# spent 42µs within Package::Stash::BEGIN@2 which was called: # once (42µs+0s) by Class::MOP::Package::BEGIN@9 at line 4 BEGIN {
3	1	25µs			$Package::Stash::VERSION = '0.16';
4	1	65µs	1	42µs	} # spent 42µs making 1 call to Package::Stash::BEGIN@2
5	3	90µs	2	71µs	# spent 54µs (37+17) within Package::Stash::BEGIN@5 which was called: # once (37µs+17µs) by Class::MOP::Package::BEGIN@9 at line 5 use strict; # spent 54µs making 1 call to Package::Stash::BEGIN@5 # spent 17µs making 1 call to strict::import
6	3	812µs	2	168µs	# spent 103µs (38+65) within Package::Stash::BEGIN@6 which was called: # once (38µs+65µs) by Class::MOP::Package::BEGIN@9 at line 6 use warnings; # spent 103µs making 1 call to Package::Stash::BEGIN@6 # spent 65µs making 1 call to warnings::import
7					# ABSTRACT: routines for manipulating stashes
8
9	1	2µs			our $IMPLEMENTATION;
10
11					# spent 5.54ms (2.77+2.78) within Package::Stash::BEGIN@11 which was called: # once (2.77ms+2.78ms) by Class::MOP::Package::BEGIN@9 at line 46 BEGIN {
12	1	4µs			$IMPLEMENTATION = $ENV{PACKAGE_STASH_IMPLEMENTATION}
13					if exists $ENV{PACKAGE_STASH_IMPLEMENTATION};
14
15	1	2µs			my $err;
16	1	7µs			if ($IMPLEMENTATION) {
17					if (!eval "require Package::Stash::$IMPLEMENTATION; 1") {
18					require Carp;
19					Carp::croak("Could not load Package::Stash::$IMPLEMENTATION: $@");
20					}
21					}
22					else {
23	1	3µs			for my $impl ('XS', 'PP') {
24	1	79µs			if (eval "require Package::Stash::$impl; 1;") { # spent 321µs executing statements in string eval
25	1	6µs			$IMPLEMENTATION = $impl;
26	1	6µs			last;
27					}
28					else {
29					$err .= $@;
30					}
31					}
32					}
33
34	1	3µs			if (!$IMPLEMENTATION) {
35					require Carp;
36					Carp::croak("Could not find a suitable Package::Stash implementation: $err");
37					}
38
39	1	7µs			my $impl = "Package::Stash::$IMPLEMENTATION";
40	1	106µs	1	67µs	my $from = $impl->new($impl); # spent 67µs making 1 call to Package::Stash::XS::new
41	1	36µs	1	16µs	my $to = $impl->new(__PACKAGE__); # spent 16µs making 1 call to Package::Stash::XS::new
42	1	129µs	2	112µs	my $methods = $from->get_all_symbols('CODE'); # spent 101µs making 1 call to Package::Stash::XS::get_all_symbols # spent 11µs making 1 call to Package::Stash::XS::namespace
43	1	50µs			for my $meth (keys %$methods) {
44	12	2.76ms	24	1.14ms	$to->add_symbol("&$meth" => $methods->{$meth}); # spent 1.07ms making 12 calls to Package::Stash::XS::add_symbol, avg 89µs/call # spent 72µs making 12 calls to Package::Stash::XS::name, avg 6µs/call
45					}
46	1	288µs	1	5.54ms	} # spent 5.54ms making 1 call to Package::Stash::BEGIN@11
47
48	1	50µs	1	1.17ms	# spent 1.24ms (69µs+1.17) within Package::Stash::BEGIN@48 which was called: # once (69µs+1.17ms) by Class::MOP::Package::BEGIN@9 at line 56 use Package::DeprecationManager -deprecations => { # spent 1.17ms making 1 call to Package::DeprecationManager::import
49					'Package::Stash::add_package_symbol' => 0.14,
50					'Package::Stash::remove_package_glob' => 0.14,
51					'Package::Stash::has_package_symbol' => 0.14,
52					'Package::Stash::get_package_symbol' => 0.14,
53					'Package::Stash::get_or_add_package_symbol' => 0.14,
54					'Package::Stash::remove_package_symbol' => 0.14,
55					'Package::Stash::list_all_package_symbols' => 0.14,
56	2	1.05ms	1	1.24ms	}; # spent 1.24ms making 1 call to Package::Stash::BEGIN@48
57
58					sub add_package_symbol {
59					deprecated('add_package_symbol is deprecated, please use add_symbol');
60					shift->add_symbol(@_);
61					}
62
63					sub remove_package_glob {
64					deprecated('remove_package_glob is deprecated, please use remove_glob');
65					shift->remove_glob(@_);
66					}
67
68					sub has_package_symbol {
69					deprecated('has_package_symbol is deprecated, please use has_symbol');
70					shift->has_symbol(@_);
71					}
72
73					sub get_package_symbol {
74					deprecated('get_package_symbol is deprecated, please use get_symbol');
75					shift->get_symbol(@_);
76					}
77
78					sub get_or_add_package_symbol {
79					deprecated('get_or_add_package_symbol is deprecated, please use get_or_add_symbol');
80					shift->get_or_add_symbol(@_);
81					}
82
83					sub remove_package_symbol {
84					deprecated('remove_package_symbol is deprecated, please use remove_symbol');
85					shift->remove_symbol(@_);
86					}
87
88					sub list_all_package_symbols {
89					deprecated('list_all_package_symbols is deprecated, please use list_all_symbols');
90					shift->list_all_symbols(@_);
91					}
92
93
94	1	14µs			1;
95
96					__END__