Filename | /usr/local/share/perl/5.18.2/Sub/Exporter/Progressive.pm |
Statements | Executed 142 statements in 1.66ms |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 3.65ms | 3.91ms | BEGIN@8 | Sub::Exporter::Progressive::
3 | 1 | 1 | 170µs | 216µs | sub_export_options | Sub::Exporter::Progressive::
3 | 3 | 3 | 84µs | 300µs | import | Sub::Exporter::Progressive::
3 | 3 | 3 | 76µs | 115µs | __ANON__[:40] | Sub::Exporter::Progressive::
13 | 4 | 1 | 21µs | 21µs | CORE:match (opcode) | Sub::Exporter::Progressive::
1 | 1 | 1 | 14µs | 31µs | BEGIN@3 | Sub::Exporter::Progressive::
1 | 1 | 1 | 9µs | 14µs | BEGIN@4 | Sub::Exporter::Progressive::
1 | 1 | 1 | 8µs | 22µs | BEGIN@18 | Sub::Exporter::Progressive::
1 | 1 | 1 | 8µs | 23µs | BEGIN@23 | Sub::Exporter::Progressive::
1 | 1 | 1 | 5µs | 5µs | BEGIN@9 | Sub::Exporter::Progressive::
2 | 1 | 1 | 2µs | 2µs | CORE:subst (opcode) | Sub::Exporter::Progressive::
0 | 0 | 0 | 0s | 0s | __ANON__[:26] | Sub::Exporter::Progressive::
0 | 0 | 0 | 0s | 0s | __ANON__[:32] | Sub::Exporter::Progressive::
0 | 0 | 0 | 0s | 0s | __ANON__[:66] | Sub::Exporter::Progressive::
0 | 0 | 0 | 0s | 0s | __ANON__[:71] | Sub::Exporter::Progressive::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package Sub::Exporter::Progressive; | ||||
2 | |||||
3 | 2 | 30µs | 2 | 48µs | # spent 31µs (14+17) within Sub::Exporter::Progressive::BEGIN@3 which was called:
# once (14µs+17µs) by Devel::GlobalDestruction::BEGIN@8 at line 3 # spent 31µs making 1 call to Sub::Exporter::Progressive::BEGIN@3
# spent 17µs making 1 call to strict::import |
4 | 2 | 48µs | 2 | 19µs | # spent 14µs (9+5) within Sub::Exporter::Progressive::BEGIN@4 which was called:
# once (9µs+5µs) by Devel::GlobalDestruction::BEGIN@8 at line 4 # spent 14µs making 1 call to Sub::Exporter::Progressive::BEGIN@4
# spent 5µs making 1 call to warnings::import |
5 | |||||
6 | 1 | 1µs | our $VERSION = '0.001011'; | ||
7 | |||||
8 | 2 | 127µs | 1 | 3.91ms | # spent 3.91ms (3.65+256µs) within Sub::Exporter::Progressive::BEGIN@8 which was called:
# once (3.65ms+256µs) by Devel::GlobalDestruction::BEGIN@8 at line 8 # spent 3.91ms making 1 call to Sub::Exporter::Progressive::BEGIN@8 |
9 | 2 | 70µs | 1 | 5µs | # spent 5µs within Sub::Exporter::Progressive::BEGIN@9 which was called:
# once (5µs+0s) by Devel::GlobalDestruction::BEGIN@8 at line 9 # spent 5µs making 1 call to Sub::Exporter::Progressive::BEGIN@9 |
10 | |||||
11 | # spent 300µs (84+216) within Sub::Exporter::Progressive::import which was called 3 times, avg 100µs/call:
# once (30µs+95µs) by Devel::GlobalDestruction::BEGIN@8 at line 8 of Devel/GlobalDestruction.pm
# once (29µs+63µs) by B::Hooks::EndOfScope::XS::BEGIN@10 at line 10 of B/Hooks/EndOfScope/XS.pm
# once (26µs+58µs) by B::Hooks::EndOfScope::BEGIN@23 at line 23 of B/Hooks/EndOfScope.pm | ||||
12 | 3 | 5µs | my ($self, @args) = @_; | ||
13 | |||||
14 | 3 | 3µs | my $inner_target = caller; | ||
15 | 3 | 7µs | 3 | 216µs | my $export_data = sub_export_options($inner_target, @args); # spent 216µs making 3 calls to Sub::Exporter::Progressive::sub_export_options, avg 72µs/call |
16 | |||||
17 | 3 | 800ns | my $full_exporter; | ||
18 | 2 | 85µs | 2 | 36µs | # spent 22µs (8+14) within Sub::Exporter::Progressive::BEGIN@18 which was called:
# once (8µs+14µs) by Devel::GlobalDestruction::BEGIN@8 at line 18 # spent 22µs making 1 call to Sub::Exporter::Progressive::BEGIN@18
# spent 14µs making 1 call to strict::unimport |
19 | 3 | 14µs | @{"${inner_target}::EXPORT_OK"} = @{$export_data->{exports}}; | ||
20 | 3 | 9µs | @{"${inner_target}::EXPORT"} = @{$export_data->{defaults}}; | ||
21 | 3 | 12µs | %{"${inner_target}::EXPORT_TAGS"} = %{$export_data->{tags}}; | ||
22 | # spent 115µs (76+38) within Sub::Exporter::Progressive::__ANON__[/usr/local/share/perl/5.18.2/Sub/Exporter/Progressive.pm:40] which was called 3 times, avg 38µs/call:
# once (31µs+20µs) by Moo::sification::BEGIN@5 at line 5 of Moo/sification.pm
# once (28µs+17µs) by namespace::clean::BEGIN@11 at line 11 of namespace/clean.pm
# once (17µs+1µs) by namespace::autoclean::BEGIN@10 at line 10 of namespace/autoclean.pm | ||||
23 | 2 | 850µs | 2 | 38µs | # spent 23µs (8+15) within Sub::Exporter::Progressive::BEGIN@23 which was called:
# once (8µs+15µs) by Devel::GlobalDestruction::BEGIN@8 at line 23 # spent 23µs making 1 call to Sub::Exporter::Progressive::BEGIN@23
# spent 15µs making 1 call to strict::import |
24 | 3 | 4µs | my ($self, @args) = @_; | ||
25 | |||||
26 | 5 | 59µs | 8 | 44µs | if (List::Util::first { ref || !m/ \A [:-]? \w+ \z /xm } @args) { # spent 36µs making 6 calls to List::Util::first, avg 6µs/call
# spent 8µs making 2 calls to Sub::Exporter::Progressive::CORE:match, avg 4µs/call |
27 | Carp::croak 'your usage of Sub::Exporter::Progressive requires Sub::Exporter to be installed' | ||||
28 | unless eval { require Sub::Exporter }; | ||||
29 | $full_exporter ||= Sub::Exporter::build_exporter($export_data->{original}); | ||||
30 | |||||
31 | goto $full_exporter; | ||||
32 | 2 | 15µs | 2 | 2µs | } elsif (defined(my $num = List::Util::first { !ref and m/^\d/ } @args)) { # spent 2µs making 2 calls to Sub::Exporter::Progressive::CORE:match, avg 1µs/call |
33 | die "cannot export symbols with a leading digit: '$num'"; | ||||
34 | } else { | ||||
35 | 3 | 2µs | require Exporter; | ||
36 | 3 | 15µs | 2 | 2µs | s/ \A - /:/xm for @args; # spent 2µs making 2 calls to Sub::Exporter::Progressive::CORE:subst, avg 1µs/call |
37 | 3 | 5µs | @_ = ($self, @args); | ||
38 | 3 | 35µs | 3 | 125µs | goto \&Exporter::import; # spent 125µs making 3 calls to Exporter::import, avg 42µs/call |
39 | } | ||||
40 | 3 | 20µs | }; | ||
41 | 3 | 14µs | return; | ||
42 | } | ||||
43 | |||||
44 | 1 | 700ns | my $too_complicated = <<'DEATH'; | ||
45 | You are using Sub::Exporter::Progressive, but the features your program uses from | ||||
46 | Sub::Exporter cannot be implemented without Sub::Exporter, so you might as well | ||||
47 | just use vanilla Sub::Exporter | ||||
48 | DEATH | ||||
49 | |||||
50 | # spent 216µs (170+46) within Sub::Exporter::Progressive::sub_export_options which was called 3 times, avg 72µs/call:
# 3 times (170µs+46µs) by Sub::Exporter::Progressive::import at line 15, avg 72µs/call | ||||
51 | 3 | 2µs | my ($inner_target, $setup, $options) = @_; | ||
52 | |||||
53 | 3 | 700ns | my @exports; | ||
54 | 3 | 400ns | my @defaults; | ||
55 | 3 | 1µs | my %tags; | ||
56 | |||||
57 | 3 | 3µs | if ($setup eq '-setup') { | ||
58 | 3 | 8µs | my %options = %$options; | ||
59 | |||||
60 | OPTIONS: | ||||
61 | 3 | 5µs | for my $opt (keys %options) { | ||
62 | 6 | 11µs | if ($opt eq 'exports') { | ||
63 | |||||
64 | 3 | 3µs | Carp::croak $too_complicated if ref $options{exports} ne 'ARRAY'; | ||
65 | 3 | 4µs | @exports = @{$options{exports}}; | ||
66 | 6 | 48µs | 3 | 20µs | Carp::croak $too_complicated if List::Util::first { ref } @exports; # spent 20µs making 3 calls to List::Util::first, avg 7µs/call |
67 | |||||
68 | } elsif ($opt eq 'groups') { | ||||
69 | 3 | 6µs | %tags = %{$options{groups}}; | ||
70 | 3 | 3µs | for my $tagset (values %tags) { | ||
71 | 6 | 41µs | 6 | 27µs | Carp::croak $too_complicated if List::Util::first { / \A - (?! all \b ) /x || ref } @{$tagset}; # spent 21µs making 3 calls to List::Util::first, avg 7µs/call
# spent 6µs making 3 calls to Sub::Exporter::Progressive::CORE:match, avg 2µs/call |
72 | } | ||||
73 | 3 | 4µs | @defaults = @{$tags{default} || [] }; | ||
74 | } else { | ||||
75 | Carp::croak $too_complicated; | ||||
76 | } | ||||
77 | } | ||||
78 | 9 | 41µs | 6 | 5µs | @{$_} = map { / \A [:-] all \z /x ? @exports : $_ } @{$_} for \@defaults, values %tags; # spent 5µs making 6 calls to Sub::Exporter::Progressive::CORE:match, avg 783ns/call |
79 | 3 | 5µs | $tags{all} ||= [ @exports ]; | ||
80 | 3 | 8µs | my %exports = map { $_ => 1 } @exports; | ||
81 | 3 | 4µs | my @errors = grep { not $exports{$_} } @defaults; | ||
82 | 3 | 5µs | Carp::croak join(', ', @errors) . " is not exported by the $inner_target module\n" if @errors; | ||
83 | } | ||||
84 | |||||
85 | return { | ||||
86 | 3 | 18µs | exports => \@exports, | ||
87 | defaults => \@defaults, | ||||
88 | original => $options, | ||||
89 | tags => \%tags, | ||||
90 | }; | ||||
91 | } | ||||
92 | |||||
93 | 1 | 4µs | 1; | ||
94 | |||||
95 | =encoding utf8 | ||||
96 | |||||
97 | =head1 NAME | ||||
98 | |||||
99 | Sub::Exporter::Progressive - Only use Sub::Exporter if you need it | ||||
100 | |||||
101 | =head1 SYNOPSIS | ||||
102 | |||||
103 | package Syntax::Keyword::Gather; | ||||
104 | |||||
105 | use Sub::Exporter::Progressive -setup => { | ||||
106 | exports => [qw( break gather gathered take )], | ||||
107 | groups => { | ||||
108 | default => [qw( break gather gathered take )], | ||||
109 | }, | ||||
110 | }; | ||||
111 | |||||
112 | # elsewhere | ||||
113 | |||||
114 | # uses Exporter for speed | ||||
115 | use Syntax::Keyword::Gather; | ||||
116 | |||||
117 | # somewhere else | ||||
118 | |||||
119 | # uses Sub::Exporter for features | ||||
120 | use Syntax::Keyword::Gather 'gather', take => { -as => 'grab' }; | ||||
121 | |||||
122 | =head1 DESCRIPTION | ||||
123 | |||||
124 | L<Sub::Exporter> is an incredibly powerful module, but with that power comes | ||||
125 | great responsibility, er- as well as some runtime penalties. This module | ||||
126 | is a C<Sub::Exporter> wrapper that will let your users just use L<Exporter> | ||||
127 | if all they are doing is picking exports, but use C<Sub::Exporter> if your | ||||
128 | users try to use C<Sub::Exporter>'s more advanced features, like | ||||
129 | renaming exports, if they try to use them. | ||||
130 | |||||
131 | Note that this module will export C<@EXPORT>, C<@EXPORT_OK> and | ||||
132 | C<%EXPORT_TAGS> package variables for C<Exporter> to work. Additionally, if | ||||
133 | your package uses advanced C<Sub::Exporter> features like currying, this module | ||||
134 | will only ever use C<Sub::Exporter>, so you might as well use it directly. | ||||
135 | |||||
136 | =head1 AUTHOR | ||||
137 | |||||
138 | frew - Arthur Axel Schmidt (cpan:FREW) <frioux+cpan@gmail.com> | ||||
139 | |||||
140 | =head1 CONTRIBUTORS | ||||
141 | |||||
142 | ilmari - Dagfinn Ilmari Mannsåker (cpan:ILMARI) <ilmari@ilmari.org> | ||||
143 | |||||
144 | mst - Matt S. Trout (cpan:MSTROUT) <mst@shadowcat.co.uk> | ||||
145 | |||||
146 | leont - Leon Timmermans (cpan:LEONT) <leont@cpan.org> | ||||
147 | |||||
148 | =head1 COPYRIGHT | ||||
149 | |||||
150 | Copyright (c) 2012 the Sub::Exporter::Progressive L</AUTHOR> and | ||||
151 | L</CONTRIBUTORS> as listed above. | ||||
152 | |||||
153 | =head1 LICENSE | ||||
154 | |||||
155 | This library is free software and may be distributed under the same terms | ||||
156 | as perl itself. | ||||
157 | |||||
158 | =cut | ||||
# spent 21µs within Sub::Exporter::Progressive::CORE:match which was called 13 times, avg 2µs/call:
# 6 times (5µs+0s) by Sub::Exporter::Progressive::sub_export_options at line 78, avg 783ns/call
# 3 times (6µs+0s) by List::Util::first at line 71, avg 2µs/call
# 2 times (8µs+0s) by List::Util::first at line 26, avg 4µs/call
# 2 times (2µs+0s) by List::Util::first at line 32, avg 1µs/call | |||||
# spent 2µs within Sub::Exporter::Progressive::CORE:subst which was called 2 times, avg 1µs/call:
# 2 times (2µs+0s) by Sub::Exporter::Progressive::__ANON__[/usr/local/share/perl/5.18.2/Sub/Exporter/Progressive.pm:40] at line 36, avg 1µs/call |