Filename	/home/doy/nytprof/markdent/accessor _used_default_is defined at /home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Moose/Meta/Attribute/Native/Trait.pm
Statements	Executed 17 statements in 305µs

Subroutines

Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
0	0	0	0s	0s	Class::MOP::Method::Generated::::__ANON__[accessor _used_default_is defined at Moose/Meta/Attribute/Native/Trait.pm:29]Class::MOP::Method::Generated::__ANON__[accessor _used_default_is defined at Moose/Meta/Attribute/Native/Trait.pm:29]

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

Line	State ments	Time on line	Calls	Time in subs	Code
1					my $type_constraint = ${$__captures->{'$type_constraint'}};
2					my $type_constraint_obj = ${$__captures->{'$type_constraint_obj'}};
3					my $meta = ${$__captures->{'$meta'}};
4					my $attr = ${$__captures->{'$attr'}};
5					#line 15 "accessor _used_default_is defined at /home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Moose/Meta/Attribute/Native/Trait.pm"
6					sub {
7
8					if (scalar(@_) >= 2) {
9
- -
12					$type_constraint->($_[1]) || $meta->throw_error("Attribute (_used_default_is) does not pass the type constraint because: " . $type_constraint_obj->get_message($_[1]), data => $_[1]);
13
14					$_[0]->{"_used_default_is"} = $_[1];
15
16					}
17	12	141µs
18
19					return $_[0]->{"_used_default_is"}
20					}
21					;
22
- -
30	5	164µs