| Filename | /home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/MooseX/Types/Util.pm |
| Statements | Executed 37 statements in 1.20ms |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 172µs | 198µs | MooseX::Types::Util::filter_tags |
| 1 | 1 | 1 | 78µs | 151µs | MooseX::Types::Util::BEGIN@10 |
| 1 | 1 | 1 | 38µs | 53µs | MooseX::Types::Util::BEGIN@11 |
| 1 | 1 | 1 | 37µs | 199µs | MooseX::Types::Util::BEGIN@12 |
| 1 | 1 | 1 | 36µs | 273µs | MooseX::Types::Util::BEGIN@14 |
| 9 | 1 | 1 | 25µs | 25µs | MooseX::Types::Util::CORE:match (opcode) |
| 0 | 0 | 0 | 0s | 0s | MooseX::Types::Util::has_available_type_export |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package MooseX::Types::Util; | ||||
| 2 | 1 | 4µs | our $VERSION = "0.23"; | ||
| 3 | |||||
| 4 | =head1 NAME | ||||
| 5 | |||||
| - - | |||||
| 10 | 3 | 106µs | 2 | 225µs | # spent 151µs (78+73) within MooseX::Types::Util::BEGIN@10 which was called:
# once (78µs+73µs) by MooseX::Types::Base::BEGIN@12 at line 10 # spent 151µs making 1 call to MooseX::Types::Util::BEGIN@10
# spent 73µs making 1 call to warnings::import |
| 11 | 3 | 96µs | 2 | 68µs | # spent 53µs (38+15) within MooseX::Types::Util::BEGIN@11 which was called:
# once (38µs+15µs) by MooseX::Types::Base::BEGIN@12 at line 11 # spent 53µs making 1 call to MooseX::Types::Util::BEGIN@11
# spent 15µs making 1 call to strict::import |
| 12 | 3 | 110µs | 2 | 361µs | # spent 199µs (37+162) within MooseX::Types::Util::BEGIN@12 which was called:
# once (37µs+162µs) by MooseX::Types::Base::BEGIN@12 at line 12 # spent 199µs making 1 call to MooseX::Types::Util::BEGIN@12
# spent 162µs making 1 call to Exporter::import |
| 13 | |||||
| 14 | 3 | 662µs | 2 | 510µs | # spent 273µs (36+237) within MooseX::Types::Util::BEGIN@14 which was called:
# once (36µs+237µs) by MooseX::Types::Base::BEGIN@12 at line 14 # spent 273µs making 1 call to MooseX::Types::Util::BEGIN@14
# spent 237µs making 1 call to base::import |
| 15 | |||||
| 16 | =head1 DESCRIPTION | ||||
| 17 | |||||
| - - | |||||
| 23 | 1 | 6µs | our @EXPORT_OK = qw( filter_tags has_available_type_export ); | ||
| 24 | |||||
| 25 | =head1 FUNCTIONS | ||||
| 26 | |||||
| - - | |||||
| 35 | # spent 198µs (172+25) within MooseX::Types::Util::filter_tags which was called:
# once (172µs+25µs) by MooseX::Types::import at line 345 of MooseX/Types.pm | ||||
| 36 | 1 | 10µs | my (@list) = @_; | ||
| 37 | 1 | 3µs | my (%tags, @other); | ||
| 38 | 1 | 6µs | for (@list) { | ||
| 39 | 9 | 109µs | 9 | 25µs | if (/^:(.*)$/) { # spent 25µs making 9 calls to MooseX::Types::Util::CORE:match, avg 3µs/call |
| 40 | $tags{ $1 }++; | ||||
| 41 | next; | ||||
| 42 | } | ||||
| 43 | 9 | 56µs | push @other, $_; | ||
| 44 | } | ||||
| 45 | 1 | 20µs | return \%tags, \@other; | ||
| 46 | } | ||||
| 47 | |||||
| 48 | =head2 has_available_type_export | ||||
| 49 | |||||
| - - | |||||
| 86 | sub has_available_type_export { | ||||
| 87 | my ($package, $name) = @_; | ||||
| 88 | |||||
| 89 | my $sub = $package->can($name) | ||||
| 90 | or return undef; | ||||
| 91 | |||||
| 92 | return undef | ||||
| 93 | unless blessed $sub && $sub->isa('MooseX::Types::EXPORTED_TYPE_CONSTRAINT'); | ||||
| 94 | |||||
| 95 | return $sub->(); | ||||
| 96 | } | ||||
| 97 | |||||
| 98 | =head1 SEE ALSO | ||||
| 99 | |||||
| - - | |||||
| 113 | 1 | 13µs | 1; | ||
# spent 25µs within MooseX::Types::Util::CORE:match which was called 9 times, avg 3µs/call:
# 9 times (25µs+0s) by MooseX::Types::Util::filter_tags at line 39, avg 3µs/call |