Profile of Moose/Meta/Role/Application/ToInstance.pm

Filename	/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Moose/Meta/Role/Application/ToInstance.pm
Statements	Executed 20 statements in 1.31ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	74µs	94µs	Moose::Meta::Role::Application::ToInstance::BEGIN@3
1	1	1	57µs	332µs	Moose::Meta::Role::Application::ToInstance::BEGIN@13
1	1	1	42µs	205µs	Moose::Meta::Role::Application::ToInstance::BEGIN@7
1	1	1	39µs	109µs	Moose::Meta::Role::Application::ToInstance::BEGIN@4
1	1	1	37µs	3.08ms	Moose::Meta::Role::Application::ToInstance::BEGIN@5
0	0	0	0s	0s	Moose::Meta::Role::Application::ToInstance::__ANON__[:17]
0	0	0	0s	0s	Moose::Meta::Role::Application::ToInstance::apply

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

Line	State ments	Time on line	Calls	Time in subs	Code
1					package Moose::Meta::Role::Application::ToInstance;
2
3	3	105µs	2	114µs	# spent 94µs (74+20) within Moose::Meta::Role::Application::ToInstance::BEGIN@3 which was called: # once (74µs+20µs) by Moose::BEGIN@33 at line 3 use strict; # spent 94µs making 1 call to Moose::Meta::Role::Application::ToInstance::BEGIN@3 # spent 20µs making 1 call to strict::import
4	3	94µs	2	179µs	# spent 109µs (39+70) within Moose::Meta::Role::Application::ToInstance::BEGIN@4 which was called: # once (39µs+70µs) by Moose::BEGIN@33 at line 4 use warnings; # spent 109µs making 1 call to Moose::Meta::Role::Application::ToInstance::BEGIN@4 # spent 70µs making 1 call to warnings::import
5	3	153µs	2	6.12ms	# spent 3.08ms (37µs+3.04) within Moose::Meta::Role::Application::ToInstance::BEGIN@5 which was called: # once (37µs+3.04ms) by Moose::BEGIN@33 at line 5 use metaclass; # spent 3.08ms making 1 call to Moose::Meta::Role::Application::ToInstance::BEGIN@5 # spent 3.04ms making 1 call to metaclass::import
6
7	3	252µs	2	368µs	# spent 205µs (42+163) within Moose::Meta::Role::Application::ToInstance::BEGIN@7 which was called: # once (42µs+163µs) by Moose::BEGIN@33 at line 7 use Scalar::Util 'blessed'; # spent 205µs making 1 call to Moose::Meta::Role::Application::ToInstance::BEGIN@7 # spent 163µs making 1 call to Exporter::import
8
9	1	5µs			our $VERSION = '1.19';
10	1	100µs			$VERSION = eval $VERSION; # spent 11µs executing statements in string eval
11	1	3µs			our $AUTHORITY = 'cpan:STEVAN';
12
13	3	536µs	2	607µs	# spent 332µs (57+275) within Moose::Meta::Role::Application::ToInstance::BEGIN@13 which was called: # once (57µs+275µs) by Moose::BEGIN@33 at line 13 use base 'Moose::Meta::Role::Application'; # spent 332µs making 1 call to Moose::Meta::Role::Application::ToInstance::BEGIN@13 # spent 275µs making 1 call to base::import
14
15					__PACKAGE__->meta->add_attribute('rebless_params' => (
16					reader => 'rebless_params',
17					default => sub { {} }
18	1	37µs	2	2.31ms	)); # spent 2.18ms making 1 call to Class::MOP::Mixin::HasAttributes::add_attribute # spent 128µs making 1 call to Moose::Meta::Role::Application::ToInstance::meta
19
20					sub apply {
21					my ( $self, $role, $object, $args ) = @_;
22
23					my $obj_meta = Class::MOP::class_of($object) \|\| 'Moose::Meta::Class';
24
25					# This is a special case to handle the case where the object's metaclass
26					# is a Class::MOP::Class, but _not_ a Moose::Meta::Class (for example,
27					# when applying a role to a Moose::Meta::Attribute object).
28					$obj_meta = 'Moose::Meta::Class'
29					unless $obj_meta->isa('Moose::Meta::Class');
30
31					my $class = $obj_meta->create_anon_class(
32					superclasses => [ blessed($object) ],
33					roles => [ $role, keys(%$args) ? ($args) : () ],
34					cache => 1,
35					);
36
37					$class->rebless_instance( $object, %{ $self->rebless_params } );
38					}
39
40	1	27µs			1;
41
42					__END__