Profile of /usr/lib/perl5/vendor_perl/5.10.1/i386-linux-thread-multi/Moose/Meta/Role/Method/Conflicting.pm

File	/usr/lib/perl5/vendor_perl/5.10.1/i386-linux-thread-multi/Moose/Meta/Role/Method/Conflicting.pm
Statements Executed	17
Statement Execution Time	399µs

Subroutines — ordered by exclusive time
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	49µs	55µs	Moose::Meta::Role::Method::Conflicting::BEGIN@4
1	1	1	27µs	54µs	Moose::Meta::Role::Method::Conflicting::BEGIN@5
1	1	1	15µs	105µs	Moose::Meta::Role::Method::Conflicting::BEGIN@9
1	1	1	15µs	369µs	Moose::Meta::Role::Method::Conflicting::BEGIN@7
0	0	0	0s	0s	Moose::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
2					package Moose::Meta::Role::Method::Conflicting;
3
4	3	41µs	2	62µs	# spent 55µs (49+6) within Moose::Meta::Role::Method::Conflicting::BEGIN@4 which was called # once (49µs+6µs) by Moose::Meta::Role::BEGIN@20 at line 4 use strict; # spent 55µs making 1 call to Moose::Meta::Role::Method::Conflicting::BEGIN@4 # spent 6µs making 1 call to strict::import
5	3	39µs	2	82µs	# spent 54µs (27+28) within Moose::Meta::Role::Method::Conflicting::BEGIN@5 which was called # once (27µs+28µs) by Moose::Meta::Role::BEGIN@20 at line 5 use warnings; # spent 54µs making 1 call to Moose::Meta::Role::Method::Conflicting::BEGIN@5 # spent 28µs making 1 call to warnings::import
6
7	3	53µs	2	724µs	# spent 369µs (15+354) within Moose::Meta::Role::Method::Conflicting::BEGIN@7 which was called # once (15µs+354µs) by Moose::Meta::Role::BEGIN@20 at line 7 use Moose::Util; # spent 369µs making 1 call to Moose::Meta::Role::Method::Conflicting::BEGIN@7 # spent 354µs making 1 call to Sub::Exporter::__ANON__[Sub/Exporter.pm:756]
8
9	3	174µs	2	194µs	# spent 105µs (15+90) within Moose::Meta::Role::Method::Conflicting::BEGIN@9 which was called # once (15µs+90µs) by Moose::Meta::Role::BEGIN@20 at line 9 use base qw(Moose::Meta::Role::Method::Required); # spent 105µs making 1 call to Moose::Meta::Role::Method::Conflicting::BEGIN@9 # spent 90µs making 1 call to base::import
10
11	1	1µs			our $VERSION = '1.01';
12	1	24µs			$VERSION = eval $VERSION;
13	1	1µs			our $AUTHORITY = 'cpan:STEVAN';
14
15	1	12µs	2	1.12ms	__PACKAGE__->meta->add_attribute('roles' => ( # spent 949µs making 1 call to Class::MOP::Mixin::HasAttributes::add_attribute # spent 173µs making 1 call to Moose::Meta::Role::Method::Required::meta
16					reader => 'roles',
17					required => 1,
18					));
19
20					sub roles_as_english_list {
21					my $self = shift;
22					Moose::Util::english_list( map { q{'} . $_ . q{'} } @{ $self->roles } );
23					}
24
25	1	53µs			1;
26
27					__END__
28
29					=pod
30
31					=head1 NAME
32
33					Moose::Meta::Role::Method::Conflicting - A Moose metaclass for conflicting methods in Roles
34
35					=head1 DESCRIPTION
36
37					=head1 INHERITANCE
38
39					C<Moose::Meta::Role::Method::Conflicting> is a subclass of
40					L<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
48					This creates a new type constraint based on the provided C<%options>:
49
50					=over 8
51
52					=item * name
53
54					The method name. This is required.
55
56					=item * roles
57
58					The list of role names that generated the conflict. This is required.
59
60					=back
61
62					=item B<< $method->name >>
63
64					Returns the conflicting method's name, as provided to the constructor.
65
66					=item B<< $method->roles >>
67
68					Returns the roles that generated this conflicting method, as provided to the
69					constructor.
70
71					=item B<< $method->roles_as_english_list >>
72
73					Returns the roles that generated this conflicting method as an English list.
74
75					=back
76
77					=head1 BUGS
78
79					See L<Moose/BUGS> for details on reporting bugs.
80
81					=head1 AUTHOR
82
83					Stevan Little E<lt>stevan@iinteractive.comE<gt>
84
85					=head1 COPYRIGHT AND LICENSE
86
87					Copyright 2006-2010 by Infinity Interactive, Inc.
88
89					L<http://www.iinteractive.com>
90
91					This library is free software; you can redistribute it and/or modify
92					it under the same terms as Perl itself.
93
94					=cut