← Index
NYTProf Performance Profile   « block view • line view • sub view »
For bin/pan_genome_post_analysis
  Run on Fri Mar 27 11:43:32 2015
Reported on Fri Mar 27 11:45:24 2015

Filename/Users/ap13/perl5/perlbrew/perls/perl-5.16.2/lib/5.16.2/warnings.pm
StatementsExecuted 1061 statements in 2.50ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
126103101867µs867µswarnings::::importwarnings::import
511583µs646µswarnings::::register_categorieswarnings::register_categories
191913329µs329µswarnings::::unimportwarnings::unimport
102163µs63µswarnings::::_mkMaskwarnings::_mkMask
11126µs26µswarnings::::CORE:regcompwarnings::CORE:regcomp (opcode)
1118µs8µswarnings::::CORE:matchwarnings::CORE:match (opcode)
0000s0swarnings::::Croakerwarnings::Croaker
0000s0swarnings::::__chkwarnings::__chk
0000s0swarnings::::_bitswarnings::_bits
0000s0swarnings::::_error_locwarnings::_error_loc
0000s0swarnings::::bitswarnings::bits
0000s0swarnings::::enabledwarnings::enabled
0000s0swarnings::::fatal_enabledwarnings::fatal_enabled
0000s0swarnings::::warnwarnings::warn
0000s0swarnings::::warnifwarnings::warnif
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1# -*- buffer-read-only: t -*-
2# !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
3# This file is built by regen/warnings.pl.
4# Any changes made here will be lost!
5
6package warnings;
7
811µsour $VERSION = '1.13';
9
10# Verify that we're called correctly so that warnings will work.
11# see also strict.pm.
12157µs234µsunless ( __FILE__ =~ /(^|[\/\\])\Q${\__PACKAGE__}\E\.pmc?$/ ) {
# spent 26µs making 1 call to warnings::CORE:regcomp # spent 8µs making 1 call to warnings::CORE:match
13 my (undef, $f, $l) = caller;
14 die("Incorrect use of pragma '${\__PACKAGE__}' at $f line $l.\n");
15}
16
17=head1 NAME
18
19warnings - Perl pragma to control optional warnings
20
21=head1 SYNOPSIS
22
23 use warnings;
24 no warnings;
25
26 use warnings "all";
27 no warnings "all";
28
29 use warnings::register;
30 if (warnings::enabled()) {
31 warnings::warn("some warning");
32 }
33
34 if (warnings::enabled("void")) {
35 warnings::warn("void", "some warning");
36 }
37
38 if (warnings::enabled($object)) {
39 warnings::warn($object, "some warning");
40 }
41
42 warnings::warnif("some warning");
43 warnings::warnif("void", "some warning");
44 warnings::warnif($object, "some warning");
45
46=head1 DESCRIPTION
47
48The C<warnings> pragma is a replacement for the command line flag C<-w>,
49but the pragma is limited to the enclosing block, while the flag is global.
50See L<perllexwarn> for more information and the list of built-in warning
51categories.
52
53If no import list is supplied, all possible warnings are either enabled
54or disabled.
55
56A number of functions are provided to assist module authors.
57
58=over 4
59
60=item use warnings::register
61
62Creates a new warnings category with the same name as the package where
63the call to the pragma is used.
64
65=item warnings::enabled()
66
67Use the warnings category with the same name as the current package.
68
69Return TRUE if that warnings category is enabled in the calling module.
70Otherwise returns FALSE.
71
72=item warnings::enabled($category)
73
74Return TRUE if the warnings category, C<$category>, is enabled in the
75calling module.
76Otherwise returns FALSE.
77
78=item warnings::enabled($object)
79
80Use the name of the class for the object reference, C<$object>, as the
81warnings category.
82
83Return TRUE if that warnings category is enabled in the first scope
84where the object is used.
85Otherwise returns FALSE.
86
87=item warnings::fatal_enabled()
88
89Return TRUE if the warnings category with the same name as the current
90package has been set to FATAL in the calling module.
91Otherwise returns FALSE.
92
93=item warnings::fatal_enabled($category)
94
95Return TRUE if the warnings category C<$category> has been set to FATAL in
96the calling module.
97Otherwise returns FALSE.
98
99=item warnings::fatal_enabled($object)
100
101Use the name of the class for the object reference, C<$object>, as the
102warnings category.
103
104Return TRUE if that warnings category has been set to FATAL in the first
105scope where the object is used.
106Otherwise returns FALSE.
107
108=item warnings::warn($message)
109
110Print C<$message> to STDERR.
111
112Use the warnings category with the same name as the current package.
113
114If that warnings category has been set to "FATAL" in the calling module
115then die. Otherwise return.
116
117=item warnings::warn($category, $message)
118
119Print C<$message> to STDERR.
120
121If the warnings category, C<$category>, has been set to "FATAL" in the
122calling module then die. Otherwise return.
123
124=item warnings::warn($object, $message)
125
126Print C<$message> to STDERR.
127
128Use the name of the class for the object reference, C<$object>, as the
129warnings category.
130
131If that warnings category has been set to "FATAL" in the scope where C<$object>
132is first used then die. Otherwise return.
133
134
135=item warnings::warnif($message)
136
137Equivalent to:
138
139 if (warnings::enabled())
140 { warnings::warn($message) }
141
142=item warnings::warnif($category, $message)
143
144Equivalent to:
145
146 if (warnings::enabled($category))
147 { warnings::warn($category, $message) }
148
149=item warnings::warnif($object, $message)
150
151Equivalent to:
152
153 if (warnings::enabled($object))
154 { warnings::warn($object, $message) }
155
156=item warnings::register_categories(@names)
157
158This registers warning categories for the given names and is primarily for
159use by the warnings::register pragma, for which see L<perllexwarn>.
160
161=back
162
163See L<perlmodlib/Pragmatic Modules> and L<perllexwarn>.
164
165=cut
166
167132µsour %Offsets = (
168
169 # Warnings Categories added in Perl 5.008
170
171 'all' => 0,
172 'closure' => 2,
173 'deprecated' => 4,
174 'exiting' => 6,
175 'glob' => 8,
176 'io' => 10,
177 'closed' => 12,
178 'exec' => 14,
179 'layer' => 16,
180 'newline' => 18,
181 'pipe' => 20,
182 'unopened' => 22,
183 'misc' => 24,
184 'numeric' => 26,
185 'once' => 28,
186 'overflow' => 30,
187 'pack' => 32,
188 'portable' => 34,
189 'recursion' => 36,
190 'redefine' => 38,
191 'regexp' => 40,
192 'severe' => 42,
193 'debugging' => 44,
194 'inplace' => 46,
195 'internal' => 48,
196 'malloc' => 50,
197 'signal' => 52,
198 'substr' => 54,
199 'syntax' => 56,
200 'ambiguous' => 58,
201 'bareword' => 60,
202 'digit' => 62,
203 'parenthesis' => 64,
204 'precedence' => 66,
205 'printf' => 68,
206 'prototype' => 70,
207 'qw' => 72,
208 'reserved' => 74,
209 'semicolon' => 76,
210 'taint' => 78,
211 'threads' => 80,
212 'uninitialized' => 82,
213 'unpack' => 84,
214 'untie' => 86,
215 'utf8' => 88,
216 'void' => 90,
217
218 # Warnings Categories added in Perl 5.011
219
220 'imprecision' => 92,
221 'illegalproto' => 94,
222
223 # Warnings Categories added in Perl 5.013
224
225 'non_unicode' => 96,
226 'nonchar' => 98,
227 'surrogate' => 100,
228 );
229
230126µsour %Bits = (
231 'all' => "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15", # [0..50]
232 'ambiguous' => "\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00", # [29]
233 'bareword' => "\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00", # [30]
234 'closed' => "\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [6]
235 'closure' => "\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [1]
236 'debugging' => "\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00", # [22]
237 'deprecated' => "\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [2]
238 'digit' => "\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00", # [31]
239 'exec' => "\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [7]
240 'exiting' => "\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [3]
241 'glob' => "\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [4]
242 'illegalproto' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00", # [47]
243 'imprecision' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00", # [46]
244 'inplace' => "\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00", # [23]
245 'internal' => "\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00", # [24]
246 'io' => "\x00\x54\x55\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [5..11]
247 'layer' => "\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [8]
248 'malloc' => "\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00", # [25]
249 'misc' => "\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [12]
250 'newline' => "\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [9]
251 'non_unicode' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01", # [48]
252 'nonchar' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04", # [49]
253 'numeric' => "\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [13]
254 'once' => "\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [14]
255 'overflow' => "\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [15]
256 'pack' => "\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00", # [16]
257 'parenthesis' => "\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00", # [32]
258 'pipe' => "\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [10]
259 'portable' => "\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00", # [17]
260 'precedence' => "\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00", # [33]
261 'printf' => "\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00", # [34]
262 'prototype' => "\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00", # [35]
263 'qw' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00", # [36]
264 'recursion' => "\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00", # [18]
265 'redefine' => "\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00", # [19]
266 'regexp' => "\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00", # [20]
267 'reserved' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00", # [37]
268 'semicolon' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00", # [38]
269 'severe' => "\x00\x00\x00\x00\x00\x54\x05\x00\x00\x00\x00\x00\x00", # [21..25]
270 'signal' => "\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00", # [26]
271 'substr' => "\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00", # [27]
272 'surrogate' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10", # [50]
273 'syntax' => "\x00\x00\x00\x00\x00\x00\x00\x55\x55\x15\x00\x40\x00", # [28..38,47]
274 'taint' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00", # [39]
275 'threads' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00", # [40]
276 'uninitialized' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00", # [41]
277 'unopened' => "\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [11]
278 'unpack' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00", # [42]
279 'untie' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00", # [43]
280 'utf8' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x15", # [44,48..50]
281 'void' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00", # [45]
282 );
283
284126µsour %DeadBits = (
285 'all' => "\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\x2a", # [0..50]
286 'ambiguous' => "\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00", # [29]
287 'bareword' => "\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00", # [30]
288 'closed' => "\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [6]
289 'closure' => "\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [1]
290 'debugging' => "\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00", # [22]
291 'deprecated' => "\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [2]
292 'digit' => "\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00", # [31]
293 'exec' => "\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [7]
294 'exiting' => "\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [3]
295 'glob' => "\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [4]
296 'illegalproto' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00", # [47]
297 'imprecision' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00", # [46]
298 'inplace' => "\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00", # [23]
299 'internal' => "\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00", # [24]
300 'io' => "\x00\xa8\xaa\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [5..11]
301 'layer' => "\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [8]
302 'malloc' => "\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00", # [25]
303 'misc' => "\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [12]
304 'newline' => "\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [9]
305 'non_unicode' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02", # [48]
306 'nonchar' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08", # [49]
307 'numeric' => "\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [13]
308 'once' => "\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [14]
309 'overflow' => "\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [15]
310 'pack' => "\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00", # [16]
311 'parenthesis' => "\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00", # [32]
312 'pipe' => "\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [10]
313 'portable' => "\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00", # [17]
314 'precedence' => "\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00", # [33]
315 'printf' => "\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00", # [34]
316 'prototype' => "\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00", # [35]
317 'qw' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00", # [36]
318 'recursion' => "\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00", # [18]
319 'redefine' => "\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00", # [19]
320 'regexp' => "\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00", # [20]
321 'reserved' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00", # [37]
322 'semicolon' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00", # [38]
323 'severe' => "\x00\x00\x00\x00\x00\xa8\x0a\x00\x00\x00\x00\x00\x00", # [21..25]
324 'signal' => "\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00", # [26]
325 'substr' => "\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00", # [27]
326 'surrogate' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20", # [50]
327 'syntax' => "\x00\x00\x00\x00\x00\x00\x00\xaa\xaa\x2a\x00\x80\x00", # [28..38,47]
328 'taint' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00", # [39]
329 'threads' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00", # [40]
330 'uninitialized' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00", # [41]
331 'unopened' => "\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [11]
332 'unpack' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00", # [42]
333 'untie' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00", # [43]
334 'utf8' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x2a", # [44,48..50]
335 'void' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00", # [45]
336 );
337
3381600ns$NONE = "\0\0\0\0\0\0\0\0\0\0\0\0\0";
3391200ns$LAST_BIT = 102 ;
3401100ns$BYTES = 13 ;
341
342214µs$All = "" ; vec($All, $Offsets{'all'}, 2) = 3 ;
343
344sub Croaker
345{
346 require Carp; # this initializes %CarpInternal
347 local $Carp::CarpInternal{'warnings'};
348 delete $Carp::CarpInternal{'warnings'};
349 Carp::croak(@_);
350}
351
352sub _bits {
353 my $mask = shift ;
354 my $catmask ;
355 my $fatal = 0 ;
356 my $no_fatal = 0 ;
357
358 foreach my $word ( @_ ) {
359 if ($word eq 'FATAL') {
360 $fatal = 1;
361 $no_fatal = 0;
362 }
363 elsif ($word eq 'NONFATAL') {
364 $fatal = 0;
365 $no_fatal = 1;
366 }
367 elsif ($catmask = $Bits{$word}) {
368 $mask |= $catmask ;
369 $mask |= $DeadBits{$word} if $fatal ;
370 $mask &= ~($DeadBits{$word}|$All) if $no_fatal ;
371 }
372 else
373 { Croaker("Unknown warnings category '$word'")}
374 }
375
376 return $mask ;
377}
378
379sub bits
380{
381 # called from B::Deparse.pm
382 push @_, 'all' unless @_ ;
383 return _bits(undef, @_) ;
384}
385
386sub import
387
# spent 867µs within warnings::import which was called 126 times, avg 7µs/call: # 22 times (163µs+0s) by Moose::Role::import or Moose::Util::TypeConstraints::import or Moose::import at line 475 of Moose/Exporter.pm, avg 7µs/call # 3 times (25µs+0s) by Moose::Exporter::import at line 792 of Moose/Exporter.pm, avg 8µs/call # once (20µs+0s) by File::Copy::BEGIN@12 at line 12 of File/Copy.pm # once (15µs+0s) by Sub::Install::BEGIN@3 at line 3 of Sub/Install.pm # once (13µs+0s) by overloading::BEGIN@2 at line 2 of overloading.pm # once (12µs+0s) by Bio::Roary::CommandLine::RoaryPostAnalysis::BEGIN@2 at line 2 of Moose.pm # once (11µs+0s) by Moose::Util::MetaRole::BEGIN@5 at line 5 of Moose/Util/MetaRole.pm # once (11µs+0s) by Class::Load::BEGIN@6 at line 6 of Class/Load.pm # once (11µs+0s) by Class::MOP::Attribute::BEGIN@5 at line 5 of Class/MOP/Attribute.pm # once (11µs+0s) by Module::Implementation::BEGIN@7 at line 7 of Module/Implementation.pm # once (11µs+0s) by Moose::Meta::Instance::BEGIN@5 at line 5 of Moose/Meta/Instance.pm # once (11µs+0s) by Moose::Meta::TypeConstraint::BEGIN@5 at line 5 of Moose/Meta/TypeConstraint.pm # once (10µs+0s) by Bio::Roary::ClustersRole::BEGIN@2 at line 2 of Moose/Role.pm # once (10µs+0s) by Moose::Meta::Method::Augmented::BEGIN@5 at line 5 of Moose/Meta/Method/Augmented.pm # once (10µs+0s) by Class::MOP::Deprecated::BEGIN@5 at line 5 of Class/MOP/Deprecated.pm # once (10µs+0s) by Class::MOP::Method::Constructor::BEGIN@5 at line 5 of Class/MOP/Method/Constructor.pm # once (10µs+0s) by Class::MOP::Mixin::HasOverloads::BEGIN@5 at line 5 of Class/MOP/Mixin/HasOverloads.pm # once (10µs+0s) by utf8::BEGIN@3 at line 3 of utf8_heavy.pl # once (9µs+0s) by Package::Stash::BEGIN@9 at line 9 of Package/Stash.pm # once (9µs+0s) by Carp::BEGIN@5 at line 5 of Carp.pm # once (9µs+0s) by Config::BEGIN@10 at line 10 of Config.pm # once (9µs+0s) by Devel::OverloadInfo::BEGIN@15 at line 15 of Devel/OverloadInfo.pm # once (9µs+0s) by Class::Load::XS::BEGIN@7 at line 7 of Class/Load/XS.pm # once (8µs+0s) by IO::BEGIN@8 at line 8 of IO.pm # once (8µs+0s) by Sub::Name::BEGIN@45 at line 45 of Sub/Name.pm # once (8µs+0s) by Class::MOP::Class::Immutable::Trait::BEGIN@5 at line 5 of Class/MOP/Class/Immutable/Trait.pm # once (8µs+0s) by Bio::SeqUtils::BEGIN@190 at line 190 of Bio/SeqUtils.pm # once (8µs+0s) by Moose::Util::TypeConstraints::Builtins::BEGIN@5 at line 5 of Moose/Util/TypeConstraints/Builtins.pm # once (8µs+0s) by Class::MOP::Class::BEGIN@5 at line 5 of Class/MOP/Class.pm # once (8µs+0s) by POSIX::BEGIN@3 at line 3 of POSIX.pm # once (8µs+0s) by Moose::Meta::Role::BEGIN@5 at line 5 of Moose/Meta/Role.pm # once (8µs+0s) by Moose::Meta::Mixin::AttributeCore::BEGIN@5 at line 5 of Moose/Meta/Mixin/AttributeCore.pm # once (8µs+0s) by Moose::Meta::Role::Application::BEGIN@5 at line 5 of Moose/Meta/Role/Application.pm # once (7µs+0s) by Moose::Util::BEGIN@5 at line 5 of Moose/Util.pm # once (7µs+0s) by Class::Load::BEGIN@2 at line 2 of Data/OptList.pm # once (7µs+0s) by File::Find::BEGIN@4 at line 4 of File/Find.pm # once (7µs+0s) by Moose::Meta::TypeCoercion::BEGIN@5 at line 5 of Moose/Meta/TypeCoercion.pm # once (7µs+0s) by Moose::Meta::Role::Composite::BEGIN@5 at line 5 of Moose/Meta/Role/Composite.pm # once (7µs+0s) by Try::Tiny::BEGIN@10 at line 10 of Try/Tiny.pm # once (7µs+0s) by Class::MOP::Method::Accessor::BEGIN@5 at line 5 of Class/MOP/Method/Accessor.pm # once (7µs+0s) by metaclass::BEGIN@5 at line 5 of metaclass.pm # once (7µs+0s) by Moose::Meta::Class::Immutable::Trait::BEGIN@5 at line 5 of Moose/Meta/Class/Immutable/Trait.pm # once (7µs+0s) by Class::MOP::Method::Wrapped::BEGIN@5 at line 5 of Class/MOP/Method/Wrapped.pm # once (7µs+0s) by File::Basename::BEGIN@52 at line 52 of File/Basename.pm # once (7µs+0s) by Class::MOP::MiniTrait::BEGIN@5 at line 5 of Class/MOP/MiniTrait.pm # once (7µs+0s) by Moose::Exporter::BEGIN@5 at line 5 of Moose/Exporter.pm # once (6µs+0s) by Moose::Deprecated::BEGIN@5 at line 5 of Moose/Deprecated.pm # once (6µs+0s) by Exception::Class::Base::BEGIN@4 at line 4 of Exception/Class/Base.pm # once (6µs+0s) by Eval::Closure::BEGIN@6 at line 6 of Eval/Closure.pm # once (6µs+0s) by Class::MOP::Method::Inlined::BEGIN@5 at line 5 of Class/MOP/Method/Inlined.pm # once (6µs+0s) by Moose::Object::BEGIN@5 at line 5 of Moose/Object.pm # once (6µs+0s) by Moose::Meta::Role::Method::Conflicting::BEGIN@5 at line 5 of Moose/Meta/Role/Method/Conflicting.pm # once (6µs+0s) by Moose::Meta::TypeConstraint::Class::BEGIN@5 at line 5 of Moose/Meta/TypeConstraint/Class.pm # once (6µs+0s) by Class::MOP::Method::Generated::BEGIN@5 at line 5 of Class/MOP/Method/Generated.pm # once (6µs+0s) by Bio::SeqIO::BEGIN@328 at line 328 of Bio/SeqIO.pm # once (6µs+0s) by Class::MOP::Module::BEGIN@5 at line 5 of Class/MOP/Module.pm # once (6µs+0s) by Moose::Meta::Role::Application::RoleSummation::BEGIN@5 at line 5 of Moose/Meta/Role/Application/RoleSummation.pm # once (6µs+0s) by Moose::Meta::Role::Application::ToClass::BEGIN@5 at line 5 of Moose/Meta/Role/Application/ToClass.pm # once (6µs+0s) by Eval::Closure::BEGIN@3 at line 3 of Sub/Exporter.pm # once (6µs+0s) by Moose::Meta::Method::Destructor::BEGIN@5 at line 5 of Moose/Meta/Method/Destructor.pm # once (6µs+0s) by Sub::Exporter::Progressive::BEGIN@4 at line 4 of Sub/Exporter/Progressive.pm # once (6µs+0s) by Moose::Meta::Method::Constructor::BEGIN@5 at line 5 of Moose/Meta/Method/Constructor.pm # once (6µs+0s) by Class::MOP::BEGIN@5 at line 5 of Class/MOP.pm # once (6µs+0s) by Class::MOP::Overload::BEGIN@5 at line 5 of Class/MOP/Overload.pm # once (6µs+0s) by Class::MOP::Package::BEGIN@5 at line 5 of Class/MOP/Package.pm # once (6µs+0s) by Package::DeprecationManager::BEGIN@7 at line 7 of Package/DeprecationManager.pm # once (6µs+0s) by Moose::Meta::Method::Accessor::BEGIN@5 at line 5 of Moose/Meta/Method/Accessor.pm # once (5µs+0s) by Moose::Meta::Role::Application::ToRole::BEGIN@5 at line 5 of Moose/Meta/Role/Application/ToRole.pm # once (5µs+0s) by MRO::Compat::BEGIN@3 at line 3 of MRO/Compat.pm # once (5µs+0s) by Moose::Meta::TypeConstraint::Parameterized::BEGIN@5 at line 5 of Moose/Meta/TypeConstraint/Parameterized.pm # once (5µs+0s) by Devel::GlobalDestruction::BEGIN@4 at line 4 of Devel/GlobalDestruction.pm # once (5µs+0s) by re::BEGIN@5 at line 5 of re.pm # once (5µs+0s) by Moose::Meta::Class::BEGIN@5 at line 5 of Moose/Meta/Class.pm # once (5µs+0s) by Package::Stash::XS::BEGIN@9 at line 9 of Package/Stash/XS.pm # once (5µs+0s) by Bio::Tools::GuessSeqFormat::BEGIN@248 at line 248 of Bio/Tools/GuessSeqFormat.pm # once (5µs+0s) by Moose::Meta::TypeConstraint::Registry::BEGIN@5 at line 5 of Moose/Meta/TypeConstraint/Registry.pm # once (4µs+0s) by Moose::Meta::Role::Application::ToInstance::BEGIN@5 at line 5 of Moose/Meta/Role/Application/ToInstance.pm # once (4µs+0s) by Moose::Meta::Role::Attribute::BEGIN@5 at line 5 of Moose/Meta/Role/Attribute.pm # once (4µs+0s) by Devel::StackTrace::BEGIN@8 at line 8 of Devel/StackTrace.pm # once (4µs+0s) by Moose::Meta::TypeCoercion::BEGIN@2 at line 2 of Moose/Meta/Attribute.pm # once (4µs+0s) by Moose::Meta::Method::Meta::BEGIN@5 at line 5 of Moose/Meta/Method/Meta.pm # once (4µs+0s) by Moose::Meta::Method::Delegation::BEGIN@5 at line 5 of Moose/Meta/Method/Delegation.pm # once (4µs+0s) by Moose::Meta::TypeConstraint::Role::BEGIN@5 at line 5 of Moose/Meta/TypeConstraint/Role.pm # once (4µs+0s) by Moose::Meta::TypeConstraint::Enum::BEGIN@5 at line 5 of Moose/Meta/TypeConstraint/Enum.pm # once (4µs+0s) by Moose::Meta::TypeConstraint::DuckType::BEGIN@5 at line 5 of Moose/Meta/TypeConstraint/DuckType.pm # once (4µs+0s) by Class::MOP::Instance::BEGIN@5 at line 5 of Class/MOP/Instance.pm # once (4µs+0s) by Moose::Meta::TypeConstraint::Parameterizable::BEGIN@5 at line 5 of Moose/Meta/TypeConstraint/Parameterizable.pm # once (4µs+0s) by Moose::Meta::Method::Overridden::BEGIN@5 at line 5 of Moose/Meta/Method/Overridden.pm # once (4µs+0s) by Moose::Meta::Role::Method::BEGIN@5 at line 5 of Moose/Meta/Role/Method.pm # once (4µs+0s) by Moose::BEGIN@2 at line 2 of Moose/Meta/Attribute/Native.pm # once (4µs+0s) by Moose::Meta::TypeConstraint::Union::BEGIN@5 at line 5 of Moose/Meta/TypeConstraint/Union.pm # once (4µs+0s) by Class::MOP::Mixin::HasMethods::BEGIN@5 at line 5 of Class/MOP/Mixin/HasMethods.pm # once (4µs+0s) by Class::MOP::Mixin::AttributeCore::BEGIN@5 at line 5 of Class/MOP/Mixin/AttributeCore.pm # once (4µs+0s) by Moose::Meta::Role::Method::Required::BEGIN@5 at line 5 of Moose/Meta/Role/Method/Required.pm # once (4µs+0s) by Class::MOP::Mixin::HasAttributes::BEGIN@5 at line 5 of Class/MOP/Mixin/HasAttributes.pm # once (4µs+0s) by Moose::Meta::Method::BEGIN@5 at line 5 of Moose/Meta/Method.pm # once (4µs+0s) by Class::MOP::Method::BEGIN@5 at line 5 of Class/MOP/Method.pm # once (4µs+0s) by Class::MOP::Object::BEGIN@5 at line 5 of Class/MOP/Object.pm # once (4µs+0s) by Class::MOP::Mixin::BEGIN@5 at line 5 of Class/MOP/Mixin.pm # once (4µs+0s) by Devel::StackTrace::Frame::BEGIN@4 at line 4 of Devel/StackTrace/Frame.pm # once (4µs+0s) by Moose::Meta::TypeCoercion::Union::BEGIN@5 at line 5 of Moose/Meta/TypeCoercion/Union.pm # once (4µs+0s) by mro::BEGIN@11 at line 11 of mro.pm # once (4µs+0s) by Class::MOP::Method::Meta::BEGIN@5 at line 5 of Class/MOP/Method/Meta.pm
{
3885121.22ms shift;
389
390 my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $NONE) ;
391
392 if (vec($mask, $Offsets{'all'}, 1)) {
393 $mask |= $Bits{'all'} ;
394 $mask |= $DeadBits{'all'} if vec($mask, $Offsets{'all'}+1, 1);
395 }
396
397 # Empty @_ is equivalent to @_ = 'all' ;
398 ${^WARNING_BITS} = @_ ? _bits($mask, @_) : $mask | $Bits{all} ;
399}
400
401sub unimport
402
# spent 329µs within warnings::unimport which was called 19 times, avg 17µs/call: # once (39µs+0s) by utf8::BEGIN@147 at line 147 of utf8_heavy.pl # once (29µs+0s) by utf8::BEGIN@542 at line 542 of utf8_heavy.pl # once (23µs+0s) by Module::Implementation::BEGIN@114 at line 114 of Module/Implementation.pm # once (22µs+0s) by Moose::Exporter::BEGIN@136 at line 136 of Moose/Exporter.pm # once (21µs+0s) by Carp::BEGIN@6 at line 24 of Carp.pm # once (20µs+0s) by File::Copy::BEGIN@12.1 at line 12 of File/Copy.pm # once (20µs+0s) by Devel::GlobalDestruction::BEGIN@23 at line 23 of Devel/GlobalDestruction.pm # once (19µs+0s) by Carp::BEGIN@568 at line 568 of Carp.pm # once (17µs+0s) by Exporter::Heavy::BEGIN@197 at line 197 of Exporter/Heavy.pm # once (15µs+0s) by B::Deparse::BEGIN@3653 at line 3653 of B/Deparse.pm # once (15µs+0s) by MRO::Compat::BEGIN@39 at line 39 of MRO/Compat.pm # once (15µs+0s) by Moose::Util::TypeConstraints::BEGIN@674 at line 674 of Moose/Util/TypeConstraints.pm # once (15µs+0s) by Bio::Root::IO::BEGIN@359 at line 359 of Bio/Root/IO.pm # once (12µs+0s) by Bio::Root::RootI::BEGIN@242 at line 242 of Bio/Root/RootI.pm # once (12µs+0s) by Class::MOP::Package::BEGIN@95 at line 95 of Class/MOP/Package.pm # once (11µs+0s) by MRO::Compat::BEGIN@228 at line 228 of MRO/Compat.pm # once (9µs+0s) by Moose::Util::TypeConstraints::BEGIN@680 at line 680 of Moose/Util/TypeConstraints.pm # once (8µs+0s) by Moose::Util::TypeConstraints::BEGIN@685 at line 685 of Moose/Util/TypeConstraints.pm # once (8µs+0s) by Moose::Util::TypeConstraints::BEGIN@699 at line 699 of Moose/Util/TypeConstraints.pm
{
403180378µs shift;
404
405 my $catmask ;
406 my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $NONE) ;
407
408 if (vec($mask, $Offsets{'all'}, 1)) {
409 $mask |= $Bits{'all'} ;
410 $mask |= $DeadBits{'all'} if vec($mask, $Offsets{'all'}+1, 1);
411 }
412
413 push @_, 'all' unless @_;
414
415 foreach my $word ( @_ ) {
416 if ($word eq 'FATAL') {
417 next;
418 }
419 elsif ($catmask = $Bits{$word}) {
420 $mask &= ~($catmask | $DeadBits{$word} | $All);
421 }
422 else
423 { Croaker("Unknown warnings category '$word'")}
424 }
425
426 ${^WARNING_BITS} = $mask ;
427}
428
42925µsmy %builtin_type; @builtin_type{qw(SCALAR ARRAY HASH CODE REF GLOB LVALUE Regexp)} = ();
430
431sub MESSAGE () { 4 };
432sub FATAL () { 2 };
433sub NORMAL () { 1 };
434
435sub __chk
436{
437 my $category ;
438 my $offset ;
439 my $isobj = 0 ;
440 my $wanted = shift;
441 my $has_message = $wanted & MESSAGE;
442
443 unless (@_ == 1 || @_ == ($has_message ? 2 : 0)) {
444 my $sub = (caller 1)[3];
445 my $syntax = $has_message ? "[category,] 'message'" : '[category]';
446 Croaker("Usage: $sub($syntax)");
447 }
448
449 my $message = pop if $has_message;
450
451 if (@_) {
452 # check the category supplied.
453 $category = shift ;
454 if (my $type = ref $category) {
455 Croaker("not an object")
456 if exists $builtin_type{$type};
457 $category = $type;
458 $isobj = 1 ;
459 }
460 $offset = $Offsets{$category};
461 Croaker("Unknown warnings category '$category'")
462 unless defined $offset;
463 }
464 else {
465 $category = (caller(1))[0] ;
466 $offset = $Offsets{$category};
467 Croaker("package '$category' not registered for warnings")
468 unless defined $offset ;
469 }
470
471 my $i;
472
473 if ($isobj) {
474 my $pkg;
475 $i = 2;
476 while (do { { package DB; $pkg = (caller($i++))[0] } } ) {
477 last unless @DB::args && $DB::args[0] =~ /^$category=/ ;
478 }
479 $i -= 2 ;
480 }
481 else {
482 $i = _error_loc(); # see where Carp will allocate the error
483 }
484
485 # Defaulting this to 0 reduces complexity in code paths below.
486 my $callers_bitmask = (caller($i))[9] || 0 ;
487
488 my @results;
489 foreach my $type (FATAL, NORMAL) {
490 next unless $wanted & $type;
491
492 push @results, (vec($callers_bitmask, $offset + $type - 1, 1) ||
493 vec($callers_bitmask, $Offsets{'all'} + $type - 1, 1));
494 }
495
496 # &enabled and &fatal_enabled
497 return $results[0] unless $has_message;
498
499 # &warnif, and the category is neither enabled as warning nor as fatal
500 return if $wanted == (NORMAL | FATAL | MESSAGE)
501 && !($results[0] || $results[1]);
502
503 require Carp;
504 Carp::croak($message) if $results[0];
505 # will always get here for &warn. will only get here for &warnif if the
506 # category is enabled
507 Carp::carp($message);
508}
509
510sub _mkMask
511
# spent 63µs within warnings::_mkMask which was called 10 times, avg 6µs/call: # 5 times (41µs+0s) by warnings::register_categories at line 525, avg 8µs/call # 5 times (22µs+0s) by warnings::register_categories at line 531, avg 4µs/call
{
5124083µs my ($bit) = @_;
513 my $mask = "";
514
515 vec($mask, $bit, 1) = 1;
516 return $mask;
517}
518
519sub register_categories
520
# spent 646µs (583+63) within warnings::register_categories which was called 5 times, avg 129µs/call: # 5 times (583µs+63µs) by warnings::register::import at line 43 of warnings/register.pm, avg 129µs/call
{
521315502µs my @names = @_;
522
523 for my $name (@names) {
524 if (! defined $Bits{$name}) {
525541µs $Bits{$name} = _mkMask($LAST_BIT);
# spent 41µs making 5 calls to warnings::_mkMask, avg 8µs/call
526 vec($Bits{'all'}, $LAST_BIT, 1) = 1;
527 $Offsets{$name} = $LAST_BIT ++;
528 foreach my $k (keys %Bits) {
529 vec($Bits{$k}, $LAST_BIT, 1) = 0;
530 }
531522µs $DeadBits{$name} = _mkMask($LAST_BIT);
# spent 22µs making 5 calls to warnings::_mkMask, avg 4µs/call
532 vec($DeadBits{'all'}, $LAST_BIT++, 1) = 1;
533 }
534 }
535}
536
537sub _error_loc {
538 require Carp;
539 goto &Carp::short_error_loc; # don't introduce another stack frame
540}
541
542sub enabled
543{
544 return __chk(NORMAL, @_);
545}
546
547sub fatal_enabled
548{
549 return __chk(FATAL, @_);
550}
551
552sub warn
553{
554 return __chk(FATAL | MESSAGE, @_);
555}
556
557sub warnif
558{
559 return __chk(NORMAL | FATAL | MESSAGE, @_);
560}
561
562# These are not part of any public interface, so we can delete them to save
563# space.
564114µsdelete $warnings::{$_} foreach qw(NORMAL FATAL MESSAGE);
565
5661139µs1;
567
568# ex: set ro:
 
# spent 8µs within warnings::CORE:match which was called: # once (8µs+0s) by Bio::Roary::CommandLine::RoaryPostAnalysis::BEGIN@2 at line 12
sub warnings::CORE:match; # opcode
# spent 26µs within warnings::CORE:regcomp which was called: # once (26µs+0s) by Bio::Roary::CommandLine::RoaryPostAnalysis::BEGIN@2 at line 12
sub warnings::CORE:regcomp; # opcode