← Index
Performance Profile   « block view • line view • sub view »
For t/test-parsing
  Run on Sun Nov 14 09:49:57 2010
Reported on Sun Nov 14 09:50:08 2010

File /usr/local/lib/perl/5.10.0/Moose/Meta/Role/Method/Conflicting.pm
Statements Executed 17
Total Time 0.0003073 seconds
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sMoose::Meta::Role::Method::Conflicting::::BEGINMoose::Meta::Role::Method::Conflicting::BEGIN
0000s0sMoose::Meta::Role::Method::Conflicting::::roles_as_english_listMoose::Meta::Role::Method::Conflicting::roles_as_english_list
LineStmts.Exclusive
Time
Avg.Code
1
2package Moose::Meta::Role::Method::Conflicting;
3
4328µs9µsuse strict;
# spent 12µs making 1 call to strict::import
5332µs11µsuse warnings;
# spent 29µs making 1 call to warnings::import
6
7342µs14µsuse Moose::Util;
8
93152µs51µsuse base qw(Moose::Meta::Role::Method::Required);
# spent 83µs making 1 call to base::import
10
111600ns600nsour $VERSION = '1.15';
12122µs22µs$VERSION = eval $VERSION;
131600ns600nsour $AUTHORITY = 'cpan:STEVAN';
14
15122µs22µs__PACKAGE__->meta->add_attribute('roles' => (
# spent 632µs making 1 call to Moose::Meta::Role::Method::Required::meta # spent 592µs making 1 call to Class::MOP::Mixin::HasAttributes::add_attribute
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
2519µs9µ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