Profile of Moo/HandleMoose/

Filename	/usr/local/share/perl/5.18.2/Moo/HandleMoose/_TypeMap.pm
Statements	Executed 17 statements in 842µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	521µs	578µs	Moo::HandleMoose::_TypeMap::::BEGIN@10Moo::HandleMoose::_TypeMap::BEGIN@10
1	1	1	14µs	42µs	Moo::HandleMoose::_TypeMap::::BEGIN@2Moo::HandleMoose::_TypeMap::BEGIN@2
1	1	1	12µs	25µs	Moo::HandleMoose::_TypeMap::::BEGIN@21Moo::HandleMoose::_TypeMap::BEGIN@21
1	1	1	11µs	24µs	Moo::HandleMoose::_TypeMap::::BEGIN@11Moo::HandleMoose::_TypeMap::BEGIN@11
1	1	1	6µs	6µs	Moo::HandleMoose::_TypeMap::::CLEARMoo::HandleMoose::_TypeMap::CLEAR
1	1	1	3µs	3µs	Moo::HandleMoose::_TypeMap::::TIEHASHMoo::HandleMoose::_TypeMap::TIEHASH
0	0	0	0s	0s	Moo::HandleMoose::_TypeMap::::CLONEMoo::HandleMoose::_TypeMap::CLONE
0	0	0	0s	0s	Moo::HandleMoose::_TypeMap::::DELETEMoo::HandleMoose::_TypeMap::DELETE
0	0	0	0s	0s	Moo::HandleMoose::_TypeMap::::DESTROYMoo::HandleMoose::_TypeMap::DESTROY
0	0	0	0s	0s	Moo::HandleMoose::_TypeMap::::EXISTSMoo::HandleMoose::_TypeMap::EXISTS
0	0	0	0s	0s	Moo::HandleMoose::_TypeMap::::FETCHMoo::HandleMoose::_TypeMap::FETCH
0	0	0	0s	0s	Moo::HandleMoose::_TypeMap::::FIRSTKEYMoo::HandleMoose::_TypeMap::FIRSTKEY
0	0	0	0s	0s	Moo::HandleMoose::_TypeMap::::NEXTKEYMoo::HandleMoose::_TypeMap::NEXTKEY
0	0	0	0s	0s	Moo::HandleMoose::_TypeMap::::SCALARMoo::HandleMoose::_TypeMap::SCALAR
0	0	0	0s	0s	Moo::HandleMoose::_TypeMap::::STOREMoo::HandleMoose::_TypeMap::STORE
0	0	0	0s	0s	Moo::HandleMoose::_TypeMap::_str_to_ref

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

Line	State ments	Time on line	Calls	Time in subs	Code
1					package Moo::HandleMoose::_TypeMap;
2	2	54µs	2	71µs	# spent 42µs (14+29) within Moo::HandleMoose::_TypeMap::BEGIN@2 which was called: # once (14µs+29µs) by Moo::BEGIN@4 at line 2 use Moo::_strictures; # spent 42µs making 1 call to Moo::HandleMoose::_TypeMap::BEGIN@2 # spent 29µs making 1 call to Moo::_strictures::import
3
4					package
5					Moo::HandleMoose;
6	1	400ns			our %TYPE_MAP;
7
8					package Moo::HandleMoose::_TypeMap;
9
10	2	130µs	1	578µs	# spent 578µs (521+56) within Moo::HandleMoose::_TypeMap::BEGIN@10 which was called: # once (521µs+56µs) by Moo::BEGIN@4 at line 10 use Scalar::Util (); # spent 578µs making 1 call to Moo::HandleMoose::_TypeMap::BEGIN@10
11	2	99µs	2	36µs	# spent 24µs (11+12) within Moo::HandleMoose::_TypeMap::BEGIN@11 which was called: # once (11µs+12µs) by Moo::BEGIN@4 at line 11 use Config; # spent 24µs making 1 call to Moo::HandleMoose::_TypeMap::BEGIN@11 # spent 12µs making 1 call to Config::import
12
13	1	100ns			our %WEAK_TYPES;
14
15					sub _str_to_ref {
16					my $in = shift;
17					return $in
18					if ref $in;
19
20					if ($in =~ /(?:^\|=)[A-Z]+$0x([0-9a-zA-Z]+)$$/) {
21	2	522µs	2	38µs	# spent 25µs (12+14) within Moo::HandleMoose::_TypeMap::BEGIN@21 which was called: # once (12µs+14µs) by Moo::BEGIN@4 at line 21 my $id = do { no warnings 'portable'; hex "$1" }; # spent 25µs making 1 call to Moo::HandleMoose::_TypeMap::BEGIN@21 # spent 14µs making 1 call to warnings::unimport
22					require B;
23					my $sv = bless \$id, 'B::SV';
24					my $ref = eval { $sv->object_2svref };
25					if (!defined $ref) {
26					die <<'END_ERROR';
27					Moo initialization encountered types defined in a parent thread - ensure that
28					Moo is require()d before any further thread spawns following a type definition.
29					END_ERROR
30					}
31					return $ref;
32					}
33					return $in;
34					}
35
36	1	5µs			# spent 3µs within Moo::HandleMoose::_TypeMap::TIEHASH which was called: # once (3µs+0s) by Moo::BEGIN@4 at line 71 sub TIEHASH { bless {}, $_[0] }
37
38					sub STORE {
39					my ($self, $key, $value) = @_;
40					my $type = _str_to_ref($key);
41					$WEAK_TYPES{$type} = $type;
42					Scalar::Util::weaken($WEAK_TYPES{$type})
43					if ref $type;
44					$self->{$key} = $value;
45					}
46
47					sub FETCH { $_[0]->{$_[1]} }
48					sub FIRSTKEY { my $a = scalar keys %{$_[0]}; each %{$_[0]} }
49					sub NEXTKEY { each %{$_[0]} }
50					sub EXISTS { exists $_[0]->{$_[1]} }
51					sub DELETE { delete $_[0]->{$_[1]} }
52	1	10µs			# spent 6µs within Moo::HandleMoose::_TypeMap::CLEAR which was called: # once (6µs+0s) by Moo::BEGIN@4 at line 72 sub CLEAR { %{$_[0]} = () }
53					sub SCALAR { scalar %{$_[0]} }
54
55					sub CLONE {
56					my @types = map {
57					defined $WEAK_TYPES{$_} ? ($WEAK_TYPES{$_} => $TYPE_MAP{$_}) : ()
58					} keys %TYPE_MAP;
59					%WEAK_TYPES = ();
60					%TYPE_MAP = @types;
61					}
62
63					sub DESTROY {
64					my %types = %{$_[0]};
65					untie %TYPE_MAP;
66					%TYPE_MAP = %types;
67					}
68
69	1	8µs	1	5µs	if ($Config{useithreads}) { # spent 5µs making 1 call to Config::FETCH
70	1	1µs			my @types = %TYPE_MAP;
71	1	4µs	1	3µs	tie %TYPE_MAP, __PACKAGE__; # spent 3µs making 1 call to Moo::HandleMoose::_TypeMap::TIEHASH
72	1	4µs	1	6µs	%TYPE_MAP = @types; # spent 6µs making 1 call to Moo::HandleMoose::_TypeMap::CLEAR
73					}
74
75	1	5µs			1;