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

File /usr/local/lib/perl5/site_perl/5.10.1/MooseX/AttributeHelpers/MethodProvider/Bool.pm
Statements Executed 7
Statement Execution Time 223µs
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11117µs1.38msMooseX::AttributeHelpers::MethodProvider::Bool::::BEGIN@3MooseX::AttributeHelpers::MethodProvider::Bool::BEGIN@3
0000s0sMooseX::AttributeHelpers::MethodProvider::Bool::::__ANON__[:11]MooseX::AttributeHelpers::MethodProvider::Bool::__ANON__[:11]
0000s0sMooseX::AttributeHelpers::MethodProvider::Bool::::__ANON__[:16]MooseX::AttributeHelpers::MethodProvider::Bool::__ANON__[:16]
0000s0sMooseX::AttributeHelpers::MethodProvider::Bool::::__ANON__[:21]MooseX::AttributeHelpers::MethodProvider::Bool::__ANON__[:21]
0000s0sMooseX::AttributeHelpers::MethodProvider::Bool::::__ANON__[:26]MooseX::AttributeHelpers::MethodProvider::Bool::__ANON__[:26]
0000s0sMooseX::AttributeHelpers::MethodProvider::Bool::::notMooseX::AttributeHelpers::MethodProvider::Bool::not
0000s0sMooseX::AttributeHelpers::MethodProvider::Bool::::setMooseX::AttributeHelpers::MethodProvider::Bool::set
0000s0sMooseX::AttributeHelpers::MethodProvider::Bool::::toggleMooseX::AttributeHelpers::MethodProvider::Bool::toggle
0000s0sMooseX::AttributeHelpers::MethodProvider::Bool::::unsetMooseX::AttributeHelpers::MethodProvider::Bool::unset
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::Bool;
33197µs22.74ms
# spent 1.38ms (17µs+1.36) within MooseX::AttributeHelpers::MethodProvider::Bool::BEGIN@3 which was called # once (17µs+1.36ms) by MooseX::AttributeHelpers::Trait::Bool::BEGIN@3 at line 3
use Moose::Role;
4
51600nsour $VERSION = '0.23';
6115µs$VERSION = eval $VERSION;
71300nsour $AUTHORITY = 'cpan:STEVAN';
8
9sub set : method {
10 my ($attr, $reader, $writer) = @_;
11 return sub { $writer->($_[0], 1) };
12}
13
14sub unset : method {
15 my ($attr, $reader, $writer) = @_;
16 return sub { $writer->($_[0], 0) };
17}
18
19sub toggle : method {
20 my ($attr, $reader, $writer) = @_;
21 return sub { $writer->($_[0], !$reader->($_[0])) };
22}
23
24sub not : method {
25 my ($attr, $reader, $writer) = @_;
26 return sub { !$reader->($_[0]) };
27}
28
29110µs1;
30
31__END__
32
33=pod
34
35=head1 NAME
36
37MooseX::AttributeHelpers::MethodProvider::Bool
38
39=head1 DESCRIPTION
40
41This is a role which provides the method generators for
42L<MooseX::AttributeHelpers::Bool>.
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<unset>
59
60=item B<toggle>
61
62=item B<not>
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
74Jason May E<lt>jason.a.may@gmail.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