← Index
NYTProf Performance Profile   « line view »
For /home/ss5/perl5/perlbrew/perls/perl-5.22.0/bin/benchmarkanything-storage
  Run on Mon Jan 29 16:55:34 2018
Reported on Mon Jan 29 16:57:06 2018

Filename/home/ss5/perl5/perlbrew/perls/perl-5.22.0/lib/site_perl/5.22.0/x86_64-linux/Moose/Meta/Method/Destructor.pm
StatementsExecuted 43 statements in 521µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11154µs265µsMoose::Meta::Method::Destructor::::newMoose::Meta::Method::Destructor::new
11127µs210µsMoose::Meta::Method::Destructor::::_initialize_bodyMoose::Meta::Method::Destructor::_initialize_body
1119µs10µsMoose::Meta::Method::Destructor::::BEGIN@4Moose::Meta::Method::Destructor::BEGIN@4
1118µs74µsMoose::Meta::Method::Destructor::::is_neededMoose::Meta::Method::Destructor::is_needed
1116µs54µsMoose::Meta::Method::Destructor::::_generate_DEMOLISHALLMoose::Meta::Method::Destructor::_generate_DEMOLISHALL
1115µs25µsMoose::Meta::Method::Destructor::::BEGIN@9Moose::Meta::Method::Destructor::BEGIN@9
1115µs106µsMoose::Meta::Method::Destructor::::try {...} Moose::Meta::Method::Destructor::try {...}
1114µs7µsMoose::Meta::Method::Destructor::::BEGIN@5Moose::Meta::Method::Destructor::BEGIN@5
1114µs79µsMoose::Meta::Method::Destructor::::BEGIN@14Moose::Meta::Method::Destructor::BEGIN@14
1114µs22µsMoose::Meta::Method::Destructor::::BEGIN@11Moose::Meta::Method::Destructor::BEGIN@11
1114µs22µsMoose::Meta::Method::Destructor::::BEGIN@8Moose::Meta::Method::Destructor::BEGIN@8
1113µs3µsMoose::Meta::Method::Destructor::::_generate_fallback_destructorMoose::Meta::Method::Destructor::_generate_fallback_destructor
1112µs2µsMoose::Meta::Method::Destructor::::BEGIN@7Moose::Meta::Method::Destructor::BEGIN@7
1111µs1µsMoose::Meta::Method::Destructor::::optionsMoose::Meta::Method::Destructor::options
0000s0sMoose::Meta::Method::Destructor::::__ANON__[:100]Moose::Meta::Method::Destructor::__ANON__[:100]
0000s0sMoose::Meta::Method::Destructor::::__ANON__[:93]Moose::Meta::Method::Destructor::__ANON__[:93]
0000s0sMoose::Meta::Method::Destructor::::catch {...} Moose::Meta::Method::Destructor::catch {...}
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Moose::Meta::Method::Destructor;
21300nsour $VERSION = '2.1605';
3
4214µs212µs
# spent 10µs (9+1) within Moose::Meta::Method::Destructor::BEGIN@4 which was called: # once (9µs+1µs) by Moose::Meta::Class::BEGIN@17 at line 4
use strict;
# spent 10µs making 1 call to Moose::Meta::Method::Destructor::BEGIN@4 # spent 1µs making 1 call to strict::import
5212µs210µs
# spent 7µs (4+3) within Moose::Meta::Method::Destructor::BEGIN@5 which was called: # once (4µs+3µs) by Moose::Meta::Class::BEGIN@17 at line 5
use warnings;
# spent 7µs making 1 call to Moose::Meta::Method::Destructor::BEGIN@5 # spent 3µs making 1 call to warnings::import
6
7212µs12µs
# spent 2µs within Moose::Meta::Method::Destructor::BEGIN@7 which was called: # once (2µs+0s) by Moose::Meta::Class::BEGIN@17 at line 7
use Devel::GlobalDestruction ();
# spent 2µs making 1 call to Moose::Meta::Method::Destructor::BEGIN@7
8213µs241µs
# spent 22µs (4+19) within Moose::Meta::Method::Destructor::BEGIN@8 which was called: # once (4µs+19µs) by Moose::Meta::Class::BEGIN@17 at line 8
use Scalar::Util 'blessed', 'weaken';
# spent 22µs making 1 call to Moose::Meta::Method::Destructor::BEGIN@8 # spent 19µs making 1 call to Exporter::import
9216µs245µs
# spent 25µs (5+20) within Moose::Meta::Method::Destructor::BEGIN@9 which was called: # once (5µs+20µs) by Moose::Meta::Class::BEGIN@17 at line 9
use Try::Tiny;
# spent 25µs making 1 call to Moose::Meta::Method::Destructor::BEGIN@9 # spent 20µs making 1 call to Exporter::import
10
1112µs119µs
# spent 22µs (4+19) within Moose::Meta::Method::Destructor::BEGIN@11 which was called: # once (4µs+19µs) by Moose::Meta::Class::BEGIN@17 at line 12
use parent 'Moose::Meta::Method',
# spent 19µs making 1 call to parent::import
12111µs122µs 'Class::MOP::Method::Inlined';
# spent 22µs making 1 call to Moose::Meta::Method::Destructor::BEGIN@11
13
142338µs2154µs
# spent 79µs (4+75) within Moose::Meta::Method::Destructor::BEGIN@14 which was called: # once (4µs+75µs) by Moose::Meta::Class::BEGIN@17 at line 14
use Moose::Util 'throw_exception';
# spent 79µs making 1 call to Moose::Meta::Method::Destructor::BEGIN@14 # spent 75µs making 1 call to Sub::Exporter::__ANON__[Sub/Exporter.pm:337]
15
16
# spent 265µs (54+211) within Moose::Meta::Method::Destructor::new which was called: # once (54µs+211µs) by Class::MOP::Class::_inline_destructor at line 1506 of Class/MOP/Class.pm
sub new {
1711µs my $class = shift;
1812µs my %options = @_;
19
201800ns (ref $options{options} eq 'HASH')
21 || throw_exception( MustPassAHashOfOptions => params => \%options,
22 class => $class
23 );
24
25 ($options{package_name} && $options{name})
261700ns || throw_exception( MustSupplyPackageNameAndName => params => \%options,
27 class => $class
28 );
29
30 my $self = bless {
31 # from our superclass
32 'body' => undef,
33 'package_name' => $options{package_name},
34 'name' => $options{name},
35 # ...
36 'options' => $options{options},
37 'definition_context' => $options{definition_context},
38 'associated_metaclass' => $options{metaclass},
3913µs } => $class;
40
41 # we don't want this creating
42 # a cycle in the code, if not
43 # needed
44142µs1400ns weaken($self->{'associated_metaclass'});
# spent 400ns making 1 call to Scalar::Util::weaken
45
4611µs1210µs $self->_initialize_body;
# spent 210µs making 1 call to Moose::Meta::Method::Destructor::_initialize_body
47
4812µs return $self;
49}
50
51## accessors
52
5312µs
# spent 1µs within Moose::Meta::Method::Destructor::options which was called: # once (1µs+0s) by Moose::Meta::Method::Destructor::_initialize_body at line 89
sub options { (shift)->{'options'} }
54
55## method
56
57
# spent 74µs (8+66) within Moose::Meta::Method::Destructor::is_needed which was called: # once (8µs+66µs) by Class::MOP::Class::_inline_destructor at line 1494 of Class/MOP/Class.pm
sub is_needed {
581400ns my $self = shift;
591300ns my $metaclass = shift;
60
6115µs21µs ( blessed $metaclass && $metaclass->isa('Class::MOP::Class') )
# spent 600ns making 1 call to Scalar::Util::blessed # spent 500ns making 1 call to UNIVERSAL::isa
62 || throw_exception( MethodExpectedAMetaclassObject => metaclass => $metaclass,
63 class => $self
64 );
65
6614µs165µs return $metaclass->find_method_by_name("DEMOLISHALL");
# spent 65µs making 1 call to Class::MOP::Class::find_method_by_name
67}
68
69
# spent 210µs (27+184) within Moose::Meta::Method::Destructor::_initialize_body which was called: # once (27µs+184µs) by Moose::Meta::Method::Destructor::new at line 46
sub _initialize_body {
701300ns my $self = shift;
71 # TODO:
72 # the %options should also include a both
73 # a call 'initializer' and call 'SUPER::'
74 # options, which should cover approx 90%
75 # of the possible use cases (even if it
76 # requires some adaption on the part of
77 # the author, after all, nothing is free)
78
7915µs2700ns my $class = $self->associated_metaclass->name;
# spent 600ns making 1 call to Class::MOP::Method::associated_metaclass # spent 100ns making 1 call to Class::MOP::Package::name
8015µs257µs my @source = (
81 'sub {',
82 'my $self = shift;',
83 'return ' . $self->_generate_fallback_destructor('$self'),
84 'if Scalar::Util::blessed($self) ne \'' . $class . '\';',
85 $self->_generate_DEMOLISHALL('$self'),
86 'return;',
87 '}',
88 );
8912µs11µs warn join("\n", @source) if $self->options->{debug};
# spent 1µs making 1 call to Moose::Meta::Method::Destructor::options
90
91
# spent 106µs (5+102) within Moose::Meta::Method::Destructor::try {...} which was called: # once (5µs+102µs) by Try::Tiny::try at line 87 of Try/Tiny.pm
my $code = try {
9214µs1102µs $self->_compile_code(source => \@source);
# spent 102µs making 1 call to Class::MOP::Method::Generated::_compile_code
93 }
94 catch {
95 my $source = join("\n", @source);
96 throw_exception( CouldNotEvalDestructor => method_destructor_object => $self,
97 source => $source,
98 error => $_
99 );
10017µs2125µs };
# spent 118µs making 1 call to Try::Tiny::try # spent 7µs making 1 call to Try::Tiny::catch
101
10214µs $self->{'body'} = $code;
103}
104
105
# spent 3µs within Moose::Meta::Method::Destructor::_generate_fallback_destructor which was called: # once (3µs+0s) by Moose::Meta::Method::Destructor::_initialize_body at line 80
sub _generate_fallback_destructor {
10611µs my $self = shift;
1071300ns my ($inv) = @_;
108
10913µs return $inv . '->Moose::Object::DESTROY(@_)';
110}
111
112
# spent 54µs (6+48) within Moose::Meta::Method::Destructor::_generate_DEMOLISHALL which was called: # once (6µs+48µs) by Moose::Meta::Method::Destructor::_initialize_body at line 80
sub _generate_DEMOLISHALL {
1131200ns my $self = shift;
1141200ns my ($inv) = @_;
115
11612µs248µs my @methods = $self->associated_metaclass->find_all_methods_by_name('DEMOLISH');
# spent 48µs making 1 call to Class::MOP::Class::find_all_methods_by_name # spent 300ns making 1 call to Class::MOP::Method::associated_metaclass
11713µs return unless @methods;
118
119 return (
120 'local $?;',
121 'my $igd = Devel::GlobalDestruction::in_global_destruction;',
122 'Try::Tiny::try {',
123 (map { $inv . '->' . $_->{class} . '::DEMOLISH($igd);' } @methods),
124 '}',
125 'Try::Tiny::catch {',
126 'die $_;',
127 '};',
128 );
129}
130
131
13212µs1;
133
134# ABSTRACT: Method Meta Object for destructors
135
136__END__