Profile of MooseX/Types/CheckedUtilExports.pm

Filename	/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/MooseX/Types/CheckedUtilExports.pm
Statements	Executed 106 statements in 2.68ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
17	1	1	501µs	501µs	MooseX::Types::CheckedUtilExports::__ANON__[:64]
1	1	1	74µs	93µs	MooseX::Types::CheckedUtilExports::BEGIN@11
1	1	1	47µs	122µs	MooseX::Types::CheckedUtilExports::BEGIN@50
1	1	1	42µs	232µs	MooseX::Types::CheckedUtilExports::BEGIN@16
1	1	1	41µs	1.78ms	MooseX::Types::CheckedUtilExports::BEGIN@18
1	1	1	40µs	239µs	MooseX::Types::CheckedUtilExports::BEGIN@15
1	1	1	38µs	107µs	MooseX::Types::CheckedUtilExports::BEGIN@12
1	1	1	37µs	153µs	MooseX::Types::CheckedUtilExports::BEGIN@14
1	1	1	20µs	20µs	MooseX::Types::CheckedUtilExports::BEGIN@13
0	0	0	0s	0s	MooseX::Types::CheckedUtilExports::class_type
0	0	0	0s	0s	MooseX::Types::CheckedUtilExports::role_type

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

Line	State ments	Time on line	Calls	Time in subs	Code
1					=head1 NAME
2
- -
8					package MooseX::Types::CheckedUtilExports;
9	1	3µs			our $VERSION = "0.23";
10
11	3	102µs	2	111µs	# spent 93µs (74+18) within MooseX::Types::CheckedUtilExports::BEGIN@11 which was called: # once (74µs+18µs) by MooseX::Types::BEGIN@15 at line 11 use strict; # spent 93µs making 1 call to MooseX::Types::CheckedUtilExports::BEGIN@11 # spent 18µs making 1 call to strict::import
12	3	94µs	2	176µs	# spent 107µs (38+69) within MooseX::Types::CheckedUtilExports::BEGIN@12 which was called: # once (38µs+69µs) by MooseX::Types::BEGIN@15 at line 12 use warnings; # spent 107µs making 1 call to MooseX::Types::CheckedUtilExports::BEGIN@12 # spent 69µs making 1 call to warnings::import
13	3	93µs	1	20µs	# spent 20µs within MooseX::Types::CheckedUtilExports::BEGIN@13 which was called: # once (20µs+0s) by MooseX::Types::BEGIN@15 at line 13 use Moose::Util::TypeConstraints (); # spent 20µs making 1 call to MooseX::Types::CheckedUtilExports::BEGIN@13
14	3	96µs	2	269µs	# spent 153µs (37+116) within MooseX::Types::CheckedUtilExports::BEGIN@14 which was called: # once (37µs+116µs) by MooseX::Types::BEGIN@15 at line 14 use Moose::Exporter; # spent 153µs making 1 call to MooseX::Types::CheckedUtilExports::BEGIN@14 # spent 116µs making 1 call to Moose::Exporter::import
15	3	114µs	2	438µs	# spent 239µs (40+199) within MooseX::Types::CheckedUtilExports::BEGIN@15 which was called: # once (40µs+199µs) by MooseX::Types::BEGIN@15 at line 15 use Sub::Name; # spent 239µs making 1 call to MooseX::Types::CheckedUtilExports::BEGIN@15 # spent 199µs making 1 call to Exporter::import
16	3	116µs	2	421µs	# spent 232µs (42+190) within MooseX::Types::CheckedUtilExports::BEGIN@16 which was called: # once (42µs+190µs) by MooseX::Types::BEGIN@15 at line 16 use Carp; # spent 232µs making 1 call to MooseX::Types::CheckedUtilExports::BEGIN@16 # spent 190µs making 1 call to Exporter::import
17
18	3	234µs	2	3.53ms	# spent 1.78ms (41µs+1.74) within MooseX::Types::CheckedUtilExports::BEGIN@18 which was called: # once (41µs+1.74ms) by MooseX::Types::BEGIN@15 at line 18 use namespace::clean -except => 'meta'; # spent 1.78ms making 1 call to MooseX::Types::CheckedUtilExports::BEGIN@18 # spent 1.74ms making 1 call to namespace::clean::import
19
20	1	4µs			my $StringFoundMsg =
21					q{WARNING: String found where Type expected (did you use a => instead of a , ?)};
22
23	1	9µs			my @exports = qw/type subtype maybe_type duck_type enum coerce from as/;
24
25					=head1 DESCRIPTION
26
- -
49	1	6µs			for my $export (@exports) {
50	3	847µs	2	198µs	# spent 122µs (47+75) within MooseX::Types::CheckedUtilExports::BEGIN@50 which was called: # once (47µs+75µs) by MooseX::Types::BEGIN@15 at line 50 no strict 'refs'; # spent 122µs making 1 call to MooseX::Types::CheckedUtilExports::BEGIN@50 # spent 75µs making 1 call to strict::unimport
51
52					# spent 501µs within MooseX::Types::CheckedUtilExports::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/MooseX/Types/CheckedUtilExports.pm:64] which was called 17 times, avg 29µs/call: # 17 times (501µs+0s) by MooseX::Types::CheckedUtilExports::as or MooseX::Types::CheckedUtilExports::enum or MooseX::Types::CheckedUtilExports::subtype at line 338 of Moose/Exporter.pm, avg 29µs/call *{$export} = sub {
53	68	693µs			my $caller = shift;
54
55					local $Carp::CarpLevel = $Carp::CarpLevel + 1;
56
57					carp $StringFoundMsg
58					unless ref($_[0]) \|\|
59					$_[0] =~ /\b::\b/ \|\| # qualified type
60					$caller->get_registered_class_type($_[0]) \|\|
61					$caller->get_registered_role_type($_[0]);
62
63			17	16.7ms	goto &{"Moose::Util::TypeConstraints::$export"}; # spent 14.6ms making 8 calls to Moose::Util::TypeConstraints::subtype, avg 1.82ms/call # spent 1.97ms making 1 call to Moose::Util::TypeConstraints::enum # spent 102µs making 8 calls to Moose::Util::TypeConstraints::as, avg 13µs/call
64					}
65	8	154µs			}
66
67					Moose::Exporter->setup_import_methods(
68	1	34µs	1	4.39ms	with_caller => [ @exports, 'class_type', 'role_type' ] # spent 4.39ms making 1 call to Moose::Exporter::setup_import_methods
69					);
70
71					sub class_type {
72					my $caller = shift;
73
74					$caller->register_class_type(
75					Moose::Util::TypeConstraints::class_type(@_)
76					);
77					}
78
79					sub role_type ($;$) {
80					my ($caller, $name, $opts) = @_;
81
82					$caller->register_role_type(
83					Moose::Util::TypeConstraints::role_type($name, $opts)
84					);
85					}
86
87					=head1 SEE ALSO
88
- -
102	1	79µs	1	3.69ms	1; # spent 3.69ms making 1 call to B::Hooks::EndOfScope::__ANON__[B/Hooks/EndOfScope.pm:26]