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

File /usr/local/lib/perl/5.10.0/Class/MOP/Mixin.pm
Statements Executed 49
Total Time 0.0003538 seconds
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sClass::MOP::Mixin::::BEGINClass::MOP::Mixin::BEGIN
LineStmts.Exclusive
Time
Avg.Code
1package Class::MOP::Mixin;
2
3322µs7µsuse strict;
# spent 7µs making 1 call to strict::import
4363µs21µsuse warnings;
# spent 21µs making 1 call to warnings::import
5
61700ns700nsour $VERSION = '1.09';
7125µs25µs$VERSION = eval $VERSION;
819µs9µsour $AUTHORITY = 'cpan:STEVAN';
9
10373µs24µsuse Scalar::Util 'blessed';
# spent 38µs making 1 call to Exporter::import
11
12sub meta {
1336157µs4µs require Class::MOP::Class;
14 Class::MOP::Class->initialize( blessed( $_[0] ) || $_[0] );
# spent 2.14ms making 18 calls to Class::MOP::Class::initialize, avg 119µs/call # spent 47µs making 18 calls to Scalar::Util::blessed, avg 3µs/call
15}
16
1714µs4µs1;
18
19__END__
20
21=pod
22
23=head1 NAME
24
25Class::MOP::Mixin - Base class for mixin classes
26
27=head1 DESCRIPTION
28
29This class provides a single method shared by all mixins
30
31=head1 METHODS
32
33This class provides a few methods which are useful in all metaclasses.
34
35=over 4
36
37=item B<< Class::MOP::Mixin->meta >>
38
39This returns a L<Class::MOP::Class> object for the mixin class.
40
41=back
42
43=head1 AUTHORS
44
45Dave Rolsky E<lt>autarch@urth.orgE<gt>
46
47=head1 COPYRIGHT AND LICENSE
48
49Copyright 2006-2010 by Infinity Interactive, Inc.
50
51L<http://www.iinteractive.com>
52
53This library is free software; you can redistribute it and/or modify
54it under the same terms as Perl itself.
55
56=cut