← 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/share/perl/5.10/if.pm
Statements Executed 24
Total Time 6.93e-05 seconds
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
22122µs22µsif::::importif::import
0000s0sif::::unimportif::unimport
0000s0sif::::workif::work
LineStmts.Exclusive
Time
Avg.Code
1package if;
2
31700ns700ns$VERSION = '0.05';
4
5sub work {
61653µs3µs my $method = shift() ? 'import' : 'unimport';
7 die "Too few arguments to `use if' (some code returning an empty list in list context?)"
8 unless @_ >= 2;
9 return unless shift; # CONDITION
10
11 my $p = $_[0]; # PACKAGE
12 (my $file = "$p.pm") =~ s!::!/!g;
13 require $file; # Works even if $_[0] is a keyword (like open)
14 my $m = $p->can($method);
# spent 10µs making 2 calls to UNIVERSAL::can, avg 5µs/call
15 goto &$m if $m;
16}
17
18612µs2µs
# spent 22µs within if::import which was called 2 times, avg 11µs/call: # once (14µs+0s) at line 12 of /usr/local/lib/perl/5.10.0/Moose/Object.pm # once (9µs+0s) at line 13 of /usr/local/lib/perl/5.10.0/Moose/Object.pm
sub import { shift; unshift @_, 1; goto &work }
19sub unimport { shift; unshift @_, 0; goto &work }
20
2114µs4µs1;
22__END__
23
24=head1 NAME
25
26if - C<use> a Perl module if a condition holds
27
28=head1 SYNOPSIS
29
30 use if CONDITION, MODULE => ARGUMENTS;
31
32=head1 DESCRIPTION
33
34The construct
35
36 use if CONDITION, MODULE => ARGUMENTS;
37
38has no effect unless C<CONDITION> is true. In this case the effect is
39the same as of
40
41 use MODULE ARGUMENTS;
42
43Above C<< => >> provides necessary quoting of C<MODULE>. If not used (e.g.,
44no ARGUMENTS to give), you'd better quote C<MODULE> yourselves.
45
46=head1 BUGS
47
48The current implementation does not allow specification of the
49required version of the module.
50
51=head1 AUTHOR
52
53Ilya Zakharevich L<mailto:perl-module-if@ilyaz.org>.
54
55=cut
56