← Index
NYTProf Performance Profile   « block view • line view • sub view »
For -e
  Run on Wed Nov 17 21:45:08 2010
Reported on Wed Nov 17 22:10:03 2010

Filename/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP/Class/Immutable/Trait.pm
StatementsExecuted 5020 statements in 42.8ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
6211953µs953µsClass::MOP::Class::Immutable::Trait::::_get_mutable_metaclass_nameClass::MOP::Class::Immutable::Trait::_get_mutable_metaclass_name
11174µs93µsClass::MOP::Class::Immutable::Trait::::BEGIN@3Class::MOP::Class::Immutable::Trait::BEGIN@3
11172µs142µsClass::MOP::Class::Immutable::Trait::::BEGIN@4Class::MOP::Class::Immutable::Trait::BEGIN@4
11149µs118µsClass::MOP::Class::Immutable::Trait::::BEGIN@36Class::MOP::Class::Immutable::Trait::BEGIN@36
11137µs194µsClass::MOP::Class::Immutable::Trait::::BEGIN@9Class::MOP::Class::Immutable::Trait::BEGIN@9
11137µs195µsClass::MOP::Class::Immutable::Trait::::BEGIN@8Class::MOP::Class::Immutable::Trait::BEGIN@8
11123µs23µsClass::MOP::Class::Immutable::Trait::::BEGIN@6Class::MOP::Class::Immutable::Trait::BEGIN@6
0000s0sClass::MOP::Class::Immutable::Trait::::__ANON__[:37]Class::MOP::Class::Immutable::Trait::__ANON__[:37]
0000s0sClass::MOP::Class::Immutable::Trait::::_immutable_cannot_callClass::MOP::Class::Immutable::Trait::_immutable_cannot_call
0000s0sClass::MOP::Class::Immutable::Trait::::_immutable_metaclassClass::MOP::Class::Immutable::Trait::_immutable_metaclass
0000s0sClass::MOP::Class::Immutable::Trait::::_method_mapClass::MOP::Class::Immutable::Trait::_method_map
0000s0sClass::MOP::Class::Immutable::Trait::::add_package_symbolClass::MOP::Class::Immutable::Trait::add_package_symbol
0000s0sClass::MOP::Class::Immutable::Trait::::class_precedence_listClass::MOP::Class::Immutable::Trait::class_precedence_list
0000s0sClass::MOP::Class::Immutable::Trait::::get_all_attributesClass::MOP::Class::Immutable::Trait::get_all_attributes
0000s0sClass::MOP::Class::Immutable::Trait::::get_all_method_namesClass::MOP::Class::Immutable::Trait::get_all_method_names
0000s0sClass::MOP::Class::Immutable::Trait::::get_all_methodsClass::MOP::Class::Immutable::Trait::get_all_methods
0000s0sClass::MOP::Class::Immutable::Trait::::get_meta_instanceClass::MOP::Class::Immutable::Trait::get_meta_instance
0000s0sClass::MOP::Class::Immutable::Trait::::is_immutableClass::MOP::Class::Immutable::Trait::is_immutable
0000s0sClass::MOP::Class::Immutable::Trait::::is_mutableClass::MOP::Class::Immutable::Trait::is_mutable
0000s0sClass::MOP::Class::Immutable::Trait::::linearized_isaClass::MOP::Class::Immutable::Trait::linearized_isa
0000s0sClass::MOP::Class::Immutable::Trait::::superclassesClass::MOP::Class::Immutable::Trait::superclasses
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package Class::MOP::Class::Immutable::Trait;
2
33142µs2111µs
# spent 93µs (74+18) within Class::MOP::Class::Immutable::Trait::BEGIN@3 which was called: # once (74µs+18µs) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 3
use strict;
# spent 93µs making 1 call to Class::MOP::Class::Immutable::Trait::BEGIN@3 # spent 18µs making 1 call to strict::import
4399µs2212µs
# spent 142µs (72+70) within Class::MOP::Class::Immutable::Trait::BEGIN@4 which was called: # once (72µs+70µs) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 4
use warnings;
# spent 142µs making 1 call to Class::MOP::Class::Immutable::Trait::BEGIN@4 # spent 70µs making 1 call to warnings::import
5
6392µs123µs
# spent 23µs within Class::MOP::Class::Immutable::Trait::BEGIN@6 which was called: # once (23µs+0s) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 6
use MRO::Compat;
# spent 23µs making 1 call to Class::MOP::Class::Immutable::Trait::BEGIN@6
7
83106µs2353µs
# spent 195µs (37+158) within Class::MOP::Class::Immutable::Trait::BEGIN@8 which was called: # once (37µs+158µs) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 8
use Carp 'confess';
# spent 195µs making 1 call to Class::MOP::Class::Immutable::Trait::BEGIN@8 # spent 158µs making 1 call to Exporter::import
93738µs2351µs
# spent 194µs (37+157) within Class::MOP::Class::Immutable::Trait::BEGIN@9 which was called: # once (37µs+157µs) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 9
use Scalar::Util 'blessed', 'weaken';
# spent 194µs making 1 call to Class::MOP::Class::Immutable::Trait::BEGIN@9 # spent 157µs making 1 call to Exporter::import
10
1115µsour $VERSION = '1.11';
12167µs$VERSION = eval $VERSION;
# spent 10µs executing statements in string eval
1313µsour $AUTHORITY = 'cpan:STEVAN';
14
15# the original class of the metaclass instance
16621.12ms
# spent 953µs within Class::MOP::Class::Immutable::Trait::_get_mutable_metaclass_name which was called 62 times, avg 15µs/call: # 62 times (953µs+0s) by Class::MOP::Class::_real_ref_name at line 126 of Class/MOP/Class.pm, avg 15µs/call
sub _get_mutable_metaclass_name { $_[0]{__immutable}{original_class} }
17
18sub is_mutable { 0 }
1962840µssub is_immutable { 1 }
20
21sub _immutable_metaclass { ref $_[1] }
22
23sub superclasses {
2476504µs my $orig = shift;
25 my $self = shift;
26 confess "This method is read-only" if @_;
27193.41ms $self->$orig;
# spent 3.41ms making 19 calls to Class::MOP::Class::superclasses, avg 179µs/call
28}
29
30sub _immutable_cannot_call {
31 my $name = shift;
32 Carp::confess "The '$name' method cannot be called on an immutable instance";
33}
34
3516µsfor my $name (qw/add_method alias_method remove_method add_attribute remove_attribute remove_package_symbol/) {
3631.25ms2187µs
# spent 118µs (49+69) within Class::MOP::Class::Immutable::Trait::BEGIN@36 which was called: # once (49µs+69µs) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 36
no strict 'refs';
# spent 118µs making 1 call to Class::MOP::Class::Immutable::Trait::BEGIN@36 # spent 69µs making 1 call to strict::unimport
376130µs *{__PACKAGE__."::$name"} = sub { _immutable_cannot_call($name) };
38}
39
40sub class_precedence_list {
412192.18ms my $orig = shift;
42 my $self = shift;
43190s @{ $self->{__immutable}{class_precedence_list}
# spent 20.6ms making 19 calls to Class::MOP::Class::class_precedence_list, avg 1.09ms/call, recursion: max depth 4, sum of overlapping time 20.6ms
44 ||= [ $self->$orig ] };
45}
46
47sub linearized_isa {
485735.27ms my $orig = shift;
49 my $self = shift;
5018946µs @{ $self->{__immutable}{linearized_isa} ||= [ $self->$orig ] };
# spent 946µs making 18 calls to Class::MOP::Class::linearized_isa, avg 53µs/call
51}
52
53sub get_all_methods {
54 my $orig = shift;
55 my $self = shift;
56 @{ $self->{__immutable}{get_all_methods} ||= [ $self->$orig ] };
57}
58
59sub get_all_method_names {
60 my $orig = shift;
61 my $self = shift;
62 @{ $self->{__immutable}{get_all_method_names} ||= [ $self->$orig ] };
63}
64
65sub get_all_attributes {
668317.99ms my $orig = shift;
67 my $self = shift;
681810.9ms @{ $self->{__immutable}{get_all_attributes} ||= [ $self->$orig ] };
# spent 10.9ms making 18 calls to Class::MOP::Class::get_all_attributes, avg 607µs/call
69}
70
71sub get_meta_instance {
72181212.5ms my $orig = shift;
73 my $self = shift;
742415.0ms $self->{__immutable}{get_meta_instance} ||= $self->$orig;
# spent 15.0ms making 24 calls to Class::MOP::Class::get_meta_instance, avg 627µs/call
75}
76
77sub _method_map {
7813569.77ms my $orig = shift;
79 my $self = shift;
8023198µs $self->{__immutable}{_method_map} ||= $self->$orig;
# spent 198µs making 23 calls to Class::MOP::Mixin::HasMethods::_method_map, avg 9µs/call
81}
82
83sub add_package_symbol {
84 my $orig = shift;
85 my $self = shift;
86 confess "Cannot add package symbols to an immutable metaclass"
87 unless ( caller(3) )[3] eq 'Class::MOP::Package::get_package_symbol';
88
89 $self->$orig(@_);
90}
91
92118µs1;
93
94__END__
Report produced by the NYTProf 4.04 Perl profiler, developed by Tim Bunce and Adam Kaplan.