← Index
NYTProf Performance Profile   « block view • line view • sub view »
For xt/tapper-mcp-scheduler-with-db-longrun.t
  Run on Tue May 22 17:18:39 2012
Reported on Tue May 22 17:22:36 2012

Filename/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/5.12.3/subs.pm
StatementsExecuted 21 statements in 77µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11160µs60µssubs::::importsubs::import
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package subs;
2
31400nsour $VERSION = '1.00';
4
5=head1 NAME
6
7subs - Perl pragma to predeclare sub names
8
9=head1 SYNOPSIS
10
11 use subs qw(frob);
12 frob 3..10;
13
14=head1 DESCRIPTION
15
16This will predeclare all the subroutine whose names are
17in the list, allowing you to use them without parentheses
18even before they're declared.
19
20Unlike pragmas that affect the C<$^H> hints variable, the C<use vars> and
21C<use subs> declarations are not BLOCK-scoped. They are thus effective
22for the entire file in which they appear. You may not rescind such
23declarations with C<no vars> or C<no subs>.
24
25See L<perlmodlib/Pragmatic Modules> and L<strict/strict subs>.
26
27=cut
28
29112µsrequire 5.000;
30
31
# spent 60µs within subs::import which was called: # once (60µs+0s) by Opcode::BEGIN@29 at line 29 of Opcode.pm
sub import {
321862µs my $callpack = caller;
33 my $pack = shift;
34 my @imports = @_;
35 foreach $sym (@imports) {
36 *{"${callpack}::$sym"} = \&{"${callpack}::$sym"};
37 }
38};
39
4012µs1;