Filename | /home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/site_perl/5.13.5/MouseX/Getopt/Dashes.pm |
Statements | Executed 119 statements in 621µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
22 | 1 | 1 | 481µs | 3.43ms | __ANON__[:24] | MouseX::Getopt::Dashes::
1 | 1 | 1 | 20µs | 20µs | BEGIN@2 | MouseX::Getopt::Dashes::
1 | 1 | 1 | 12µs | 309µs | BEGIN@10 | MouseX::Getopt::Dashes::
1 | 1 | 1 | 11µs | 100µs | BEGIN@26 | MouseX::Getopt::Dashes::
1 | 1 | 1 | 5µs | 5µs | BEGIN@5 | MouseX::Getopt::Dashes::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package MouseX::Getopt::Dashes; | ||||
2 | # spent 20µs within MouseX::Getopt::Dashes::BEGIN@2 which was called:
# once (20µs+0s) by Mouse::Util::_try_load_one_class at line 4 | ||||
3 | 1 | 7µs | $MouseX::Getopt::Dashes::AUTHORITY = 'cpan:STEVAN'; | ||
4 | 1 | 23µs | 1 | 20µs | } # spent 20µs making 1 call to MouseX::Getopt::Dashes::BEGIN@2 |
5 | # spent 5µs within MouseX::Getopt::Dashes::BEGIN@5 which was called:
# once (5µs+0s) by Mouse::Util::_try_load_one_class at line 7 | ||||
6 | 1 | 6µs | $MouseX::Getopt::Dashes::VERSION = '0.33'; | ||
7 | 1 | 21µs | 1 | 5µs | } # spent 5µs making 1 call to MouseX::Getopt::Dashes::BEGIN@5 |
8 | # ABSTRACT: convert underscores in attribute names to dashes | ||||
9 | |||||
10 | 2 | 105µs | 2 | 606µs | # spent 309µs (12+297) within MouseX::Getopt::Dashes::BEGIN@10 which was called:
# once (12µs+297µs) by Mouse::Util::_try_load_one_class at line 10 # spent 309µs making 1 call to MouseX::Getopt::Dashes::BEGIN@10
# spent 297µs making 1 call to Mouse::Exporter::do_import |
11 | |||||
12 | 1 | 4µs | 1 | 1.59ms | with 'MouseX::Getopt'; # spent 1.59ms making 1 call to Mouse::Role::with |
13 | |||||
14 | # spent 3.43ms (481µs+2.95) within MouseX::Getopt::Dashes::__ANON__[/home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/site_perl/5.13.5/MouseX/Getopt/Dashes.pm:24] which was called 22 times, avg 156µs/call:
# 22 times (481µs+2.95ms) by Mouse::Meta::Class::__ANON__[/home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/site_perl/5.13.5/x86_64-linux/Mouse/Meta/Class.pm:379] at line 379 of Mouse/Meta/Class.pm, avg 156µs/call | ||||
15 | 22 | 25µs | my $next = shift; | ||
16 | 22 | 33µs | my ( $class, $attr, @rest ) = @_; | ||
17 | |||||
18 | 22 | 88µs | 22 | 1.83ms | my ( $flag, @aliases ) = $class->$next($attr, @rest); # spent 1.83ms making 22 calls to MouseX::Getopt::Basic::_get_cmd_flags_for_attr, avg 83µs/call |
19 | 22 | 166µs | 39 | 89µs | $flag =~ tr/_/-/ # spent 63µs making 22 calls to Mouse::Util::does, avg 3µs/call
# spent 26µs making 17 calls to Mouse::Meta::Class::__ANON__::2::has_cmd_flag, avg 2µs/call |
20 | unless $attr->does('MouseX::Getopt::Meta::Attribute::Trait') | ||||
21 | && $attr->has_cmd_flag; | ||||
22 | |||||
23 | 22 | 107µs | return ( $flag, @aliases ); | ||
24 | 1 | 6µs | 1 | 48µs | }; # spent 48µs making 1 call to Mouse::Role::around |
25 | |||||
26 | 2 | 26µs | 2 | 190µs | # spent 100µs (11+89) within MouseX::Getopt::Dashes::BEGIN@26 which was called:
# once (11µs+89µs) by Mouse::Util::_try_load_one_class at line 26 # spent 100µs making 1 call to MouseX::Getopt::Dashes::BEGIN@26
# spent 89µs making 1 call to Mouse::Exporter::do_unimport |
27 | |||||
28 | 1 | 5µs | 1; | ||
29 | |||||
30 | |||||
31 | __END__ |