← Index
NYTProf Performance Profile   « block view • line view • sub view »
For 05.Domain_and_Item.t
  Run on Tue May 4 17:21:41 2010
Reported on Tue May 4 17:22:22 2010

File /usr/local/lib/perl5/site_perl/5.10.1/MooseX/AttributeHelpers/MethodProvider/Counter.pm
Statements Executed 7
Statement Execution Time 304µs
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11113µs1.46msMooseX::AttributeHelpers::MethodProvider::Counter::::BEGIN@3MooseX::AttributeHelpers::MethodProvider::Counter::BEGIN@3
0000s0sMooseX::AttributeHelpers::MethodProvider::Counter::::__ANON__[:11]MooseX::AttributeHelpers::MethodProvider::Counter::__ANON__[:11]
0000s0sMooseX::AttributeHelpers::MethodProvider::Counter::::__ANON__[:16]MooseX::AttributeHelpers::MethodProvider::Counter::__ANON__[:16]
0000s0sMooseX::AttributeHelpers::MethodProvider::Counter::::__ANON__[:21]MooseX::AttributeHelpers::MethodProvider::Counter::__ANON__[:21]
0000s0sMooseX::AttributeHelpers::MethodProvider::Counter::::__ANON__[:26]MooseX::AttributeHelpers::MethodProvider::Counter::__ANON__[:26]
0000s0sMooseX::AttributeHelpers::MethodProvider::Counter::::decMooseX::AttributeHelpers::MethodProvider::Counter::dec
0000s0sMooseX::AttributeHelpers::MethodProvider::Counter::::incMooseX::AttributeHelpers::MethodProvider::Counter::inc
0000s0sMooseX::AttributeHelpers::MethodProvider::Counter::::resetMooseX::AttributeHelpers::MethodProvider::Counter::reset
0000s0sMooseX::AttributeHelpers::MethodProvider::Counter::::setMooseX::AttributeHelpers::MethodProvider::Counter::set
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1
2package MooseX::AttributeHelpers::MethodProvider::Counter;
33271µs22.91ms
# spent 1.46ms (13µs+1.45) within MooseX::AttributeHelpers::MethodProvider::Counter::BEGIN@3 which was called # once (13µs+1.45ms) by MooseX::AttributeHelpers::Trait::Counter::BEGIN@9 at line 3
use Moose::Role;
4
51700nsour $VERSION = '0.23';
6122µs$VERSION = eval $VERSION;
71300nsour $AUTHORITY = 'cpan:STEVAN';
8
9sub reset : method {
10 my ($attr, $reader, $writer) = @_;
11 return sub { $writer->($_[0], $attr->default($_[0])) };
12}
13
14sub set : method {
15 my ($attr, $reader, $writer, $value) = @_;
16 return sub { $writer->($_[0], $_[1]) };
17}
18
19sub inc {
20 my ($attr, $reader, $writer) = @_;
21 return sub { $writer->($_[0], $reader->($_[0]) + (defined($_[1]) ? $_[1] : 1) ) };
22}
23
24sub dec {
25 my ($attr, $reader, $writer) = @_;
26 return sub { $writer->($_[0], $reader->($_[0]) - (defined($_[1]) ? $_[1] : 1) ) };
27}
28
29110µs1;
30
31__END__
32
33=pod
34
35=head1 NAME
36
37MooseX::AttributeHelpers::MethodProvider::Counter
38
39=head1 DESCRIPTION
40
41This is a role which provides the method generators for
42L<MooseX::AttributeHelpers::Counter>.
43
44=head1 METHODS
45
46=over 4
47
48=item B<meta>
49
50=back
51
52=head1 PROVIDED METHODS
53
54=over 4
55
56=item B<set>
57
58=item B<inc>
59
60=item B<dec>
61
62=item B<reset>
63
64=back
65
66=head1 BUGS
67
68All complex software has bugs lurking in it, and this module is no
69exception. If you find a bug please either email me, or add the bug
70to cpan-RT.
71
72=head1 AUTHOR
73
74Stevan Little E<lt>stevan@iinteractive.comE<gt>
75
76=head1 COPYRIGHT AND LICENSE
77
78Copyright 2007-2009 by Infinity Interactive, Inc.
79
80L<http://www.iinteractive.com>
81
82This library is free software; you can redistribute it and/or modify
83it under the same terms as Perl itself.
84
85=cut