← Index
NYTProf Performance Profile   « block view • line view • sub view »
For bin/pan_genome_post_analysis
  Run on Fri Mar 27 11:43:32 2015
Reported on Fri Mar 27 11:45:26 2015

Filename/Users/ap13/perl5/lib/perl5/darwin-2level/Moose/Meta/Method/Destructor.pm
StatementsExecuted 448 statements in 2.97ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1611961µs7.29msMoose::Meta::Method::Destructor::::newMoose::Meta::Method::Destructor::new
1611645µs6.31msMoose::Meta::Method::Destructor::::_initialize_bodyMoose::Meta::Method::Destructor::_initialize_body
1611197µs1.60msMoose::Meta::Method::Destructor::::is_neededMoose::Meta::Method::Destructor::is_needed
1611142µs1.96msMoose::Meta::Method::Destructor::::_generate_DEMOLISHALLMoose::Meta::Method::Destructor::_generate_DEMOLISHALL
161158µs58µsMoose::Meta::Method::Destructor::::_generate_fallback_destructorMoose::Meta::Method::Destructor::_generate_fallback_destructor
161135µs35µsMoose::Meta::Method::Destructor::::optionsMoose::Meta::Method::Destructor::options
11131µs49µsMoose::Meta::Method::Destructor::::BEGIN@4Moose::Meta::Method::Destructor::BEGIN@4
11116µs22µsMoose::Meta::Method::Destructor::::BEGIN@5Moose::Meta::Method::Destructor::BEGIN@5
11114µs62µsMoose::Meta::Method::Destructor::::BEGIN@9Moose::Meta::Method::Destructor::BEGIN@9
11112µs65µsMoose::Meta::Method::Destructor::::BEGIN@11Moose::Meta::Method::Destructor::BEGIN@11
11112µs54µsMoose::Meta::Method::Destructor::::BEGIN@8Moose::Meta::Method::Destructor::BEGIN@8
11111µs212µsMoose::Meta::Method::Destructor::::BEGIN@14Moose::Meta::Method::Destructor::BEGIN@14
1115µs5µsMoose::Meta::Method::Destructor::::BEGIN@7Moose::Meta::Method::Destructor::BEGIN@7
0000s0sMoose::Meta::Method::Destructor::::__ANON__[:100]Moose::Meta::Method::Destructor::__ANON__[:100]
0000s0sMoose::Meta::Method::Destructor::::__ANON__[:93]Moose::Meta::Method::Destructor::__ANON__[:93]
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;
21700nsour $VERSION = '2.1403';
3
4237µs268µs
# spent 49µs (31+19) within Moose::Meta::Method::Destructor::BEGIN@4 which was called: # once (31µs+19µs) by Moose::Meta::Class::BEGIN@17 at line 4
use strict;
# spent 49µs making 1 call to Moose::Meta::Method::Destructor::BEGIN@4 # spent 19µs making 1 call to strict::import
5236µs228µs
# spent 22µs (16+6) within Moose::Meta::Method::Destructor::BEGIN@5 which was called: # once (16µs+6µs) by Moose::Meta::Class::BEGIN@17 at line 5
use warnings;
# spent 22µs making 1 call to Moose::Meta::Method::Destructor::BEGIN@5 # spent 6µs making 1 call to warnings::import
6
7235µs15µs
# spent 5µs within Moose::Meta::Method::Destructor::BEGIN@7 which was called: # once (5µs+0s) by Moose::Meta::Class::BEGIN@17 at line 7
use Devel::GlobalDestruction ();
# spent 5µs making 1 call to Moose::Meta::Method::Destructor::BEGIN@7
8237µs296µs
# spent 54µs (12+42) within Moose::Meta::Method::Destructor::BEGIN@8 which was called: # once (12µs+42µs) by Moose::Meta::Class::BEGIN@17 at line 8
use Scalar::Util 'blessed', 'weaken';
# spent 54µs making 1 call to Moose::Meta::Method::Destructor::BEGIN@8 # spent 42µs making 1 call to Exporter::import
9249µs2110µs
# spent 62µs (14+48) within Moose::Meta::Method::Destructor::BEGIN@9 which was called: # once (14µs+48µs) by Moose::Meta::Class::BEGIN@17 at line 9
use Try::Tiny;
# spent 62µs making 1 call to Moose::Meta::Method::Destructor::BEGIN@9 # spent 48µs making 1 call to Exporter::import
10
1128µs
# spent 65µs (12+53) within Moose::Meta::Method::Destructor::BEGIN@11 which was called: # once (12µs+53µs) by Moose::Meta::Class::BEGIN@17 at line 12
use parent 'Moose::Meta::Method',
12133µs2118µs 'Class::MOP::Method::Inlined';
# spent 65µs making 1 call to Moose::Meta::Method::Destructor::BEGIN@11 # spent 53µs making 1 call to parent::import
13
142690µs2412µs
# spent 212µs (11+200) within Moose::Meta::Method::Destructor::BEGIN@14 which was called: # once (11µs+200µs) by Moose::Meta::Class::BEGIN@17 at line 14
use Moose::Util 'throw_exception';
# spent 212µs making 1 call to Moose::Meta::Method::Destructor::BEGIN@14 # spent 200µs making 1 call to Sub::Exporter::__ANON__[Sub/Exporter.pm:337]
15
16
# spent 7.29ms (961µs+6.33) within Moose::Meta::Method::Destructor::new which was called 16 times, avg 456µs/call: # 16 times (961µs+6.33ms) by Class::MOP::Class::_inline_destructor at line 1496 of Class/MOP/Class.pm, avg 456µs/call
sub new {
17128962µs my $class = shift;
18 my %options = @_;
19
20 (ref $options{options} eq 'HASH')
21 || throw_exception( MustPassAHashOfOptions => params => \%options,
22 class => $class
23 );
24
25 ($options{package_name} && $options{name})
26 || 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},
39 } => $class;
40
41 # we don't want this creating
42 # a cycle in the code, if not
43 # needed
441618µs weaken($self->{'associated_metaclass'});
# spent 18µs making 16 calls to Scalar::Util::weaken, avg 1µs/call
45
46166.31ms $self->_initialize_body;
# spent 6.31ms making 16 calls to Moose::Meta::Method::Destructor::_initialize_body, avg 395µs/call
47
48 return $self;
49}
50
51## accessors
52
531650µs
# spent 35µs within Moose::Meta::Method::Destructor::options which was called 16 times, avg 2µs/call: # 16 times (35µs+0s) by Moose::Meta::Method::Destructor::_initialize_body at line 89, avg 2µs/call
sub options { (shift)->{'options'} }
54
55## method
56
57
# spent 1.60ms (197µs+1.40) within Moose::Meta::Method::Destructor::is_needed which was called 16 times, avg 100µs/call: # 16 times (197µs+1.40ms) by Class::MOP::Class::_inline_destructor at line 1494 of Class/MOP/Class.pm, avg 100µs/call
sub is_needed {
5864226µs my $self = shift;
59 my $metaclass = shift;
60
613244µs ( blessed $metaclass && $metaclass->isa('Class::MOP::Class') )
# spent 22µs making 16 calls to Scalar::Util::blessed, avg 1µs/call # spent 21µs making 16 calls to UNIVERSAL::isa, avg 1µs/call
62 || throw_exception( MethodExpectedAMetaclassObject => metaclass => $metaclass,
63 class => $self
64 );
65
66161.36ms return $metaclass->find_method_by_name("DEMOLISHALL");
# spent 1.36ms making 16 calls to Class::MOP::Class::find_method_by_name, avg 85µs/call
67}
68
69
# spent 6.31ms (645µs+5.67) within Moose::Meta::Method::Destructor::_initialize_body which was called 16 times, avg 395µs/call: # 16 times (645µs+5.67ms) by Moose::Meta::Method::Destructor::new at line 46, avg 395µs/call
sub _initialize_body {
7096545µs 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
793231µs my $class = $self->associated_metaclass->name;
# spent 21µs making 16 calls to Class::MOP::Method::associated_metaclass, avg 1µs/call # spent 10µs making 16 calls to Class::MOP::Package::name, avg 619ns/call
80322.02ms my @source = (
# spent 1.96ms making 16 calls to Moose::Meta::Method::Destructor::_generate_DEMOLISHALL, avg 123µs/call # spent 58µs making 16 calls to Moose::Meta::Method::Destructor::_generate_fallback_destructor, avg 4µs/call
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 );
891635µs warn join("\n", @source) if $self->options->{debug};
# spent 35µs making 16 calls to Moose::Meta::Method::Destructor::options, avg 2µs/call
90
91 my $code = try {
921671µs162.96ms $self->_compile_code(source => \@source);
# spent 2.96ms making 16 calls to Class::MOP::Method::Generated::_compile_code, avg 185µs/call
93 }
94 catch {
95 my $source = join("\n", @source);
96 throw_exception( CouldNotEvalDestructor => method_destructor_object => $self,
97 source => $source,
98 error => $_
99 );
100323.58ms };
# spent 3.50ms making 16 calls to Try::Tiny::try, avg 219µs/call # spent 84µs making 16 calls to Try::Tiny::catch, avg 5µs/call
101
102 $self->{'body'} = $code;
103}
104
105
# spent 58µs within Moose::Meta::Method::Destructor::_generate_fallback_destructor which was called 16 times, avg 4µs/call: # 16 times (58µs+0s) by Moose::Meta::Method::Destructor::_initialize_body at line 80, avg 4µs/call
sub _generate_fallback_destructor {
1064874µs my $self = shift;
107 my ($inv) = @_;
108
109 return $inv . '->Moose::Object::DESTROY(@_)';
110}
111
112
# spent 1.96ms (142µs+1.82) within Moose::Meta::Method::Destructor::_generate_DEMOLISHALL which was called 16 times, avg 123µs/call: # 16 times (142µs+1.82ms) by Moose::Meta::Method::Destructor::_initialize_body at line 80, avg 123µs/call
sub _generate_DEMOLISHALL {
11364116µs my $self = shift;
114 my ($inv) = @_;
115
116321.82ms my @methods = $self->associated_metaclass->find_all_methods_by_name('DEMOLISH');
# spent 1.81ms making 16 calls to Class::MOP::Class::find_all_methods_by_name, avg 113µs/call # spent 17µs making 16 calls to Class::MOP::Method::associated_metaclass, avg 1µs/call
117 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
13213µs1;
133
134# ABSTRACT: Method Meta Object for destructors
135
136__END__