← Index
NYTProf Performance Profile   « line view »
For examples/Atom-timer.pl
  Run on Mon Aug 12 14:45:28 2013
Reported on Mon Aug 12 14:46:14 2013

Filename/Users/dde/perl5/perlbrew/perls/5.18.0t/lib/site_perl/5.18.0/Sub/Exporter/Progressive.pm
StatementsExecuted 150 statements in 1.07ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
311128µs162µsSub::Exporter::Progressive::::sub_export_optionsSub::Exporter::Progressive::sub_export_options
44462µs94µsSub::Exporter::Progressive::::__ANON__[:40]Sub::Exporter::Progressive::__ANON__[:40]
33355µs217µsSub::Exporter::Progressive::::importSub::Exporter::Progressive::import
154115µs15µsSub::Exporter::Progressive::::CORE:matchSub::Exporter::Progressive::CORE:match (opcode)
11110µs29µsSub::Exporter::Progressive::::BEGIN@3Sub::Exporter::Progressive::BEGIN@3
1118µs43µsSub::Exporter::Progressive::::BEGIN@9Sub::Exporter::Progressive::BEGIN@9
1118µs20µsSub::Exporter::Progressive::::BEGIN@23Sub::Exporter::Progressive::BEGIN@23
1116µs9µsSub::Exporter::Progressive::::BEGIN@4Sub::Exporter::Progressive::BEGIN@4
1116µs25µsSub::Exporter::Progressive::::BEGIN@8Sub::Exporter::Progressive::BEGIN@8
1116µs15µsSub::Exporter::Progressive::::BEGIN@18Sub::Exporter::Progressive::BEGIN@18
3111µs1µsSub::Exporter::Progressive::::CORE:substSub::Exporter::Progressive::CORE:subst (opcode)
0000s0sSub::Exporter::Progressive::::__ANON__[:26]Sub::Exporter::Progressive::__ANON__[:26]
0000s0sSub::Exporter::Progressive::::__ANON__[:32]Sub::Exporter::Progressive::__ANON__[:32]
0000s0sSub::Exporter::Progressive::::__ANON__[:66]Sub::Exporter::Progressive::__ANON__[:66]
0000s0sSub::Exporter::Progressive::::__ANON__[:71]Sub::Exporter::Progressive::__ANON__[:71]
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Sub::Exporter::Progressive;
2
3220µs248µs
# spent 29µs (10+19) within Sub::Exporter::Progressive::BEGIN@3 which was called: # once (10µs+19µs) by Devel::GlobalDestruction::BEGIN@8 at line 3
use strict;
# spent 29µs making 1 call to Sub::Exporter::Progressive::BEGIN@3 # spent 19µs making 1 call to strict::import
4228µs212µs
# spent 9µs (6+3) within Sub::Exporter::Progressive::BEGIN@4 which was called: # once (6µs+3µs) by Devel::GlobalDestruction::BEGIN@8 at line 4
use warnings;
# spent 9µs making 1 call to Sub::Exporter::Progressive::BEGIN@4 # spent 3µs making 1 call to warnings::import
5
61500nsour $VERSION = '0.001010';
7
8220µs243µs
# spent 25µs (6+19) within Sub::Exporter::Progressive::BEGIN@8 which was called: # once (6µs+19µs) by Devel::GlobalDestruction::BEGIN@8 at line 8
use Carp 'croak';
# spent 25µs making 1 call to Sub::Exporter::Progressive::BEGIN@8 # spent 19µs making 1 call to Exporter::import
9258µs277µs
# spent 43µs (8+35) within Sub::Exporter::Progressive::BEGIN@9 which was called: # once (8µs+35µs) by Devel::GlobalDestruction::BEGIN@8 at line 9
use List::Util 'first';
# spent 43µs making 1 call to Sub::Exporter::Progressive::BEGIN@9 # spent 35µs making 1 call to Exporter::import
10
11
# spent 217µs (55+162) within Sub::Exporter::Progressive::import which was called 3 times, avg 72µs/call: # once (20µs+79µs) by Devel::GlobalDestruction::BEGIN@8 at line 11 of Devel/GlobalDestruction.pm # once (20µs+47µs) by B::Hooks::EndOfScope::XS::BEGIN@19 at line 22 of B/Hooks/EndOfScope/XS.pm # once (15µs+36µs) by B::Hooks::EndOfScope::BEGIN@34 at line 37 of B/Hooks/EndOfScope.pm
sub import {
1233µs my ($self, @args) = @_;
13
1432µs my $inner_target = caller;
1534µs3162µs my $export_data = sub_export_options($inner_target, @args);
# spent 162µs making 3 calls to Sub::Exporter::Progressive::sub_export_options, avg 54µs/call
16
173200ns my $full_exporter;
18267µs224µs
# spent 15µs (6+9) within Sub::Exporter::Progressive::BEGIN@18 which was called: # once (6µs+9µs) by Devel::GlobalDestruction::BEGIN@8 at line 18
no strict 'refs';
# spent 15µs making 1 call to Sub::Exporter::Progressive::BEGIN@18 # spent 9µs making 1 call to strict::unimport
1938µs @{"${inner_target}::EXPORT_OK"} = @{$export_data->{exports}};
2037µs @{"${inner_target}::EXPORT"} = @{$export_data->{defaults}};
2137µs %{"${inner_target}::EXPORT_TAGS"} = %{$export_data->{tags}};
22
# spent 94µs (62+33) within Sub::Exporter::Progressive::__ANON__[/Users/dde/perl5/perlbrew/perls/5.18.0t/lib/site_perl/5.18.0/Sub/Exporter/Progressive.pm:40] which was called 4 times, avg 24µs/call: # once (18µs+12µs) by Class::MOP::Package::BEGIN@15 at line 15 of Class/MOP/Package.pm # once (17µs+11µs) by Moose::Meta::Role::BEGIN@16 at line 16 of Moose/Meta/Role.pm # once (13µs+9µs) by namespace::clean::BEGIN@11 at line 11 of namespace/clean.pm # once (13µs+900ns) by namespace::autoclean::BEGIN@14 at line 14 of namespace/autoclean.pm
*{"${inner_target}::import"} = sub {
232570µs232µs
# spent 20µs (8+12) within Sub::Exporter::Progressive::BEGIN@23 which was called: # once (8µs+12µs) by Devel::GlobalDestruction::BEGIN@8 at line 23
use strict;
# spent 20µs making 1 call to Sub::Exporter::Progressive::BEGIN@23 # spent 12µs making 1 call to strict::import
2443µs my ($self, @args) = @_;
25
26745µs1138µs if (first { ref || !m/ \A [:-]? \w+ \z /xm } @args) {
# spent 32µs making 8 calls to List::Util::first, avg 4µs/call # spent 7µs making 3 calls to Sub::Exporter::Progressive::CORE:match, avg 2µs/call
27 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;
32313µs32µs } elsif (defined(my $num = first { !ref and m/^\d/ } @args)) {
# spent 2µs making 3 calls to Sub::Exporter::Progressive::CORE:match, avg 700ns/call
33 die "cannot export symbols with a leading digit: '$num'";
34 } else {
3542µs require Exporter;
36413µs31µs s/ \A - /:/xm for @args;
# spent 1µs making 3 calls to Sub::Exporter::Progressive::CORE:subst, avg 400ns/call
3744µs @_ = ($self, @args);
38420µs494µs goto \&Exporter::import;
# spent 94µs making 4 calls to Exporter::import, avg 24µs/call
39 }
40313µs };
41310µs return;
42}
43
441200nsmy $too_complicated = <<'DEATH';
45You are using Sub::Exporter::Progressive, but the features your program uses from
46Sub::Exporter cannot be implemented without Sub::Exporter, so you might as well
47just use vanilla Sub::Exporter
48DEATH
49
50
# spent 162µs (128+34) within Sub::Exporter::Progressive::sub_export_options which was called 3 times, avg 54µs/call: # 3 times (128µs+34µs) by Sub::Exporter::Progressive::import at line 15, avg 54µs/call
sub sub_export_options {
5131µs my ($inner_target, $setup, $options) = @_;
52
533100ns my @exports;
543100ns my @defaults;
553400ns my %tags;
56
5731µs if ($setup eq '-setup') {
5835µs my %options = %$options;
59
60 OPTIONS:
6133µs for my $opt (keys %options) {
6266µs if ($opt eq 'exports') {
63
6432µs croak $too_complicated if ref $options{exports} ne 'ARRAY';
6532µs @exports = @{$options{exports}};
66612µs33µs croak $too_complicated if first { ref } @exports;
# spent 3µs making 3 calls to List::Util::first, avg 967ns/call
67
68 } elsif ($opt eq 'groups') {
6933µs %tags = %{$options{groups}};
7032µs for my $tagset (values %tags) {
71646µs631µs croak $too_complicated if first { / \A - (?! all \b ) /x || ref } @{$tagset};
# spent 28µs making 3 calls to List::Util::first, avg 9µs/call # spent 3µs making 3 calls to Sub::Exporter::Progressive::CORE:match, avg 1µs/call
72 }
7333µs @defaults = @{$tags{default} || [] };
74 } else {
75 croak $too_complicated;
76 }
77 }
78942µs63µs @{$_} = map { / \A [:-] all \z /x ? @exports : $_ } @{$_} for \@defaults, values %tags;
# spent 3µs making 6 calls to Sub::Exporter::Progressive::CORE:match, avg 500ns/call
7933µs $tags{all} ||= [ @exports ];
8034µs my %exports = map { $_ => 1 } @exports;
8132µs my @errors = grep { not $exports{$_} } @defaults;
8233µs croak join(', ', @errors) . " is not exported by the $inner_target module\n" if @errors;
83 }
84
85 return {
86312µs exports => \@exports,
87 defaults => \@defaults,
88 original => $options,
89 tags => \%tags,
90 };
91}
92
9313µs1;
94
95=encoding utf8
96
97=head1 NAME
98
99Sub::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 defaults => [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
124L<Sub::Exporter> is an incredibly powerful module, but with that power comes
125great responsibility, er- as well as some runtime penalties. This module
126is a C<Sub::Exporter> wrapper that will let your users just use L<Exporter>
127if all they are doing is picking exports, but use C<Sub::Exporter> if your
128users try to use C<Sub::Exporter>'s more advanced features features, like
129renaming exports, if they try to use them.
130
131Note that this module will export C<@EXPORT>, C<@EXPORT_OK> and
132C<%EXPORT_TAGS> package variables for C<Exporter> to work. Additionally, if
133your package uses advanced C<Sub::Exporter> features like currying, this module
134will only ever use C<Sub::Exporter>, so you might as well use it directly.
135
136=head1 AUTHOR
137
138frew - Arthur Axel Schmidt (cpan:FREW) <frioux+cpan@gmail.com>
139
140=head1 CONTRIBUTORS
141
142ilmari - Dagfinn Ilmari Mannsåker (cpan:ILMARI) <ilmari@ilmari.org>
143
144mst - Matt S. Trout (cpan:MSTROUT) <mst@shadowcat.co.uk>
145
146leont - Leon Timmermans (cpan:LEONT) <leont@cpan.org>
147
148=head1 COPYRIGHT
149
150Copyright (c) 2012 the Sub::Exporter::Progressive L</AUTHOR> and
151L</CONTRIBUTORS> as listed above.
152
153=head1 LICENSE
154
155This library is free software and may be distributed under the same terms
156as perl itself.
157
158=cut
 
# spent 15µs within Sub::Exporter::Progressive::CORE:match which was called 15 times, avg 1µs/call: # 6 times (3µs+0s) by Sub::Exporter::Progressive::sub_export_options at line 78, avg 500ns/call # 3 times (7µs+0s) by List::Util::first at line 26, avg 2µs/call # 3 times (3µs+0s) by List::Util::first at line 71, avg 1µs/call # 3 times (2µs+0s) by List::Util::first at line 32, avg 700ns/call
sub Sub::Exporter::Progressive::CORE:match; # opcode
# spent 1µs within Sub::Exporter::Progressive::CORE:subst which was called 3 times, avg 400ns/call: # 3 times (1µs+0s) by Sub::Exporter::Progressive::__ANON__[/Users/dde/perl5/perlbrew/perls/5.18.0t/lib/site_perl/5.18.0/Sub/Exporter/Progressive.pm:40] at line 36, avg 400ns/call
sub Sub::Exporter::Progressive::CORE:subst; # opcode