Profile of Moo/sification.pm

Filename	/usr/share/perl5/Moo/sification.pm
Statements	Executed 8 statements in 159µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	16µs	58µs	Moo::sification::::BEGIN@3 Moo::sification::BEGIN@3
1	1	1	3µs	3µs	Moo::sification::::BEGIN@4 Moo::sification::BEGIN@4
0	0	0	0s	0s	Moo::HandleMoose::AuthorityHack::DESTROY
0	0	0	0s	0s	Moo::sification::::unimport Moo::sification::unimport

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::sification;
2
3	3	30µs	3	100µs	# spent 58µs (16+42) within Moo::sification::BEGIN@3 which was called: # once (16µs+42µs) by DBIx::Class::Storage::BlockRunner::BEGIN@16 at line 3 use strictures 1; # spent 58µs making 1 call to Moo::sification::BEGIN@3 # spent 25µs making 1 call to strictures::import # spent 17µs making 1 call to strictures::VERSION
4	2	122µs	1	3µs	# spent 3µs within Moo::sification::BEGIN@4 which was called: # once (3µs+0s) by DBIx::Class::Storage::BlockRunner::BEGIN@16 at line 4 use Moo::_Utils (); # spent 3µs making 1 call to Moo::sification::BEGIN@4
5
6					sub unimport { our $disarmed = 1 }
7
8					sub Moo::HandleMoose::AuthorityHack::DESTROY {
9					unless (our $disarmed or Moo::_Utils::_in_global_destruction) {
10					require Moo::HandleMoose;
11					Moo::HandleMoose->import;
12					}
13					}
14
15	1	2µs			if ($INC{"Moose.pm"}) {
16					require Moo::HandleMoose;
17					Moo::HandleMoose->import;
18					} else {
19	1	2µs			$Moose::AUTHORITY = bless({}, 'Moo::HandleMoose::AuthorityHack');
20					}
21
22	1	3µs			1;