Profile of Moo/sification.pm

Filename	/usr/local/share/perl/5.18.2/Moo/sification.pm
Statements	Executed 11 statements in 296µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	20µs	52µs	Moo::sification::::BEGIN@3 Moo::sification::BEGIN@3
1	1	1	19µs	125µs	Moo::sification::::BEGIN@5 Moo::sification::BEGIN@5
1	1	1	16µs	28µs	Moo::sification::::BEGIN@4 Moo::sification::BEGIN@4
1	1	1	5µs	5µs	Moo::sification::::import Moo::sification::import
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	2	37µs	2	83µs	# spent 52µs (20+32) within Moo::sification::BEGIN@3 which was called: # once (20µs+32µs) by String::Markov::BEGIN@8 at line 3 use Moo::_strictures; # spent 52µs making 1 call to Moo::sification::BEGIN@3 # spent 32µs making 1 call to Moo::_strictures::import
4	2	35µs	2	40µs	# spent 28µs (16+12) within Moo::sification::BEGIN@4 which was called: # once (16µs+12µs) by String::Markov::BEGIN@8 at line 4 no warnings 'once'; # spent 28µs making 1 call to Moo::sification::BEGIN@4 # spent 12µs making 1 call to warnings::unimport
5	2	212µs	2	176µs	# spent 125µs (19+106) within Moo::sification::BEGIN@5 which was called: # once (19µs+106µs) by String::Markov::BEGIN@8 at line 5 use Devel::GlobalDestruction qw(in_global_destruction); # spent 125µs making 1 call to Moo::sification::BEGIN@5 # spent 51µs making 1 call to Sub::Exporter::Progressive::__ANON__[Sub/Exporter/Progressive.pm:40]
6
7					sub unimport {
8					die "Can't disable Moo::sification after inflation has been done"
9					if $Moo::HandleMoose::SETUP_DONE;
10					our $disabled = 1;
11					}
12
13					sub Moo::HandleMoose::AuthorityHack::DESTROY {
14					unless (our $disabled or in_global_destruction) {
15					require Moo::HandleMoose;
16					Moo::HandleMoose->import;
17					}
18					}
19
20					# spent 5µs within Moo::sification::import which was called: # once (5µs+0s) by String::Markov::BEGIN@8 at line 10 of Moo.pm sub import {
21					return
22	1	300ns			if our $setup_done;
23	1	1µs			if ($INC{"Moose.pm"}) {
24					require Moo::HandleMoose;
25					Moo::HandleMoose->import;
26					} else {
27	1	2µs			$Moose::AUTHORITY = bless({}, 'Moo::HandleMoose::AuthorityHack');
28					}
29	1	6µs			$setup_done = 1;
30					}
31
32	1	3µs			1;