← 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:23:49 2012

Filename/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/5.12.3/English.pm
StatementsExecuted 76 statements in 731µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
111147µs159µsEnglish::::BEGIN@148English::BEGIN@148
11121µs33µsEnglish::::BEGIN@47English::BEGIN@47
11119µs413µsEnglish::::importEnglish::import
1114µs4µsEnglish::::CORE:matchEnglish::CORE:match (opcode)
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package English;
2
31400nsour $VERSION = '1.04';
4
51600nsrequire Exporter;
618µs@ISA = qw(Exporter);
7
8=head1 NAME
9
10English - use nice English (or awk) names for ugly punctuation variables
11
12=head1 SYNOPSIS
13
14 use English qw( -no_match_vars ) ; # Avoids regex performance penalty
15 use English;
16 ...
17 if ($ERRNO =~ /denied/) { ... }
18
19=head1 DESCRIPTION
20
21This module provides aliases for the built-in variables whose
22names no one seems to like to read. Variables with side-effects
23which get triggered just by accessing them (like $0) will still
24be affected.
25
26For those variables that have an B<awk> version, both long
27and short English alternatives are provided. For example,
28the C<$/> variable can be referred to either $RS or
29$INPUT_RECORD_SEPARATOR if you are using the English module.
30
31See L<perlvar> for a complete list of these.
32
33=head1 PERFORMANCE
34
35This module can provoke sizeable inefficiencies for regular expressions,
36due to unfortunate implementation details. If performance matters in
37your application and you don't need $PREMATCH, $MATCH, or $POSTMATCH,
38try doing
39
40 use English qw( -no_match_vars ) ;
41
42. B<It is especially important to do this in modules to avoid penalizing
43all applications which use them.>
44
45=cut
46
473253µs244µs
# spent 33µs (21+11) within English::BEGIN@47 which was called: # once (21µs+11µs) by Tapper::MCP::Net::BEGIN@5 at line 47
no warnings;
# spent 33µs making 1 call to English::BEGIN@47 # spent 11µs making 1 call to warnings::unimport
48
491200nsmy $globbed_match ;
50
51# Grandfather $NAME import
52
# spent 413µs (19+394) within English::import which was called: # once (19µs+394µs) by Tapper::MCP::Net::BEGIN@5 at line 5 of lib/Tapper/MCP/Net.pm
sub import {
531700ns my $this = shift;
54212µs14µs my @list = grep { ! /^-no_match_vars$/ } @_ ;
# spent 4µs making 1 call to English::CORE:match
551500ns local $Exporter::ExportLevel = 1;
5611µs if ( @_ == @list ) {
57 *EXPORT = \@COMPLETE_EXPORT ;
58 $globbed_match ||= (
59 eval q{
60 *MATCH = *& ;
61 *PREMATCH = *` ;
62 *POSTMATCH = *' ;
63 1 ;
64 }
65 || do {
66 require Carp ;
67 Carp::croak("Can't create English for match leftovers: $@") ;
68 }
69 ) ;
70 }
71 else {
721600ns *EXPORT = \@MINIMAL_EXPORT ;
73 }
7415µs1390µs Exporter::import($this,grep {s/^\$/*/} @list);
# spent 390µs making 1 call to Exporter::import
75}
76
7717µs@MINIMAL_EXPORT = qw(
78 *ARG
79 *LAST_PAREN_MATCH
80 *INPUT_LINE_NUMBER
81 *NR
82 *INPUT_RECORD_SEPARATOR
83 *RS
84 *OUTPUT_AUTOFLUSH
85 *OUTPUT_FIELD_SEPARATOR
86 *OFS
87 *OUTPUT_RECORD_SEPARATOR
88 *ORS
89 *LIST_SEPARATOR
90 *SUBSCRIPT_SEPARATOR
91 *SUBSEP
92 *FORMAT_PAGE_NUMBER
93 *FORMAT_LINES_PER_PAGE
94 *FORMAT_LINES_LEFT
95 *FORMAT_NAME
96 *FORMAT_TOP_NAME
97 *FORMAT_LINE_BREAK_CHARACTERS
98 *FORMAT_FORMFEED
99 *CHILD_ERROR
100 *OS_ERROR
101 *ERRNO
102 *EXTENDED_OS_ERROR
103 *EVAL_ERROR
104 *PROCESS_ID
105 *PID
106 *REAL_USER_ID
107 *UID
108 *EFFECTIVE_USER_ID
109 *EUID
110 *REAL_GROUP_ID
111 *GID
112 *EFFECTIVE_GROUP_ID
113 *EGID
114 *PROGRAM_NAME
115 *PERL_VERSION
116 *ACCUMULATOR
117 *COMPILING
118 *DEBUGGING
119 *SYSTEM_FD_MAX
120 *INPLACE_EDIT
121 *PERLDB
122 *BASETIME
123 *WARNING
124 *EXECUTABLE_NAME
125 *OSNAME
126 *LAST_REGEXP_CODE_RESULT
127 *EXCEPTIONS_BEING_CAUGHT
128 *LAST_SUBMATCH_RESULT
129 @LAST_MATCH_START
130 @LAST_MATCH_END
131);
132
133
1341600ns@MATCH_EXPORT = qw(
135 *MATCH
136 *PREMATCH
137 *POSTMATCH
138);
139
14017µs@COMPLETE_EXPORT = ( @MINIMAL_EXPORT, @MATCH_EXPORT ) ;
141
142# The ground of all being. @ARG is deprecated (5.005 makes @_ lexical)
143
14411µs *ARG = *_ ;
145
146# Matching.
147
1484400µs1159µs
# spent 159µs (147+12) within English::BEGIN@148 which was called: # once (147µs+12µs) by Tapper::MCP::Net::BEGIN@5 at line 148
*LAST_PAREN_MATCH = *+ ;
# spent 159µs making 1 call to English::BEGIN@148
1491200ns *LAST_SUBMATCH_RESULT = *^N ;
15011µs *LAST_MATCH_START = *-{ARRAY} ;
1511400ns *LAST_MATCH_END = *+{ARRAY} ;
152
153# Input.
154
1551400ns *INPUT_LINE_NUMBER = *. ;
1561300ns *NR = *. ;
1571200ns *INPUT_RECORD_SEPARATOR = */ ;
1581200ns *RS = */ ;
159
160# Output.
161
1621200ns *OUTPUT_AUTOFLUSH = *| ;
1631200ns *OUTPUT_FIELD_SEPARATOR = *, ;
1641200ns *OFS = *, ;
1651300ns *OUTPUT_RECORD_SEPARATOR = *\ ;
1661200ns *ORS = *\ ;
167
168# Interpolation "constants".
169
1701200ns *LIST_SEPARATOR = *" ;
1711300ns *SUBSCRIPT_SEPARATOR = *; ;
1721200ns *SUBSEP = *; ;
173
174# Formats
175
1761200ns *FORMAT_PAGE_NUMBER = *% ;
1771300ns *FORMAT_LINES_PER_PAGE = *= ;
1781200ns *FORMAT_LINES_LEFT = *- ;
1791200ns *FORMAT_NAME = *~ ;
1801200ns *FORMAT_TOP_NAME = *^ ;
1811200ns *FORMAT_LINE_BREAK_CHARACTERS = *: ;
1821200ns *FORMAT_FORMFEED = *^L ;
183
184# Error status.
185
1861300ns *CHILD_ERROR = *? ;
1871300ns *OS_ERROR = *! ;
1881200ns *ERRNO = *! ;
1891200ns *OS_ERROR = *! ;
1901200ns *ERRNO = *! ;
1911300ns *EXTENDED_OS_ERROR = *^E ;
1921200ns *EVAL_ERROR = *@ ;
193
194# Process info.
195
1961200ns *PROCESS_ID = *$ ;
1971100ns *PID = *$ ;
1981200ns *REAL_USER_ID = *< ;
1991200ns *UID = *< ;
2001200ns *EFFECTIVE_USER_ID = *> ;
2011200ns *EUID = *> ;
2021200ns *REAL_GROUP_ID = *( ;
2031200ns *GID = *( ;
2041200ns *EFFECTIVE_GROUP_ID = *) ;
2051200ns *EGID = *) ;
2061200ns *PROGRAM_NAME = *0 ;
207
208# Internals.
209
2101200ns *PERL_VERSION = *^V ;
2111100ns *ACCUMULATOR = *^A ;
2121100ns *COMPILING = *^C ;
2131200ns *DEBUGGING = *^D ;
2141200ns *SYSTEM_FD_MAX = *^F ;
2151200ns *INPLACE_EDIT = *^I ;
2161300ns *PERLDB = *^P ;
2171200ns *LAST_REGEXP_CODE_RESULT = *^R ;
2181100ns *EXCEPTIONS_BEING_CAUGHT = *^S ;
2191100ns *BASETIME = *^T ;
2201200ns *WARNING = *^W ;
2211200ns *EXECUTABLE_NAME = *^X ;
2221300ns *OSNAME = *^O ;
223
224# Deprecated.
225
226# *ARRAY_BASE = *[ ;
227# *OFMT = *# ;
228# *OLD_PERL_VERSION = *] ;
229
230122µs1;
 
# spent 4µs within English::CORE:match which was called: # once (4µs+0s) by English::import at line 54
sub English::CORE:match; # opcode