← Index
NYTProf Performance Profile   « line view »
For script/ponapi
  Run on Wed Feb 10 15:51:26 2016
Reported on Thu Feb 11 09:43:10 2016

Filename/usr/local/lib/perl/5.18.2/Moose/Util/MetaRole.pm
StatementsExecuted 15 statements in 617µs
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
1112.22ms2.98msMoose::Util::MetaRole::::BEGIN@10Moose::Util::MetaRole::BEGIN@10
11118µs38µsMoose::Util::MetaRole::::BEGIN@6Moose::Util::MetaRole::BEGIN@6
11118µs60µsMoose::Util::MetaRole::::BEGIN@8Moose::Util::MetaRole::BEGIN@8
11111µs24µsMoose::Util::MetaRole::::BEGIN@4Moose::Util::MetaRole::BEGIN@4
1118µs14µsMoose::Util::MetaRole::::BEGIN@9Moose::Util::MetaRole::BEGIN@9
1117µs13µsMoose::Util::MetaRole::::BEGIN@5Moose::Util::MetaRole::BEGIN@5
0000s0sMoose::Util::MetaRole::::__ANON__[:105]Moose::Util::MetaRole::__ANON__[:105]
0000s0sMoose::Util::MetaRole::::__ANON__[:59]Moose::Util::MetaRole::__ANON__[:59]
0000s0sMoose::Util::MetaRole::::_make_new_classMoose::Util::MetaRole::_make_new_class
0000s0sMoose::Util::MetaRole::::_make_new_metaclassMoose::Util::MetaRole::_make_new_metaclass
0000s0sMoose::Util::MetaRole::::_metathing_forMoose::Util::MetaRole::_metathing_for
0000s0sMoose::Util::MetaRole::::apply_base_class_rolesMoose::Util::MetaRole::apply_base_class_roles
0000s0sMoose::Util::MetaRole::::apply_metarolesMoose::Util::MetaRole::apply_metaroles
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package Moose::Util::MetaRole;
21400nsour $VERSION = '2.1604';
3
4221µs237µs
# spent 24µs (11+13) within Moose::Util::MetaRole::BEGIN@4 which was called: # once (11µs+13µs) by Moose::Exporter::BEGIN@10 at line 4
use strict;
# spent 24µs making 1 call to Moose::Util::MetaRole::BEGIN@4 # spent 13µs making 1 call to strict::import
5220µs219µs
# spent 13µs (7+6) within Moose::Util::MetaRole::BEGIN@5 which was called: # once (7µs+6µs) by Moose::Exporter::BEGIN@10 at line 5
use warnings;
# spent 13µs making 1 call to Moose::Util::MetaRole::BEGIN@5 # spent 6µs making 1 call to warnings::import
6228µs258µs
# spent 38µs (18+20) within Moose::Util::MetaRole::BEGIN@6 which was called: # once (18µs+20µs) by Moose::Exporter::BEGIN@10 at line 6
use Scalar::Util 'blessed';
# spent 38µs making 1 call to Moose::Util::MetaRole::BEGIN@6 # spent 20µs making 1 call to Exporter::import
7
8344µs382µs
# spent 60µs (18+42) within Moose::Util::MetaRole::BEGIN@8 which was called: # once (18µs+42µs) by Moose::Exporter::BEGIN@10 at line 8
use List::Util 1.33 qw( first all );
# spent 60µs making 1 call to Moose::Util::MetaRole::BEGIN@8 # spent 14µs making 1 call to UNIVERSAL::VERSION # spent 8µs making 1 call to List::Util::import
9220µs219µs
# spent 14µs (8+6) within Moose::Util::MetaRole::BEGIN@9 which was called: # once (8µs+6µs) by Moose::Exporter::BEGIN@10 at line 9
use Moose::Deprecated;
# spent 14µs making 1 call to Moose::Util::MetaRole::BEGIN@9 # spent 6µs making 1 call to Package::DeprecationManager::__ANON__[Package/DeprecationManager.pm:61]
102482µs23.09ms
# spent 2.98ms (2.22+756µs) within Moose::Util::MetaRole::BEGIN@10 which was called: # once (2.22ms+756µs) by Moose::Exporter::BEGIN@10 at line 10
use Moose::Util 'throw_exception';
# spent 2.98ms making 1 call to Moose::Util::MetaRole::BEGIN@10 # spent 115µs making 1 call to Sub::Exporter::__ANON__[Sub/Exporter.pm:337]
11
12sub apply_metaroles {
13 my %args = @_;
14
15 my $for = _metathing_for( $args{for} );
16
17 if ( $for->isa('Moose::Meta::Role') ) {
18 return _make_new_metaclass( $for, $args{role_metaroles}, 'role' );
19 }
20 else {
21 return _make_new_metaclass( $for, $args{class_metaroles}, 'class' );
22 }
23}
24
25sub _metathing_for {
26 my $passed = shift;
27
28 my $found
29 = blessed $passed
30 ? $passed
31 : Class::MOP::class_of($passed);
32
33 return $found
34 if defined $found
35 && blessed $found
36 && ( $found->isa('Moose::Meta::Role')
37 || $found->isa('Moose::Meta::Class') );
38
39 local $Carp::CarpLevel = $Carp::CarpLevel + 1;
40
41 throw_exception( InvalidArgPassedToMooseUtilMetaRole => argument => $passed );
42}
43
44sub _make_new_metaclass {
45 my $for = shift;
46 my $roles = shift;
47 my $primary = shift;
48
49 return $for unless keys %{$roles};
50
51 my $new_metaclass
52 = exists $roles->{$primary}
53 ? _make_new_class( ref $for, $roles->{$primary} )
54 : blessed $for;
55
56 my %classes;
57
58 for my $key ( grep { $_ ne $primary } keys %{$roles} ) {
59 my $attr = first {$_}
60 map { $for->meta->find_attribute_by_name($_) } (
61 $key . '_metaclass',
62 $key . '_class'
63 );
64
65 my $reader = $attr->get_read_method;
66
67 $classes{ $attr->init_arg }
68 = _make_new_class( $for->$reader(), $roles->{$key} );
69 }
70
71 my $new_meta = $new_metaclass->reinitialize( $for, %classes );
72
73 return $new_meta;
74}
75
76sub apply_base_class_roles {
77 my %args = @_;
78
79 my $meta = _metathing_for( $args{for} || $args{for_class} );
80 throw_exception( CannotApplyBaseClassRolesToRole => params => \%args,
81 role_name => $meta->name,
82 )
83 if $meta->isa('Moose::Meta::Role');
84
85 my $new_base = _make_new_class(
86 $meta->name,
87 $args{roles},
88 [ $meta->superclasses() ],
89 );
90
91 $meta->superclasses($new_base)
92 if $new_base ne $meta->name();
93}
94
95sub _make_new_class {
96 my $existing_class = shift;
97 my $roles = shift;
98 my $superclasses = shift || [$existing_class];
99
100 return $existing_class unless $roles;
101
102 my $meta = Class::MOP::Class->initialize($existing_class);
103
104 return $existing_class
105 if $meta->can('does_role') && all { $meta->does_role($_) }
106 grep { !ref $_ } @{$roles};
107
108 return Moose::Meta::Class->create_anon_class(
109 superclasses => $superclasses,
110 roles => $roles,
111 cache => 1,
112 )->name();
113}
114
11512µs1;
116
117# ABSTRACT: Apply roles to any metaclass, as well as the object base class
118
119__END__
Report produced by the NYTProf 5.06 Perl profiler, developed by Tim Bunce and Adam Kaplan.