← 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:25 2015

Filename/Users/ap13/perl5/lib/perl5/darwin-2level/Class/MOP/Method/Generated.pm
StatementsExecuted 5078 statements in 9.80ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
362745.70ms166msClass::MOP::Method::Generated::::_compile_codeClass::MOP::Method::Generated::_compile_code
362113.31ms3.60msClass::MOP::Method::Generated::::_generate_descriptionClass::MOP::Method::Generated::_generate_description
1111.18ms6.23msClass::MOP::Method::Generated::::BEGIN@7Class::MOP::Method::Generated::BEGIN@7
11118µs37µsClass::MOP::Method::Generated::::BEGIN@4Class::MOP::Method::Generated::BEGIN@4
11115µs62µsClass::MOP::Method::Generated::::BEGIN@9Class::MOP::Method::Generated::BEGIN@9
11111µs17µsClass::MOP::Method::Generated::::BEGIN@5Class::MOP::Method::Generated::BEGIN@5
0000s0sClass::MOP::Method::Generated::::_initialize_bodyClass::MOP::Method::Generated::_initialize_body
0000s0sClass::MOP::Method::Generated::::newClass::MOP::Method::Generated::new
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::Method::Generated;
211µsour $VERSION = '2.1403';
3
4235µs256µs
# spent 37µs (18+19) within Class::MOP::Method::Generated::BEGIN@4 which was called: # once (18µs+19µs) by parent::import at line 4
use strict;
# spent 37µs making 1 call to Class::MOP::Method::Generated::BEGIN@4 # spent 19µs making 1 call to strict::import
5240µs223µs
# spent 17µs (11+6) within Class::MOP::Method::Generated::BEGIN@5 which was called: # once (11µs+6µs) by parent::import at line 5
use warnings;
# spent 17µs making 1 call to Class::MOP::Method::Generated::BEGIN@5 # spent 6µs making 1 call to warnings::import
6
72188µs26.55ms
# spent 6.23ms (1.18+5.05) within Class::MOP::Method::Generated::BEGIN@7 which was called: # once (1.18ms+5.05ms) by parent::import at line 7
use Eval::Closure;
# spent 6.23ms making 1 call to Class::MOP::Method::Generated::BEGIN@7 # spent 320µs making 1 call to Sub::Exporter::__ANON__[Sub/Exporter.pm:337]
8
92429µs262µs
# spent 62µs (15+47) within Class::MOP::Method::Generated::BEGIN@9 which was called: # once (15µs+47µs) by parent::import at line 9
use parent 'Class::MOP::Method';
# spent 62µs making 1 call to Class::MOP::Method::Generated::BEGIN@9 # spent 47µs making 1 call to parent::import, recursion: max depth 1, sum of overlapping time 47µs
10
11## accessors
12
13sub new {
14 $_[0]->_throw_exception( CannotCallAnAbstractBaseMethod => package_name => __PACKAGE__ );
15}
16
17sub _initialize_body {
18 $_[0]->_throw_exception( NoBodyToInitializeInAnAbstractBaseClass => package_name => __PACKAGE__ );
19}
20
21
# spent 3.60ms (3.31+290µs) within Class::MOP::Method::Generated::_generate_description which was called 362 times, avg 10µs/call: # 362 times (3.31ms+290µs) by Class::MOP::Method::Generated::_compile_code at line 56, avg 10µs/call
sub _generate_description {
2228963.57ms my ( $self, $context ) = @_;
23362290µs $context ||= $self->definition_context;
# spent 290µs making 362 calls to Class::MOP::Method::Generated::definition_context, avg 802ns/call
24
25 my $desc = "generated method";
26 my $origin = "unknown origin";
27
28 if (defined $context) {
29 if (defined $context->{description}) {
30 $desc = $context->{description};
31 }
32
33 if (defined $context->{file} || defined $context->{line}) {
34 $origin = "defined at "
35 . (defined $context->{file}
36 ? $context->{file} : "<unknown file>")
37 . " line "
38 . (defined $context->{line}
39 ? $context->{line} : "<unknown line>");
40 }
41 }
42
43 return "$desc ($origin)";
44}
45
46
# spent 166ms (5.70+161) within Class::MOP::Method::Generated::_compile_code which was called 362 times, avg 459µs/call: # 207 times (3.22ms+79.2ms) by Moose::Meta::Method::Accessor::try {...} at line 34 of Moose/Meta/Method/Accessor.pm, avg 398µs/call # 54 times (699µs+9.34ms) by Class::MOP::Method::Accessor::try {...} at line 151 of Class/MOP/Method/Accessor.pm, avg 186µs/call # 46 times (989µs+63.4ms) by Class::MOP::Method::Constructor::try {...} at line 107 of Class/MOP/Method/Constructor.pm, avg 1.40ms/call # 21 times (306µs+3.63ms) by Class::MOP::Method::Accessor::try {...} at line 113 of Class/MOP/Method/Accessor.pm, avg 187µs/call # 16 times (264µs+2.69ms) by Moose::Meta::Method::Destructor::try {...} at line 92 of Moose/Meta/Method/Destructor.pm, avg 185µs/call # 15 times (184µs+1.87ms) by Class::MOP::Method::Accessor::try {...} at line 219 of Class/MOP/Method/Accessor.pm, avg 137µs/call # 3 times (36µs+415µs) by Class::MOP::Method::Accessor::try {...} at line 191 of Class/MOP/Method/Accessor.pm, avg 150µs/call
sub _compile_code {
4721725.53ms my ( $self, @args ) = @_;
48 unshift @args, 'source' if @args % 2;
49 my %args = @args;
50
51 my $context = delete $args{context};
5261540.4ms my $environment = $self->can('_eval_environment')
# spent 21.5ms making 46 calls to Class::MOP::Method::Constructor::_eval_environment, avg 467µs/call # spent 18.4ms making 207 calls to Moose::Meta::Method::Accessor::_eval_environment, avg 89µs/call # spent 439µs making 362 calls to UNIVERSAL::can, avg 1µs/call
53 ? $self->_eval_environment
54 : {};
55
56724120ms return eval_closure(
# spent 117ms making 362 calls to Eval::Closure::eval_closure, avg 322µs/call # spent 3.60ms making 362 calls to Class::MOP::Method::Generated::_generate_description, avg 10µs/call
57 environment => $environment,
58 description => $self->_generate_description($context),
59 %args,
60 );
61}
62
6315µs1;
64
65# ABSTRACT: Abstract base class for generated methods
66
67__END__