Profile of accessor isa_entries (defined at /home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site

Filename	/home/doy/nytprof/kioku-new/accessor isa_entries (defined at /home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/KiokuDB/TypeMap.pm line 16)
Statements	Executed 2 statements in 48µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	29µs	29µs	Eval::Closure::__ANON__[accessor isa_entries (defined at KiokuDB/TypeMap.pm line 16):20]
0	0	0	0s	0s	Eval::Closure::__ANON__[accessor isa_entries (defined at KiokuDB/TypeMap.pm line 16):19]

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Code
1			# spent 29µs within Eval::Closure::__ANON__[accessor isa_entries (defined at /home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/KiokuDB/TypeMap.pm line 16):20] which was called: # once (29µs+0s) by Eval::Closure::_clean_eval_closure at line 94 of Eval/Closure.pm sub {
2			my $attr = ${$_[0]};
3			my $meta = ${$_[1]};
4			my $type_constraint = ${$_[2]};
5			my $type_constraint_obj = ${$_[3]};
6			#line 1 "accessor isa_entries (defined at /home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/KiokuDB/TypeMap.pm line 16)"
7			sub {
8			if (@_ > 1) {
9			$meta->throw_error("Cannot assign a value to a read-only accessor", data => \@_);
10			}
11			if (!exists $_[0]->{"isa_entries"}) {
12			my $default;
13			if (my $builder = $_[0]->can($attr->builder)) {
14			$default = $_[0]->$builder;
15			}
16			else {
17			my $class = ref($_[0]) \|\| $_[0];
18			my $builder_name = $attr->builder;
19			my $attr_name = $attr->name;
20	1	29µs	$meta->throw_error("$class does not support builder method '$builder_name' for attribute '$attr_name'");
21	1	19µs	}
22			$_[0]->{"isa_entries"} = $default;
23			}
24			return $_[0]->{"isa_entries"};
25			}
26			}
27			;