Profile of metaclass.pm

Filename	/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/metaclass.pm
Statements	Executed 243 statements in 4.64ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
20	20	20	2.23ms	75.0ms	metaclass::::importmetaclass::import
1	1	1	91µs	113µs	metaclass::::BEGIN@4metaclass::BEGIN@4
1	1	1	72µs	366µs	metaclass::::BEGIN@8metaclass::BEGIN@8
1	1	1	61µs	353µs	metaclass::::BEGIN@9metaclass::BEGIN@9
1	1	1	51µs	260µs	metaclass::::BEGIN@7metaclass::BEGIN@7
1	1	1	51µs	138µs	metaclass::::BEGIN@5metaclass::BEGIN@5
1	1	1	36µs	36µs	metaclass::::BEGIN@15metaclass::BEGIN@15

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

Line	State ments	Time on line	Calls	Time in subs	Code
1
2					package metaclass;
3
4	3	147µs	2	135µs	# spent 113µs (91+22) within metaclass::BEGIN@4 which was called: # once (91µs+22µs) by Moose::Meta::TypeConstraint::BEGIN@6 at line 4 use strict; # spent 113µs making 1 call to metaclass::BEGIN@4 # spent 22µs making 1 call to strict::import
5	3	158µs	2	226µs	# spent 138µs (51+88) within metaclass::BEGIN@5 which was called: # once (51µs+88µs) by Moose::Meta::TypeConstraint::BEGIN@6 at line 5 use warnings; # spent 138µs making 1 call to metaclass::BEGIN@5 # spent 88µs making 1 call to warnings::import
6
7	3	161µs	2	469µs	# spent 260µs (51+209) within metaclass::BEGIN@7 which was called: # once (51µs+209µs) by Moose::Meta::TypeConstraint::BEGIN@6 at line 7 use Carp 'confess'; # spent 260µs making 1 call to metaclass::BEGIN@7 # spent 209µs making 1 call to Exporter::import
8	3	165µs	2	661µs	# spent 366µs (72+295) within metaclass::BEGIN@8 which was called: # once (72µs+295µs) by Moose::Meta::TypeConstraint::BEGIN@6 at line 8 use Scalar::Util 'blessed'; # spent 366µs making 1 call to metaclass::BEGIN@8 # spent 295µs making 1 call to Exporter::import
9	3	312µs	2	645µs	# spent 353µs (61+292) within metaclass::BEGIN@9 which was called: # once (61µs+292µs) by Moose::Meta::TypeConstraint::BEGIN@6 at line 9 use Try::Tiny; # spent 353µs making 1 call to metaclass::BEGIN@9 # spent 292µs making 1 call to Exporter::import
10
11	1	6µs			our $VERSION = '1.11';
12	1	96µs			$VERSION = eval $VERSION; # spent 14µs executing statements in string eval
13	1	4µs			our $AUTHORITY = 'cpan:STEVAN';
14
15	3	1.01ms	1	36µs	# spent 36µs within metaclass::BEGIN@15 which was called: # once (36µs+0s) by Moose::Meta::TypeConstraint::BEGIN@6 at line 15 use Class::MOP; # spent 36µs making 1 call to metaclass::BEGIN@15
16
17					# spent 75.0ms (2.23+72.8) within metaclass::import which was called 20 times, avg 3.75ms/call: # once (188µs+14.5ms) by Moose::Object::BEGIN@14 at line 15 of if.pm # once (160µs+4.87ms) by Moose::Meta::TypeConstraint::BEGIN@6 at line 6 of Moose/Meta/TypeConstraint.pm # once (142µs+3.31ms) by Moose::Meta::TypeConstraint::Parameterized::BEGIN@5 at line 5 of Moose/Meta/TypeConstraint/Parameterized.pm # once (99µs+3.26ms) by Moose::Meta::TypeCoercion::BEGIN@6 at line 6 of Moose/Meta/TypeCoercion.pm # once (101µs+3.20ms) by Moose::Meta::Role::Composite::BEGIN@5 at line 5 of Moose/Meta/Role/Composite.pm # once (111µs+3.02ms) by Moose::Meta::Role::Application::RoleSummation::BEGIN@5 at line 5 of Moose/Meta/Role/Application/RoleSummation.pm # once (111µs+3.00ms) by Moose::Meta::Role::Application::ToRole::BEGIN@5 at line 5 of Moose/Meta/Role/Application/ToRole.pm # once (98µs+2.96ms) by Moose::Meta::Role::Application::BEGIN@5 at line 5 of Moose/Meta/Role/Application.pm # once (98µs+2.94ms) by Moose::Meta::Role::Application::ToInstance::BEGIN@5 at line 5 of Moose/Meta/Role/Application/ToInstance.pm # once (95µs+2.93ms) by Moose::Meta::TypeConstraint::Enum::BEGIN@5 at line 5 of Moose/Meta/TypeConstraint/Enum.pm # once (131µs+2.89ms) by Moose::Meta::TypeConstraint::Parameterizable::BEGIN@5 at line 5 of Moose/Meta/TypeConstraint/Parameterizable.pm # once (102µs+2.91ms) by Moose::Meta::Role::Method::Required::BEGIN@6 at line 6 of Moose/Meta/Role/Method/Required.pm # once (98µs+2.91ms) by Moose::Meta::Role::Application::ToClass::BEGIN@5 at line 5 of Moose/Meta/Role/Application/ToClass.pm # once (97µs+2.90ms) by Moose::Meta::TypeConstraint::Union::BEGIN@6 at line 6 of Moose/Meta/TypeConstraint/Union.pm # once (98µs+2.89ms) by Moose::Meta::TypeConstraint::Registry::BEGIN@6 at line 6 of Moose/Meta/TypeConstraint/Registry.pm # once (97µs+2.89ms) by Moose::Meta::TypeConstraint::DuckType::BEGIN@5 at line 5 of Moose/Meta/TypeConstraint/DuckType.pm # once (95µs+2.88ms) by Moose::Meta::TypeCoercion::Union::BEGIN@6 at line 6 of Moose/Meta/TypeCoercion/Union.pm # once (109µs+2.86ms) by Moose::Meta::Role::BEGIN@6 at line 6 of Moose/Meta/Role.pm # once (96µs+2.87ms) by Moose::Meta::TypeConstraint::Class::BEGIN@5 at line 5 of Moose/Meta/TypeConstraint/Class.pm # once (100µs+2.86ms) by Moose::Meta::TypeConstraint::Role::BEGIN@5 at line 5 of Moose/Meta/TypeConstraint/Role.pm sub import {
18	220	2.56ms			my ( $class, @args ) = @_;
19
20					unshift @args, "metaclass" if @args % 2 == 1;
21					my %options = @args;
22
23					my $meta_name = exists $options{meta_name} ? $options{meta_name} : 'meta';
24					my $metaclass = delete $options{metaclass};
25
26	1	12µs			unless ( defined $metaclass ) {
27					$metaclass = "Class::MOP::Class";
28					} else {
29			1	0s	Class::MOP::load_class($metaclass); # spent 240µs making 1 call to Class::MOP::load_class, recursion: max depth 1, sum of overlapping time 240µs
30					}
31
32			20	250µs	($metaclass->isa('Class::MOP::Class')) # spent 250µs making 20 calls to UNIVERSAL::isa, avg 13µs/call
33					\|\| confess "The metaclass ($metaclass) must be derived from Class::MOP::Class";
34
35					# make sure the custom metaclasses get loaded
36					foreach my $key (grep { /_(?:meta)?class$/ } keys %options) {
37					unless ( ref( my $class = $options{$key} ) ) {
38					Class::MOP::load_class($class)
39					}
40					}
41
42					my $package = caller();
43
44					# create a meta object so we can install &meta
45			20	18.8ms	my $meta = $metaclass->initialize($package => %options); # spent 12.2ms making 19 calls to Class::MOP::Class::initialize, avg 643µs/call # spent 6.63ms making 1 call to Moose::Meta::Class::initialize
46			20	53.5ms	$meta->_add_meta_method($meta_name) # spent 53.5ms making 20 calls to Class::MOP::Mixin::HasMethods::_add_meta_method, avg 2.67ms/call
47					if defined $meta_name;
48					}
49
50	1	15µs			1;
51
52					__END__