← Index
NYTProf Performance Profile   « block view • line view • sub view »
For 01.HTTP.t
  Run on Tue May 4 15:25:55 2010
Reported on Tue May 4 15:26:24 2010

File /usr/local/lib/perl5/site_perl/5.10.1/darwin-2level/Moose/Meta/Role/Method/Conflicting.pm
Statements Executed 17
Statement Execution Time 202µs
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11114µs17µsMoose::Meta::Role::Method::Conflicting::::BEGIN@4Moose::Meta::Role::Method::Conflicting::BEGIN@4
1118µs119µsMoose::Meta::Role::Method::Conflicting::::BEGIN@7Moose::Meta::Role::Method::Conflicting::BEGIN@7
1117µs17µsMoose::Meta::Role::Method::Conflicting::::BEGIN@5Moose::Meta::Role::Method::Conflicting::BEGIN@5
1117µs47µsMoose::Meta::Role::Method::Conflicting::::BEGIN@9Moose::Meta::Role::Method::Conflicting::BEGIN@9
0000s0sMoose::Meta::Role::Method::Conflicting::::roles_as_english_listMoose::Meta::Role::Method::Conflicting::roles_as_english_list
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1
2package Moose::Meta::Role::Method::Conflicting;
3
4321µs220µs
# spent 17µs (14+3) within Moose::Meta::Role::Method::Conflicting::BEGIN@4 which was called # once (14µs+3µs) by Moose::Meta::Role::BEGIN@20 at line 4
use strict;
# spent 17µs making 1 call to Moose::Meta::Role::Method::Conflicting::BEGIN@4 # spent 3µs making 1 call to strict::import
5319µs226µs
# spent 17µs (7+9) within Moose::Meta::Role::Method::Conflicting::BEGIN@5 which was called # once (7µs+9µs) by Moose::Meta::Role::BEGIN@20 at line 5
use warnings;
# spent 17µs making 1 call to Moose::Meta::Role::Method::Conflicting::BEGIN@5 # spent 9µs making 1 call to warnings::import
6
7329µs2230µs
# spent 119µs (8+111) within Moose::Meta::Role::Method::Conflicting::BEGIN@7 which was called # once (8µs+111µs) by Moose::Meta::Role::BEGIN@20 at line 7
use Moose::Util;
# spent 119µs making 1 call to Moose::Meta::Role::Method::Conflicting::BEGIN@7 # spent 111µs making 1 call to Sub::Exporter::__ANON__[Sub/Exporter.pm:756]
8
93100µs288µs
# spent 47µs (7+40) within Moose::Meta::Role::Method::Conflicting::BEGIN@9 which was called # once (7µs+40µs) by Moose::Meta::Role::BEGIN@20 at line 9
use base qw(Moose::Meta::Role::Method::Required);
# spent 47µs making 1 call to Moose::Meta::Role::Method::Conflicting::BEGIN@9 # spent 40µs making 1 call to base::import
10
111600nsour $VERSION = '0.98';
12114µs$VERSION = eval $VERSION;
131300nsour $AUTHORITY = 'cpan:STEVAN';
14
1516µs2330µs__PACKAGE__->meta->add_attribute('roles' => (
# spent 269µs making 1 call to Class::MOP::Mixin::HasAttributes::add_attribute # spent 61µs making 1 call to Moose::Meta::Role::Method::Required::meta
16 reader => 'roles',
17 required => 1,
18));
19
20sub roles_as_english_list {
21 my $self = shift;
22 Moose::Util::english_list( map { q{'} . $_ . q{'} } @{ $self->roles } );
23}
24
25112µs1;
26
27__END__
28
29=pod
30
31=head1 NAME
32
33Moose::Meta::Role::Method::Conflicting - A Moose metaclass for conflicting methods in Roles
34
35=head1 DESCRIPTION
36
37=head1 INHERITANCE
38
39C<Moose::Meta::Role::Method::Conflicting> is a subclass of
40L<Moose::Meta::Role::Method::Required>.
41
42=head1 METHODS
43
44=over 4
45
46=item B<< Moose::Meta::Role::Method::Conflicting->new(%options) >>
47
48This creates a new type constraint based on the provided C<%options>:
49
50=over 8
51
52=item * name
53
54The method name. This is required.
55
56=item * roles
57
58The list of role names that generated the conflict. This is required.
59
60=back
61
62=item B<< $method->name >>
63
64Returns the conflicting method's name, as provided to the constructor.
65
66=item B<< $method->roles >>
67
68Returns the roles that generated this conflicting method, as provided to the
69constructor.
70
71=item B<< $method->roles_as_english_list >>
72
73Returns the roles that generated this conflicting method as an English list.
74
75=back
76
77=head1 BUGS
78
79See L<Moose/BUGS> for details on reporting bugs.
80
81=head1 AUTHOR
82
83Stevan Little E<lt>stevan@iinteractive.comE<gt>
84
85=head1 COPYRIGHT AND LICENSE
86
87Copyright 2006-2010 by Infinity Interactive, Inc.
88
89L<http://www.iinteractive.com>
90
91This library is free software; you can redistribute it and/or modify
92it under the same terms as Perl itself.
93
94=cut