Profile of Moo/sification.pm

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

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	17µs	59µs	Moo::sification::::BEGIN@3 Moo::sification::BEGIN@3
1	1	1	4µs	4µ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	101µs	# spent 59µs (17+42) within Moo::sification::BEGIN@3 which was called: # once (17µs+42µs) by DBIx::Class::Storage::BlockRunner::BEGIN@16 at line 3 use strictures 1; # spent 59µs making 1 call to Moo::sification::BEGIN@3 # spent 24µs making 1 call to strictures::import # spent 19µs making 1 call to strictures::VERSION
4	2	120µs	1	4µs	# spent 4µs within Moo::sification::BEGIN@4 which was called: # once (4µs+0s) by DBIx::Class::Storage::BlockRunner::BEGIN@16 at line 4 use Moo::_Utils (); # spent 4µ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	900ns			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;