← 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:23:17 2010

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