← 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/Trait/String.pm
Statements Executed 17
Statement Execution Time 404µs
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
111689µs2.20msMooseX::AttributeHelpers::Trait::String::::BEGIN@9MooseX::AttributeHelpers::Trait::String::BEGIN@9
11113µs1.43msMooseX::AttributeHelpers::Trait::String::::BEGIN@3MooseX::AttributeHelpers::Trait::String::BEGIN@3
1118µs101µsMooseX::AttributeHelpers::Trait::String::::BEGIN@48MooseX::AttributeHelpers::Trait::String::BEGIN@48
0000s0sMooseX::AttributeHelpers::Trait::String::::__ANON__[:32]MooseX::AttributeHelpers::Trait::String::__ANON__[:32]
0000s0sMooseX::AttributeHelpers::Trait::String::::__ANON__[:46]MooseX::AttributeHelpers::Trait::String::__ANON__[:46]
0000s0sMooseX::AttributeHelpers::Trait::String::::helper_typeMooseX::AttributeHelpers::Trait::String::helper_type
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::Trait::String;
3350µs22.85ms
# spent 1.43ms (13µs+1.42) within MooseX::AttributeHelpers::Trait::String::BEGIN@3 which was called # once (13µs+1.42ms) by MooseX::AttributeHelpers::BEGIN@16 at line 3
use Moose::Role;
# spent 1.43ms making 1 call to MooseX::AttributeHelpers::Trait::String::BEGIN@3 # spent 1.42ms making 1 call to Moose::Exporter::__ANON__[Moose/Exporter.pm:389]
4
51600nsour $VERSION = '0.23';
6115µs$VERSION = eval $VERSION;
71300nsour $AUTHORITY = 'cpan:STEVAN';
8
93272µs12.20ms
# spent 2.20ms (689µs+1.52) within MooseX::AttributeHelpers::Trait::String::BEGIN@9 which was called # once (689µs+1.52ms) by MooseX::AttributeHelpers::BEGIN@16 at line 9
use MooseX::AttributeHelpers::MethodProvider::String;
# spent 2.20ms making 1 call to MooseX::AttributeHelpers::Trait::String::BEGIN@9
10
1113µs12.12mswith 'MooseX::AttributeHelpers::Trait::Base';
# spent 2.12ms making 1 call to Moose::Role::with
12
1312µs194µshas 'method_provider' => (
# spent 94µs making 1 call to Moose::Role::has
14 is => 'ro',
15 isa => 'ClassName',
16 predicate => 'has_method_provider',
17 default => 'MooseX::AttributeHelpers::MethodProvider::String',
18);
19
20sub helper_type { 'Str' }
21
22before 'process_options_for_provides' => sub {
23 my ($self, $options, $name) = @_;
24
25 # Set some default attribute options here unless already defined
26 if ((my $type = $self->helper_type) && !exists $options->{isa}){
27 $options->{isa} = $type;
28 }
29
30 $options->{is} = 'rw' unless exists $options->{is};
31 $options->{default} = '' unless exists $options->{default};
3213µs134µs};
# spent 34µs making 1 call to Moose::Role::before
33
34after 'check_provides_values' => sub {
35 my $self = shift;
36 my $provides = $self->provides;
37
38 unless (scalar keys %$provides) {
39 my $method_constructors = $self->method_constructors;
40 my $attr_name = $self->name;
41
42 foreach my $method (keys %$method_constructors) {
43 $provides->{$method} = ($method . '_' . $attr_name);
44 }
45 }
4613µs132µs};
# spent 32µs making 1 call to Moose::Role::after
47
48332µs2195µs
# spent 101µs (8+94) within MooseX::AttributeHelpers::Trait::String::BEGIN@48 which was called # once (8µs+94µs) by MooseX::AttributeHelpers::BEGIN@16 at line 48
no Moose::Role;
49
50124µs1;
51
52__END__
53
54=pod
55
56=head1 NAME
57
58MooseX::AttributeHelpers::String
59
60=head1 SYNOPSIS
61
62 package MyHomePage;
63 use Moose;
64 use MooseX::AttributeHelpers;
65
66 has 'text' => (
67 metaclass => 'String',
68 is => 'rw',
69 isa => 'Str',
70 default => sub { '' },
71 provides => {
72 append => "add_text",
73 replace => "replace_text",
74 }
75 );
76
77 my $page = MyHomePage->new();
78 $page->add_text("foo"); # same as $page->text($page->text . "foo");
79
80=head1 DESCRIPTION
81
82This module provides a simple string attribute, to which mutating string
83operations can be applied more easily (no need to make an lvalue attribute
84metaclass or use temporary variables). Additional methods are provided for
85completion.
86
87If your attribute definition does not include any of I<is>, I<isa>,
88I<default> or I<provides> but does use the C<String> metaclass,
89then this module applies defaults as in the L</SYNOPSIS>
90above. This allows for a very basic counter definition:
91
92 has 'foo' => (metaclass => 'String');
93 $obj->append_foo;
94
95=head1 METHODS
96
97=over 4
98
99=item B<meta>
100
101=item B<method_provider>
102
103=item B<has_method_provider>
104
105=item B<helper_type>
106
107=item B<process_options_for_provides>
108
109Run before its superclass method.
110
111=item B<check_provides_values>
112
113Run after its superclass method.
114
115=back
116
117=head1 PROVIDED METHODS
118
119It is important to note that all those methods do in place
120modification of the value stored in the attribute.
121
122=over 4
123
124=item I<inc>
125
126Increments the value stored in this slot using the magical string autoincrement
127operator. Note that Perl doesn't provide analogeous behavior in C<-->, so
128C<dec> is not available.
129
130=item I<append> C<$string>
131
132Append a string, like C<.=>.
133
134=item I<prepend> C<$string>
135
136Prepend a string.
137
138=item I<replace> C<$pattern> C<$replacement>
139
140Performs a regexp substitution (L<perlop/s>). There is no way to provide the
141C<g> flag, but code references will be accepted for the replacement, causing
142the regex to be modified with a single C<e>. C</smxi> can be applied using the
143C<qr> operator.
144
145=item I<match> C<$pattern>
146
147Like I<replace> but without the replacement. Provided mostly for completeness.
148
149=item C<chop>
150
151L<perlfunc/chop>
152
153=item C<chomp>
154
155L<perlfunc/chomp>
156
157=item C<clear>
158
159Sets the string to the empty string (not the value passed to C<default>).
160
161=back
162
163=head1 BUGS
164
165All complex software has bugs lurking in it, and this module is no
166exception. If you find a bug please either email me, or add the bug
167to cpan-RT.
168
169=head1 AUTHOR
170
171Stevan Little E<lt>stevan@iinteractive.comE<gt>
172
173=head1 COPYRIGHT AND LICENSE
174
175Copyright 2007-2009 by Infinity Interactive, Inc.
176
177L<http://www.iinteractive.com>
178
179This library is free software; you can redistribute it and/or modify
180it under the same terms as Perl itself.
181
182=cut