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

Filename/home/doy/nytprof/kioku/accessor write_upgrades defined at /home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/KiokuDB/TypeMap/Entry/MOP.pm
StatementsExecuted 1 statements in 28µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sClass::MOP::Method::Generated::::__ANON__[accessor write_upgrades defined at KiokuDB/TypeMap/Entry/MOP.pm:46]Class::MOP::Method::Generated::__ANON__[accessor write_upgrades defined at KiokuDB/TypeMap/Entry/MOP.pm:46]
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1my $type_constraint = ${$__captures->{'$type_constraint'}};
2my $type_constraint_obj = ${$__captures->{'$type_constraint_obj'}};
3my $meta = ${$__captures->{'$meta'}};
4my $attr = ${$__captures->{'$attr'}};
5#line 46 "accessor write_upgrades defined at /home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/KiokuDB/TypeMap/Entry/MOP.pm"
6sub {$meta->throw_error("Cannot assign a value to a read-only accessor", data => \@_) if @_ > 1;return $_[0]->{"write_upgrades"};}
7;
8
- -
46
47128µs