<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<!--
This file was generated by Devel::NYTProf version 5.06
-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="Content-Language" content="en-us" />
<meta name="robots" content="noindex,nofollow" />
<title>Profile of warnings.pm</title>
<link rel="stylesheet" type="text/css" href="style.css" />
<script type="text/javascript" src="js/jquery-min.js"></script>
<script type="text/javascript" src="js/jquery-tablesorter-min.js"></script>
<link rel="stylesheet" type="text/css" href="js/style-tablesorter.css" />
<script type="text/javascript">
// when a column is first clicked on to sort it, use descending order
// XXX doesn't seem to work (and not just because the tablesorter formatSortingOrder() is broken)
$.tablesorter.defaults.sortInitialOrder = "desc";
// add parser through the tablesorter addParser method
$.tablesorter.addParser({
id: 'fmt_time', // name of this parser
is: function(s) {
return false; // return false so this parser is not auto detected
},
format: function(orig) { // format data for normalization
// console.log(orig);
var val = orig.replace(/ns/,'');
if (val != orig) { return val / (1000*1000*1000); }
val = orig.replace(/[嵵]s/,''); /* micro */
if (val != orig) { return val / (1000*1000); }
val = orig.replace(/ms/,'');
if (val != orig) { return val / (1000); }
val = orig.replace(/([0-9])s/,"$1");
if (val != orig) { return val; }
if (orig == '0') { return orig; }
var non_number = orig.replace(/^[-+]?[0-9.]+/, '', 'g');
console.log('no match for fmt_time of '+orig+' (units:'+non_number+' charCodeAt0:'+non_number.charCodeAt(0)+')');
return orig;
},
type: 'numeric' // set type, either numeric or text
});
</script>
</head>
<body >
<div class="header" style="position: relative; overflow-x: hidden; overflow-y: hidden; z-index: 0; ">
<div class="header_back">
<a href="index.html">← Index</a>
</div>
<div class="headerForeground" style="float: left">
<span class="siteTitle">NYTProf Performance Profile</span>
<span class="siteSubtitle">  <span>« <span class="mode_btn mode_btn_selected">line view</span> »</span><br />
For ../dm5dm6_ex3
</span>
</div>
<div class="headerForeground" style="float: right; text-align: right">
<span class="siteTitle"> </span>
<span class="siteSubtitle">Run on Tue Feb 24 07:41:47 2015<br />Reported on Tue Feb 24 07:41:51 2015</span>
</div>
<div style="position: absolute; left: 0px; top: 0%; width: 100%; height: 101%; z-index: -1; background-color: rgb(17, 136, 255); "></div>
<div style="position: absolute; left: 0px; top: 2%; width: 100%; height: 99%; z-index: -1; background-color: rgb(16, 134, 253); "></div>
<div style="position: absolute; left: 0px; top: 4%; width: 100%; height: 97%; z-index: -1; background-color: rgb(16, 133, 252); "></div>
<div style="position: absolute; left: 0px; top: 6%; width: 100%; height: 95%; z-index: -1; background-color: rgb(15, 131, 250); "></div>
<div style="position: absolute; left: 0px; top: 8%; width: 100%; height: 93%; z-index: -1; background-color: rgb(15, 130, 249); "></div>
<div style="position: absolute; left: 0px; top: 10%; width: 100%; height: 91%; z-index: -1; background-color: rgb(15, 129, 248); "></div>
<div style="position: absolute; left: 0px; top: 12%; width: 100%; height: 89%; z-index: -1; background-color: rgb(14, 127, 246); "></div>
<div style="position: absolute; left: 0px; top: 14%; width: 100%; height: 87%; z-index: -1; background-color: rgb(14, 126, 245); "></div>
<div style="position: absolute; left: 0px; top: 16%; width: 100%; height: 85%; z-index: -1; background-color: rgb(14, 125, 244); "></div>
<div style="position: absolute; left: 0px; top: 18%; width: 100%; height: 83%; z-index: -1; background-color: rgb(13, 123, 242); "></div>
<div style="position: absolute; left: 0px; top: 20%; width: 100%; height: 81%; z-index: -1; background-color: rgb(13, 122, 241); "></div>
<div style="position: absolute; left: 0px; top: 22%; width: 100%; height: 79%; z-index: -1; background-color: rgb(13, 121, 240); "></div>
<div style="position: absolute; left: 0px; top: 24%; width: 100%; height: 77%; z-index: -1; background-color: rgb(12, 119, 238); "></div>
<div style="position: absolute; left: 0px; top: 26%; width: 100%; height: 75%; z-index: -1; background-color: rgb(12, 118, 237); "></div>
<div style="position: absolute; left: 0px; top: 28%; width: 100%; height: 73%; z-index: -1; background-color: rgb(12, 116, 235); "></div>
<div style="position: absolute; left: 0px; top: 30%; width: 100%; height: 71%; z-index: -1; background-color: rgb(11, 115, 234); "></div>
<div style="position: absolute; left: 0px; top: 32%; width: 100%; height: 69%; z-index: -1; background-color: rgb(11, 114, 233); "></div>
<div style="position: absolute; left: 0px; top: 34%; width: 100%; height: 67%; z-index: -1; background-color: rgb(11, 112, 231); "></div>
<div style="position: absolute; left: 0px; top: 36%; width: 100%; height: 65%; z-index: -1; background-color: rgb(10, 111, 230); "></div>
<div style="position: absolute; left: 0px; top: 38%; width: 100%; height: 63%; z-index: -1; background-color: rgb(10, 110, 229); "></div>
<div style="position: absolute; left: 0px; top: 40%; width: 100%; height: 61%; z-index: -1; background-color: rgb(10, 108, 227); "></div>
<div style="position: absolute; left: 0px; top: 42%; width: 100%; height: 59%; z-index: -1; background-color: rgb(9, 107, 226); "></div>
<div style="position: absolute; left: 0px; top: 44%; width: 100%; height: 57%; z-index: -1; background-color: rgb(9, 106, 225); "></div>
<div style="position: absolute; left: 0px; top: 46%; width: 100%; height: 55%; z-index: -1; background-color: rgb(9, 104, 223); "></div>
<div style="position: absolute; left: 0px; top: 48%; width: 100%; height: 53%; z-index: -1; background-color: rgb(8, 103, 222); "></div>
<div style="position: absolute; left: 0px; top: 50%; width: 100%; height: 51%; z-index: -1; background-color: rgb(8, 102, 221); "></div>
<div style="position: absolute; left: 0px; top: 52%; width: 100%; height: 49%; z-index: -1; background-color: rgb(8, 100, 219); "></div>
<div style="position: absolute; left: 0px; top: 54%; width: 100%; height: 47%; z-index: -1; background-color: rgb(7, 99, 218); "></div>
<div style="position: absolute; left: 0px; top: 56%; width: 100%; height: 45%; z-index: -1; background-color: rgb(7, 97, 216); "></div>
<div style="position: absolute; left: 0px; top: 58%; width: 100%; height: 43%; z-index: -1; background-color: rgb(7, 96, 215); "></div>
<div style="position: absolute; left: 0px; top: 60%; width: 100%; height: 41%; z-index: -1; background-color: rgb(6, 95, 214); "></div>
<div style="position: absolute; left: 0px; top: 62%; width: 100%; height: 39%; z-index: -1; background-color: rgb(6, 93, 212); "></div>
<div style="position: absolute; left: 0px; top: 64%; width: 100%; height: 37%; z-index: -1; background-color: rgb(6, 92, 211); "></div>
<div style="position: absolute; left: 0px; top: 66%; width: 100%; height: 35%; z-index: -1; background-color: rgb(5, 91, 210); "></div>
<div style="position: absolute; left: 0px; top: 68%; width: 100%; height: 33%; z-index: -1; background-color: rgb(5, 89, 208); "></div>
<div style="position: absolute; left: 0px; top: 70%; width: 100%; height: 31%; z-index: -1; background-color: rgb(5, 88, 207); "></div>
<div style="position: absolute; left: 0px; top: 72%; width: 100%; height: 29%; z-index: -1; background-color: rgb(4, 87, 206); "></div>
<div style="position: absolute; left: 0px; top: 74%; width: 100%; height: 27%; z-index: -1; background-color: rgb(4, 85, 204); "></div>
<div style="position: absolute; left: 0px; top: 76%; width: 100%; height: 25%; z-index: -1; background-color: rgb(4, 84, 203); "></div>
<div style="position: absolute; left: 0px; top: 78%; width: 100%; height: 23%; z-index: -1; background-color: rgb(3, 82, 201); "></div>
<div style="position: absolute; left: 0px; top: 80%; width: 100%; height: 21%; z-index: -1; background-color: rgb(3, 81, 200); "></div>
<div style="position: absolute; left: 0px; top: 82%; width: 100%; height: 19%; z-index: -1; background-color: rgb(3, 80, 199); "></div>
<div style="position: absolute; left: 0px; top: 84%; width: 100%; height: 17%; z-index: -1; background-color: rgb(2, 78, 197); "></div>
<div style="position: absolute; left: 0px; top: 86%; width: 100%; height: 15%; z-index: -1; background-color: rgb(2, 77, 196); "></div>
<div style="position: absolute; left: 0px; top: 88%; width: 100%; height: 13%; z-index: -1; background-color: rgb(2, 76, 195); "></div>
<div style="position: absolute; left: 0px; top: 90%; width: 100%; height: 11%; z-index: -1; background-color: rgb(1, 74, 193); "></div>
<div style="position: absolute; left: 0px; top: 92%; width: 100%; height: 9%; z-index: -1; background-color: rgb(1, 73, 192); "></div>
<div style="position: absolute; left: 0px; top: 94%; width: 100%; height: 7%; z-index: -1; background-color: rgb(1, 72, 191); "></div>
<div style="position: absolute; left: 0px; top: 96%; width: 100%; height: 5%; z-index: -1; background-color: rgb(0, 70, 189); "></div>
<div style="position: absolute; left: 0px; top: 98%; width: 100%; height: 3%; z-index: -1; background-color: rgb(0, 69, 188); "></div>
<div style="position: absolute; left: 0px; top: 100%; width: 100%; height: 1%; z-index: -1; background-color: rgb(0, 68, 187); "></div>
</div>
<div class="body_content"><br />
<table class="file_summary"><tr><td class="h">Filename</td><td align="left"><a href="file:///usr/lib/perl5/5.20.1/warnings.pm">/usr/lib/perl5/5.20.1/warnings.pm</a></td></tr>
<tr><td class="h">Statements</td><td align="left">Executed 2082 statements in 2.02ms</td></tr></table>
<table id="subs_table" border="1" cellpadding="0" class="tablesorter">
<caption>Subroutines</caption>
<thead>
<tr>
<th>Calls</th>
<th><span title="Number of Places sub is called from">P</span></th>
<th><span title="Number of Files sub is called from">F</span></th>
<th>Exclusive<br />Time</th>
<th>Inclusive<br />Time</th>
<th>Subroutine</th>
</tr>
</thead>
<tbody>
<tr><td class="c0">369</td><td class="c0">369</td><td class="c0">368</td><td class="c0"><span title="0.0%">1.04ms</span></td><td class="c0"><span title="0.0%">1.04ms</span></td><td class="sub_name"><span style="display: none;">warnings::::import</span>warnings::<a href="warnings-pm-2-line.html#993">import</a></td></tr>
<tr><td class="c3">2</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">82µs</span></td><td class="c2"><span title="0.0%">91µs</span></td><td class="sub_name"><span style="display: none;">warnings::::register_categories</span>warnings::<a href="warnings-pm-2-line.html#1133">register_categories</a></td></tr>
<tr><td class="c1">7</td><td class="c0">7</td><td class="c0">6</td><td class="c3"><span title="0.0%">63µs</span></td><td class="c3"><span title="0.0%">63µs</span></td><td class="sub_name"><span style="display: none;">warnings::::unimport</span>warnings::<a href="warnings-pm-2-line.html#1011">unimport</a></td></tr>
<tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">14µs</span></td><td class="c3"><span title="0.0%">14µs</span></td><td class="sub_name"><span style="display: none;">warnings::::CORE:regcomp</span>warnings::<a href="warnings-pm-2-line.html#warnings__CORE_regcomp">CORE:regcomp</a> (opcode)</td></tr>
<tr><td class="c3">4</td><td class="c3">2</td><td class="c3">1</td><td class="c3"><span title="0.0%">9µs</span></td><td class="c3"><span title="0.0%">9µs</span></td><td class="sub_name"><span style="display: none;">warnings::::_mkMask</span>warnings::<a href="warnings-pm-2-line.html#1124">_mkMask</a></td></tr>
<tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">3µs</span></td><td class="c3"><span title="0.0%">3µs</span></td><td class="sub_name"><span style="display: none;">warnings::::CORE:match</span>warnings::<a href="warnings-pm-2-line.html#warnings__CORE_match">CORE:match</a> (opcode)</td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">warnings::::Croaker</span>warnings::<a href="warnings-pm-2-line.html#951">Croaker</a></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">warnings::::__chk</span>warnings::<a href="warnings-pm-2-line.html#1046">__chk</a></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">warnings::::_bits</span>warnings::<a href="warnings-pm-2-line.html#958">_bits</a></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">warnings::::_error_loc</span>warnings::<a href="warnings-pm-2-line.html#1150">_error_loc</a></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">warnings::::bits</span>warnings::<a href="warnings-pm-2-line.html#986">bits</a></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">warnings::::enabled</span>warnings::<a href="warnings-pm-2-line.html#1156">enabled</a></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">warnings::::fatal_enabled</span>warnings::<a href="warnings-pm-2-line.html#1161">fatal_enabled</a></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">warnings::::warn</span>warnings::<a href="warnings-pm-2-line.html#1166">warn</a></td></tr>
<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">warnings::::warnif</span>warnings::<a href="warnings-pm-2-line.html#1171">warnif</a></td></tr>
</tbody></table>
Call graph for these subroutines as a
<a href="http://en.wikipedia.org/wiki/Graphviz">Graphviz</a>
<a href="usr-lib-perl5-5-20-1-warnings-pm.dot">dot language file</a>.
<table border="1" cellpadding="0">
<thead>
<tr><th>Line</th>
<th><span title="Number of statements executed">State<br />ments</span></th>
<th><span title="Time spend executing statements on the line,
excluding time spent executing statements in any called subroutines">Time<br />on line</span></th>
<th><span title="Number of subroutines calls">Calls</span></th>
<th><span title="Time spent in subroutines called (inclusive)">Time<br />in subs</span></th>
<th class="left_indent_header">Code</th>
</tr>
</thead>
<tbody>
<tr><td class="h"><a name="1"></a>1</td><td></td><td></td><td></td><td></td><td class="s"># -*- buffer-read-only: t -*-</td></tr>
<tr><td class="h"><a name="2"></a>2</td><td></td><td></td><td></td><td></td><td class="s"># !!!!!!! DO NOT EDIT THIS FILE !!!!!!!</td></tr>
<tr><td class="h"><a name="3"></a>3</td><td></td><td></td><td></td><td></td><td class="s"># This file is built by regen/warnings.pl.</td></tr>
<tr><td class="h"><a name="4"></a>4</td><td></td><td></td><td></td><td></td><td class="s"># Any changes made here will be lost!</td></tr>
<tr><td class="h"><a name="5"></a>5</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="6"></a>6</td><td></td><td></td><td></td><td></td><td class="s">package warnings;</td></tr>
<tr><td class="h"><a name="7"></a>7</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="8"></a>8</td><td class="c3">1</td><td class="c3"><span title="Avg 300ns">300ns</span></td><td></td><td></td><td class="s">our $VERSION = '1.23';</td></tr>
<tr><td class="h"><a name="9"></a>9</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="10"></a>10</td><td></td><td></td><td></td><td></td><td class="s"># Verify that we're called correctly so that warnings will work.</td></tr>
<tr><td class="h"><a name="11"></a>11</td><td></td><td></td><td></td><td></td><td class="s"># see also strict.pm.</td></tr>
<tr><td class="h"><a name="12"></a>12</td><td class="c3">1</td><td class="c0"><span title="Avg 30µs">30µs</span></td><td class="c3">2</td><td class="c0">18µs</td><td class="s">unless ( __FILE__ =~ /(^|[\/\\])\Q${\__PACKAGE__}\E\.pmc?$/ ) {<div class="calls"><div class="calls_out"># spent 14µs making 1 call to <a href="warnings-pm-2-line.html#warnings__CORE_regcomp">warnings::CORE:regcomp</a>
# spent 3µs making 1 call to <a href="warnings-pm-2-line.html#warnings__CORE_match">warnings::CORE:match</a></div></div></td></tr>
<tr><td class="h"><a name="13"></a>13</td><td></td><td></td><td></td><td></td><td class="s"> my (undef, $f, $l) = caller;</td></tr>
<tr><td class="h"><a name="14"></a>14</td><td></td><td></td><td></td><td></td><td class="s"> die("Incorrect use of pragma '${\__PACKAGE__}' at $f line $l.\n");</td></tr>
<tr><td class="h"><a name="15"></a>15</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="16"></a>16</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="17"></a>17</td><td></td><td></td><td></td><td></td><td class="s">=head1 NAME</td></tr>
<tr><td class="h"><a name="18"></a>18</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="19"></a>19</td><td></td><td></td><td></td><td></td><td class="s">warnings - Perl pragma to control optional warnings</td></tr>
<tr><td class="h"><a name="20"></a>20</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="21"></a>21</td><td></td><td></td><td></td><td></td><td class="s">=head1 SYNOPSIS</td></tr>
<tr><td class="h"><a name="22"></a>22</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="23"></a>23</td><td></td><td></td><td></td><td></td><td class="s"> use warnings;</td></tr>
<tr><td class="h"><a name="24"></a>24</td><td></td><td></td><td></td><td></td><td class="s"> no warnings;</td></tr>
<tr><td class="h"><a name="25"></a>25</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="26"></a>26</td><td></td><td></td><td></td><td></td><td class="s"> use warnings "all";</td></tr>
<tr><td class="h"><a name="27"></a>27</td><td></td><td></td><td></td><td></td><td class="s"> no warnings "all";</td></tr>
<tr><td class="h"><a name="28"></a>28</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="29"></a>29</td><td></td><td></td><td></td><td></td><td class="s"> use warnings::register;</td></tr>
<tr><td class="h"><a name="30"></a>30</td><td></td><td></td><td></td><td></td><td class="s"> if (warnings::enabled()) {</td></tr>
<tr><td class="h"><a name="31"></a>31</td><td></td><td></td><td></td><td></td><td class="s"> warnings::warn("some warning");</td></tr>
<tr><td class="h"><a name="32"></a>32</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="33"></a>33</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="34"></a>34</td><td></td><td></td><td></td><td></td><td class="s"> if (warnings::enabled("void")) {</td></tr>
<tr><td class="h"><a name="35"></a>35</td><td></td><td></td><td></td><td></td><td class="s"> warnings::warn("void", "some warning");</td></tr>
<tr><td class="h"><a name="36"></a>36</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="37"></a>37</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="38"></a>38</td><td></td><td></td><td></td><td></td><td class="s"> if (warnings::enabled($object)) {</td></tr>
<tr><td class="h"><a name="39"></a>39</td><td></td><td></td><td></td><td></td><td class="s"> warnings::warn($object, "some warning");</td></tr>
<tr><td class="h"><a name="40"></a>40</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="41"></a>41</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="42"></a>42</td><td></td><td></td><td></td><td></td><td class="s"> warnings::warnif("some warning");</td></tr>
<tr><td class="h"><a name="43"></a>43</td><td></td><td></td><td></td><td></td><td class="s"> warnings::warnif("void", "some warning");</td></tr>
<tr><td class="h"><a name="44"></a>44</td><td></td><td></td><td></td><td></td><td class="s"> warnings::warnif($object, "some warning");</td></tr>
<tr><td class="h"><a name="45"></a>45</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="46"></a>46</td><td></td><td></td><td></td><td></td><td class="s">=head1 DESCRIPTION</td></tr>
<tr><td class="h"><a name="47"></a>47</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="48"></a>48</td><td></td><td></td><td></td><td></td><td class="s">The C<warnings> pragma gives control over which warnings are enabled in</td></tr>
<tr><td class="h"><a name="49"></a>49</td><td></td><td></td><td></td><td></td><td class="s">which parts of a Perl program. It's a more flexible alternative for</td></tr>
<tr><td class="h"><a name="50"></a>50</td><td></td><td></td><td></td><td></td><td class="s">both the command line flag B<-w> and the equivalent Perl variable,</td></tr>
<tr><td class="h"><a name="51"></a>51</td><td></td><td></td><td></td><td></td><td class="s">C<$^W>.</td></tr>
<tr><td class="h"><a name="52"></a>52</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="53"></a>53</td><td></td><td></td><td></td><td></td><td class="s">This pragma works just like the C<strict> pragma.</td></tr>
<tr><td class="h"><a name="54"></a>54</td><td></td><td></td><td></td><td></td><td class="s">This means that the scope of the warning pragma is limited to the</td></tr>
<tr><td class="h"><a name="55"></a>55</td><td></td><td></td><td></td><td></td><td class="s">enclosing block. It also means that the pragma setting will not</td></tr>
<tr><td class="h"><a name="56"></a>56</td><td></td><td></td><td></td><td></td><td class="s">leak across files (via C<use>, C<require> or C<do>). This allows</td></tr>
<tr><td class="h"><a name="57"></a>57</td><td></td><td></td><td></td><td></td><td class="s">authors to independently define the degree of warning checks that will</td></tr>
<tr><td class="h"><a name="58"></a>58</td><td></td><td></td><td></td><td></td><td class="s">be applied to their module.</td></tr>
<tr><td class="h"><a name="59"></a>59</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="60"></a>60</td><td></td><td></td><td></td><td></td><td class="s">By default, optional warnings are disabled, so any legacy code that</td></tr>
<tr><td class="h"><a name="61"></a>61</td><td></td><td></td><td></td><td></td><td class="s">doesn't attempt to control the warnings will work unchanged.</td></tr>
<tr><td class="h"><a name="62"></a>62</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="63"></a>63</td><td></td><td></td><td></td><td></td><td class="s">All warnings are enabled in a block by either of these:</td></tr>
<tr><td class="h"><a name="64"></a>64</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="65"></a>65</td><td></td><td></td><td></td><td></td><td class="s"> use warnings;</td></tr>
<tr><td class="h"><a name="66"></a>66</td><td></td><td></td><td></td><td></td><td class="s"> use warnings 'all';</td></tr>
<tr><td class="h"><a name="67"></a>67</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="68"></a>68</td><td></td><td></td><td></td><td></td><td class="s">Similarly all warnings are disabled in a block by either of these:</td></tr>
<tr><td class="h"><a name="69"></a>69</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="70"></a>70</td><td></td><td></td><td></td><td></td><td class="s"> no warnings;</td></tr>
<tr><td class="h"><a name="71"></a>71</td><td></td><td></td><td></td><td></td><td class="s"> no warnings 'all';</td></tr>
<tr><td class="h"><a name="72"></a>72</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="73"></a>73</td><td></td><td></td><td></td><td></td><td class="s">For example, consider the code below:</td></tr>
<tr><td class="h"><a name="74"></a>74</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="75"></a>75</td><td></td><td></td><td></td><td></td><td class="s"> use warnings;</td></tr>
<tr><td class="h"><a name="76"></a>76</td><td></td><td></td><td></td><td></td><td class="s"> my @a;</td></tr>
<tr><td class="h"><a name="77"></a>77</td><td></td><td></td><td></td><td></td><td class="s"> {</td></tr>
<tr><td class="h"><a name="78"></a>78</td><td></td><td></td><td></td><td></td><td class="s"> no warnings;</td></tr>
<tr><td class="h"><a name="79"></a>79</td><td></td><td></td><td></td><td></td><td class="s"> my $b = @a[0];</td></tr>
<tr><td class="h"><a name="80"></a>80</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="81"></a>81</td><td></td><td></td><td></td><td></td><td class="s"> my $c = @a[0];</td></tr>
<tr><td class="h"><a name="82"></a>82</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="83"></a>83</td><td></td><td></td><td></td><td></td><td class="s">The code in the enclosing block has warnings enabled, but the inner</td></tr>
<tr><td class="h"><a name="84"></a>84</td><td></td><td></td><td></td><td></td><td class="s">block has them disabled. In this case that means the assignment to the</td></tr>
<tr><td class="h"><a name="85"></a>85</td><td></td><td></td><td></td><td></td><td class="s">scalar C<$c> will trip the C<"Scalar value @a[0] better written as $a[0]"></td></tr>
<tr><td class="h"><a name="86"></a>86</td><td></td><td></td><td></td><td></td><td class="s">warning, but the assignment to the scalar C<$b> will not.</td></tr>
<tr><td class="h"><a name="87"></a>87</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="88"></a>88</td><td></td><td></td><td></td><td></td><td class="s">=head2 Default Warnings and Optional Warnings</td></tr>
<tr><td class="h"><a name="89"></a>89</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="90"></a>90</td><td></td><td></td><td></td><td></td><td class="s">Before the introduction of lexical warnings, Perl had two classes of</td></tr>
<tr><td class="h"><a name="91"></a>91</td><td></td><td></td><td></td><td></td><td class="s">warnings: mandatory and optional. </td></tr>
<tr><td class="h"><a name="92"></a>92</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="93"></a>93</td><td></td><td></td><td></td><td></td><td class="s">As its name suggests, if your code tripped a mandatory warning, you</td></tr>
<tr><td class="h"><a name="94"></a>94</td><td></td><td></td><td></td><td></td><td class="s">would get a warning whether you wanted it or not.</td></tr>
<tr><td class="h"><a name="95"></a>95</td><td></td><td></td><td></td><td></td><td class="s">For example, the code below would always produce an C<"isn't numeric"></td></tr>
<tr><td class="h"><a name="96"></a>96</td><td></td><td></td><td></td><td></td><td class="s">warning about the "2:".</td></tr>
<tr><td class="h"><a name="97"></a>97</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="98"></a>98</td><td></td><td></td><td></td><td></td><td class="s"> my $a = "2:" + 3;</td></tr>
<tr><td class="h"><a name="99"></a>99</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="100"></a>100</td><td></td><td></td><td></td><td></td><td class="s">With the introduction of lexical warnings, mandatory warnings now become</td></tr>
<tr><td class="h"><a name="101"></a>101</td><td></td><td></td><td></td><td></td><td class="s">I<default> warnings. The difference is that although the previously</td></tr>
<tr><td class="h"><a name="102"></a>102</td><td></td><td></td><td></td><td></td><td class="s">mandatory warnings are still enabled by default, they can then be</td></tr>
<tr><td class="h"><a name="103"></a>103</td><td></td><td></td><td></td><td></td><td class="s">subsequently enabled or disabled with the lexical warning pragma. For</td></tr>
<tr><td class="h"><a name="104"></a>104</td><td></td><td></td><td></td><td></td><td class="s">example, in the code below, an C<"isn't numeric"> warning will only</td></tr>
<tr><td class="h"><a name="105"></a>105</td><td></td><td></td><td></td><td></td><td class="s">be reported for the C<$a> variable.</td></tr>
<tr><td class="h"><a name="106"></a>106</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="107"></a>107</td><td></td><td></td><td></td><td></td><td class="s"> my $a = "2:" + 3;</td></tr>
<tr><td class="h"><a name="108"></a>108</td><td></td><td></td><td></td><td></td><td class="s"> no warnings;</td></tr>
<tr><td class="h"><a name="109"></a>109</td><td></td><td></td><td></td><td></td><td class="s"> my $b = "2:" + 3;</td></tr>
<tr><td class="h"><a name="110"></a>110</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="111"></a>111</td><td></td><td></td><td></td><td></td><td class="s">Note that neither the B<-w> flag or the C<$^W> can be used to</td></tr>
<tr><td class="h"><a name="112"></a>112</td><td></td><td></td><td></td><td></td><td class="s">disable/enable default warnings. They are still mandatory in this case.</td></tr>
<tr><td class="h"><a name="113"></a>113</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="114"></a>114</td><td></td><td></td><td></td><td></td><td class="s">=head2 What's wrong with B<-w> and C<$^W></td></tr>
<tr><td class="h"><a name="115"></a>115</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="116"></a>116</td><td></td><td></td><td></td><td></td><td class="s">Although very useful, the big problem with using B<-w> on the command</td></tr>
<tr><td class="h"><a name="117"></a>117</td><td></td><td></td><td></td><td></td><td class="s">line to enable warnings is that it is all or nothing. Take the typical</td></tr>
<tr><td class="h"><a name="118"></a>118</td><td></td><td></td><td></td><td></td><td class="s">scenario when you are writing a Perl program. Parts of the code you</td></tr>
<tr><td class="h"><a name="119"></a>119</td><td></td><td></td><td></td><td></td><td class="s">will write yourself, but it's very likely that you will make use of</td></tr>
<tr><td class="h"><a name="120"></a>120</td><td></td><td></td><td></td><td></td><td class="s">pre-written Perl modules. If you use the B<-w> flag in this case, you</td></tr>
<tr><td class="h"><a name="121"></a>121</td><td></td><td></td><td></td><td></td><td class="s">end up enabling warnings in pieces of code that you haven't written.</td></tr>
<tr><td class="h"><a name="122"></a>122</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="123"></a>123</td><td></td><td></td><td></td><td></td><td class="s">Similarly, using C<$^W> to either disable or enable blocks of code is</td></tr>
<tr><td class="h"><a name="124"></a>124</td><td></td><td></td><td></td><td></td><td class="s">fundamentally flawed. For a start, say you want to disable warnings in</td></tr>
<tr><td class="h"><a name="125"></a>125</td><td></td><td></td><td></td><td></td><td class="s">a block of code. You might expect this to be enough to do the trick:</td></tr>
<tr><td class="h"><a name="126"></a>126</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="127"></a>127</td><td></td><td></td><td></td><td></td><td class="s"> {</td></tr>
<tr><td class="h"><a name="128"></a>128</td><td></td><td></td><td></td><td></td><td class="s"> local ($^W) = 0;</td></tr>
<tr><td class="h"><a name="129"></a>129</td><td></td><td></td><td></td><td></td><td class="s"> my $a =+ 2;</td></tr>
<tr><td class="h"><a name="130"></a>130</td><td></td><td></td><td></td><td></td><td class="s"> my $b; chop $b;</td></tr>
<tr><td class="h"><a name="131"></a>131</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="132"></a>132</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="133"></a>133</td><td></td><td></td><td></td><td></td><td class="s">When this code is run with the B<-w> flag, a warning will be produced</td></tr>
<tr><td class="h"><a name="134"></a>134</td><td></td><td></td><td></td><td></td><td class="s">for the C<$a> line: C<"Reversed += operator">.</td></tr>
<tr><td class="h"><a name="135"></a>135</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="136"></a>136</td><td></td><td></td><td></td><td></td><td class="s">The problem is that Perl has both compile-time and run-time warnings. To</td></tr>
<tr><td class="h"><a name="137"></a>137</td><td></td><td></td><td></td><td></td><td class="s">disable compile-time warnings you need to rewrite the code like this:</td></tr>
<tr><td class="h"><a name="138"></a>138</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="139"></a>139</td><td></td><td></td><td></td><td></td><td class="s"> {</td></tr>
<tr><td class="h"><a name="140"></a>140</td><td></td><td></td><td></td><td></td><td class="s"> BEGIN { $^W = 0 }</td></tr>
<tr><td class="h"><a name="141"></a>141</td><td></td><td></td><td></td><td></td><td class="s"> my $a =+ 2;</td></tr>
<tr><td class="h"><a name="142"></a>142</td><td></td><td></td><td></td><td></td><td class="s"> my $b; chop $b;</td></tr>
<tr><td class="h"><a name="143"></a>143</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="144"></a>144</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="145"></a>145</td><td></td><td></td><td></td><td></td><td class="s">The other big problem with C<$^W> is the way you can inadvertently</td></tr>
<tr><td class="h"><a name="146"></a>146</td><td></td><td></td><td></td><td></td><td class="s">change the warning setting in unexpected places in your code. For example,</td></tr>
<tr><td class="h"><a name="147"></a>147</td><td></td><td></td><td></td><td></td><td class="s">when the code below is run (without the B<-w> flag), the second call</td></tr>
<tr><td class="h"><a name="148"></a>148</td><td></td><td></td><td></td><td></td><td class="s">to C<doit> will trip a C<"Use of uninitialized value"> warning, whereas</td></tr>
<tr><td class="h"><a name="149"></a>149</td><td></td><td></td><td></td><td></td><td class="s">the first will not.</td></tr>
<tr><td class="h"><a name="150"></a>150</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="151"></a>151</td><td></td><td></td><td></td><td></td><td class="s"> sub doit</td></tr>
<tr><td class="h"><a name="152"></a>152</td><td></td><td></td><td></td><td></td><td class="s"> {</td></tr>
<tr><td class="h"><a name="153"></a>153</td><td></td><td></td><td></td><td></td><td class="s"> my $b; chop $b;</td></tr>
<tr><td class="h"><a name="154"></a>154</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="155"></a>155</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="156"></a>156</td><td></td><td></td><td></td><td></td><td class="s"> doit();</td></tr>
<tr><td class="h"><a name="157"></a>157</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="158"></a>158</td><td></td><td></td><td></td><td></td><td class="s"> {</td></tr>
<tr><td class="h"><a name="159"></a>159</td><td></td><td></td><td></td><td></td><td class="s"> local ($^W) = 1;</td></tr>
<tr><td class="h"><a name="160"></a>160</td><td></td><td></td><td></td><td></td><td class="s"> doit()</td></tr>
<tr><td class="h"><a name="161"></a>161</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="162"></a>162</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="163"></a>163</td><td></td><td></td><td></td><td></td><td class="s">This is a side-effect of C<$^W> being dynamically scoped.</td></tr>
<tr><td class="h"><a name="164"></a>164</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="165"></a>165</td><td></td><td></td><td></td><td></td><td class="s">Lexical warnings get around these limitations by allowing finer control</td></tr>
<tr><td class="h"><a name="166"></a>166</td><td></td><td></td><td></td><td></td><td class="s">over where warnings can or can't be tripped.</td></tr>
<tr><td class="h"><a name="167"></a>167</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="168"></a>168</td><td></td><td></td><td></td><td></td><td class="s">=head2 Controlling Warnings from the Command Line</td></tr>
<tr><td class="h"><a name="169"></a>169</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="170"></a>170</td><td></td><td></td><td></td><td></td><td class="s">There are three Command Line flags that can be used to control when</td></tr>
<tr><td class="h"><a name="171"></a>171</td><td></td><td></td><td></td><td></td><td class="s">warnings are (or aren't) produced:</td></tr>
<tr><td class="h"><a name="172"></a>172</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="173"></a>173</td><td></td><td></td><td></td><td></td><td class="s">=over 5</td></tr>
<tr><td class="h"><a name="174"></a>174</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="175"></a>175</td><td></td><td></td><td></td><td></td><td class="s">=item B<-w></td></tr>
<tr><td class="h"><a name="176"></a>176</td><td></td><td></td><td></td><td></td><td class="s">X<-w></td></tr>
<tr><td class="h"><a name="177"></a>177</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="178"></a>178</td><td></td><td></td><td></td><td></td><td class="s">This is the existing flag. If the lexical warnings pragma is B<not></td></tr>
<tr><td class="h"><a name="179"></a>179</td><td></td><td></td><td></td><td></td><td class="s">used in any of you code, or any of the modules that you use, this flag</td></tr>
<tr><td class="h"><a name="180"></a>180</td><td></td><td></td><td></td><td></td><td class="s">will enable warnings everywhere. See L<Backward Compatibility> for</td></tr>
<tr><td class="h"><a name="181"></a>181</td><td></td><td></td><td></td><td></td><td class="s">details of how this flag interacts with lexical warnings.</td></tr>
<tr><td class="h"><a name="182"></a>182</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="183"></a>183</td><td></td><td></td><td></td><td></td><td class="s">=item B<-W></td></tr>
<tr><td class="h"><a name="184"></a>184</td><td></td><td></td><td></td><td></td><td class="s">X<-W></td></tr>
<tr><td class="h"><a name="185"></a>185</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="186"></a>186</td><td></td><td></td><td></td><td></td><td class="s">If the B<-W> flag is used on the command line, it will enable all warnings</td></tr>
<tr><td class="h"><a name="187"></a>187</td><td></td><td></td><td></td><td></td><td class="s">throughout the program regardless of whether warnings were disabled</td></tr>
<tr><td class="h"><a name="188"></a>188</td><td></td><td></td><td></td><td></td><td class="s">locally using C<no warnings> or C<$^W =0>.</td></tr>
<tr><td class="h"><a name="189"></a>189</td><td></td><td></td><td></td><td></td><td class="s">This includes all files that get</td></tr>
<tr><td class="h"><a name="190"></a>190</td><td></td><td></td><td></td><td></td><td class="s">included via C<use>, C<require> or C<do>.</td></tr>
<tr><td class="h"><a name="191"></a>191</td><td></td><td></td><td></td><td></td><td class="s">Think of it as the Perl equivalent of the "lint" command.</td></tr>
<tr><td class="h"><a name="192"></a>192</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="193"></a>193</td><td></td><td></td><td></td><td></td><td class="s">=item B<-X></td></tr>
<tr><td class="h"><a name="194"></a>194</td><td></td><td></td><td></td><td></td><td class="s">X<-X></td></tr>
<tr><td class="h"><a name="195"></a>195</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="196"></a>196</td><td></td><td></td><td></td><td></td><td class="s">Does the exact opposite to the B<-W> flag, i.e. it disables all warnings.</td></tr>
<tr><td class="h"><a name="197"></a>197</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="198"></a>198</td><td></td><td></td><td></td><td></td><td class="s">=back</td></tr>
<tr><td class="h"><a name="199"></a>199</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="200"></a>200</td><td></td><td></td><td></td><td></td><td class="s">=head2 Backward Compatibility</td></tr>
<tr><td class="h"><a name="201"></a>201</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="202"></a>202</td><td></td><td></td><td></td><td></td><td class="s">If you are used to working with a version of Perl prior to the</td></tr>
<tr><td class="h"><a name="203"></a>203</td><td></td><td></td><td></td><td></td><td class="s">introduction of lexically scoped warnings, or have code that uses both</td></tr>
<tr><td class="h"><a name="204"></a>204</td><td></td><td></td><td></td><td></td><td class="s">lexical warnings and C<$^W>, this section will describe how they interact.</td></tr>
<tr><td class="h"><a name="205"></a>205</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="206"></a>206</td><td></td><td></td><td></td><td></td><td class="s">How Lexical Warnings interact with B<-w>/C<$^W>:</td></tr>
<tr><td class="h"><a name="207"></a>207</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="208"></a>208</td><td></td><td></td><td></td><td></td><td class="s">=over 5</td></tr>
<tr><td class="h"><a name="209"></a>209</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="210"></a>210</td><td></td><td></td><td></td><td></td><td class="s">=item 1.</td></tr>
<tr><td class="h"><a name="211"></a>211</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="212"></a>212</td><td></td><td></td><td></td><td></td><td class="s">If none of the three command line flags (B<-w>, B<-W> or B<-X>) that</td></tr>
<tr><td class="h"><a name="213"></a>213</td><td></td><td></td><td></td><td></td><td class="s">control warnings is used and neither C<$^W> nor the C<warnings> pragma</td></tr>
<tr><td class="h"><a name="214"></a>214</td><td></td><td></td><td></td><td></td><td class="s">are used, then default warnings will be enabled and optional warnings</td></tr>
<tr><td class="h"><a name="215"></a>215</td><td></td><td></td><td></td><td></td><td class="s">disabled.</td></tr>
<tr><td class="h"><a name="216"></a>216</td><td></td><td></td><td></td><td></td><td class="s">This means that legacy code that doesn't attempt to control the warnings</td></tr>
<tr><td class="h"><a name="217"></a>217</td><td></td><td></td><td></td><td></td><td class="s">will work unchanged.</td></tr>
<tr><td class="h"><a name="218"></a>218</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="219"></a>219</td><td></td><td></td><td></td><td></td><td class="s">=item 2.</td></tr>
<tr><td class="h"><a name="220"></a>220</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="221"></a>221</td><td></td><td></td><td></td><td></td><td class="s">The B<-w> flag just sets the global C<$^W> variable as in 5.005. This</td></tr>
<tr><td class="h"><a name="222"></a>222</td><td></td><td></td><td></td><td></td><td class="s">means that any legacy code that currently relies on manipulating C<$^W></td></tr>
<tr><td class="h"><a name="223"></a>223</td><td></td><td></td><td></td><td></td><td class="s">to control warning behavior will still work as is. </td></tr>
<tr><td class="h"><a name="224"></a>224</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="225"></a>225</td><td></td><td></td><td></td><td></td><td class="s">=item 3.</td></tr>
<tr><td class="h"><a name="226"></a>226</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="227"></a>227</td><td></td><td></td><td></td><td></td><td class="s">Apart from now being a boolean, the C<$^W> variable operates in exactly</td></tr>
<tr><td class="h"><a name="228"></a>228</td><td></td><td></td><td></td><td></td><td class="s">the same horrible uncontrolled global way, except that it cannot</td></tr>
<tr><td class="h"><a name="229"></a>229</td><td></td><td></td><td></td><td></td><td class="s">disable/enable default warnings.</td></tr>
<tr><td class="h"><a name="230"></a>230</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="231"></a>231</td><td></td><td></td><td></td><td></td><td class="s">=item 4.</td></tr>
<tr><td class="h"><a name="232"></a>232</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="233"></a>233</td><td></td><td></td><td></td><td></td><td class="s">If a piece of code is under the control of the C<warnings> pragma,</td></tr>
<tr><td class="h"><a name="234"></a>234</td><td></td><td></td><td></td><td></td><td class="s">both the C<$^W> variable and the B<-w> flag will be ignored for the</td></tr>
<tr><td class="h"><a name="235"></a>235</td><td></td><td></td><td></td><td></td><td class="s">scope of the lexical warning.</td></tr>
<tr><td class="h"><a name="236"></a>236</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="237"></a>237</td><td></td><td></td><td></td><td></td><td class="s">=item 5.</td></tr>
<tr><td class="h"><a name="238"></a>238</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="239"></a>239</td><td></td><td></td><td></td><td></td><td class="s">The only way to override a lexical warnings setting is with the B<-W></td></tr>
<tr><td class="h"><a name="240"></a>240</td><td></td><td></td><td></td><td></td><td class="s">or B<-X> command line flags.</td></tr>
<tr><td class="h"><a name="241"></a>241</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="242"></a>242</td><td></td><td></td><td></td><td></td><td class="s">=back</td></tr>
<tr><td class="h"><a name="243"></a>243</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="244"></a>244</td><td></td><td></td><td></td><td></td><td class="s">The combined effect of 3 & 4 is that it will allow code which uses</td></tr>
<tr><td class="h"><a name="245"></a>245</td><td></td><td></td><td></td><td></td><td class="s">the C<warnings> pragma to control the warning behavior of $^W-type</td></tr>
<tr><td class="h"><a name="246"></a>246</td><td></td><td></td><td></td><td></td><td class="s">code (using a C<local $^W=0>) if it really wants to, but not vice-versa.</td></tr>
<tr><td class="h"><a name="247"></a>247</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="248"></a>248</td><td></td><td></td><td></td><td></td><td class="s">=head2 Category Hierarchy</td></tr>
<tr><td class="h"><a name="249"></a>249</td><td></td><td></td><td></td><td></td><td class="s">X<warning, categories></td></tr>
<tr><td class="h"><a name="250"></a>250</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="251"></a>251</td><td></td><td></td><td></td><td></td><td class="s">A hierarchy of "categories" have been defined to allow groups of warnings</td></tr>
<tr><td class="h"><a name="252"></a>252</td><td></td><td></td><td></td><td></td><td class="s">to be enabled/disabled in isolation.</td></tr>
<tr><td class="h"><a name="253"></a>253</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="254"></a>254</td><td></td><td></td><td></td><td></td><td class="s">The current hierarchy is:</td></tr>
<tr><td class="h"><a name="255"></a>255</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="256"></a>256</td><td></td><td></td><td></td><td></td><td class="s"> all -+</td></tr>
<tr><td class="h"><a name="257"></a>257</td><td></td><td></td><td></td><td></td><td class="s"> |</td></tr>
<tr><td class="h"><a name="258"></a>258</td><td></td><td></td><td></td><td></td><td class="s"> +- closure</td></tr>
<tr><td class="h"><a name="259"></a>259</td><td></td><td></td><td></td><td></td><td class="s"> |</td></tr>
<tr><td class="h"><a name="260"></a>260</td><td></td><td></td><td></td><td></td><td class="s"> +- deprecated</td></tr>
<tr><td class="h"><a name="261"></a>261</td><td></td><td></td><td></td><td></td><td class="s"> |</td></tr>
<tr><td class="h"><a name="262"></a>262</td><td></td><td></td><td></td><td></td><td class="s"> +- exiting</td></tr>
<tr><td class="h"><a name="263"></a>263</td><td></td><td></td><td></td><td></td><td class="s"> |</td></tr>
<tr><td class="h"><a name="264"></a>264</td><td></td><td></td><td></td><td></td><td class="s"> +- experimental --+</td></tr>
<tr><td class="h"><a name="265"></a>265</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="266"></a>266</td><td></td><td></td><td></td><td></td><td class="s"> | +- experimental::autoderef</td></tr>
<tr><td class="h"><a name="267"></a>267</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="268"></a>268</td><td></td><td></td><td></td><td></td><td class="s"> | +- experimental::lexical_subs</td></tr>
<tr><td class="h"><a name="269"></a>269</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="270"></a>270</td><td></td><td></td><td></td><td></td><td class="s"> | +- experimental::lexical_topic</td></tr>
<tr><td class="h"><a name="271"></a>271</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="272"></a>272</td><td></td><td></td><td></td><td></td><td class="s"> | +- experimental::postderef</td></tr>
<tr><td class="h"><a name="273"></a>273</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="274"></a>274</td><td></td><td></td><td></td><td></td><td class="s"> | +- experimental::regex_sets</td></tr>
<tr><td class="h"><a name="275"></a>275</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="276"></a>276</td><td></td><td></td><td></td><td></td><td class="s"> | +- experimental::signatures</td></tr>
<tr><td class="h"><a name="277"></a>277</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="278"></a>278</td><td></td><td></td><td></td><td></td><td class="s"> | +- experimental::smartmatch</td></tr>
<tr><td class="h"><a name="279"></a>279</td><td></td><td></td><td></td><td></td><td class="s"> |</td></tr>
<tr><td class="h"><a name="280"></a>280</td><td></td><td></td><td></td><td></td><td class="s"> +- glob</td></tr>
<tr><td class="h"><a name="281"></a>281</td><td></td><td></td><td></td><td></td><td class="s"> |</td></tr>
<tr><td class="h"><a name="282"></a>282</td><td></td><td></td><td></td><td></td><td class="s"> +- imprecision</td></tr>
<tr><td class="h"><a name="283"></a>283</td><td></td><td></td><td></td><td></td><td class="s"> |</td></tr>
<tr><td class="h"><a name="284"></a>284</td><td></td><td></td><td></td><td></td><td class="s"> +- io ------------+</td></tr>
<tr><td class="h"><a name="285"></a>285</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="286"></a>286</td><td></td><td></td><td></td><td></td><td class="s"> | +- closed</td></tr>
<tr><td class="h"><a name="287"></a>287</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="288"></a>288</td><td></td><td></td><td></td><td></td><td class="s"> | +- exec</td></tr>
<tr><td class="h"><a name="289"></a>289</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="290"></a>290</td><td></td><td></td><td></td><td></td><td class="s"> | +- layer</td></tr>
<tr><td class="h"><a name="291"></a>291</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="292"></a>292</td><td></td><td></td><td></td><td></td><td class="s"> | +- newline</td></tr>
<tr><td class="h"><a name="293"></a>293</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="294"></a>294</td><td></td><td></td><td></td><td></td><td class="s"> | +- pipe</td></tr>
<tr><td class="h"><a name="295"></a>295</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="296"></a>296</td><td></td><td></td><td></td><td></td><td class="s"> | +- syscalls</td></tr>
<tr><td class="h"><a name="297"></a>297</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="298"></a>298</td><td></td><td></td><td></td><td></td><td class="s"> | +- unopened</td></tr>
<tr><td class="h"><a name="299"></a>299</td><td></td><td></td><td></td><td></td><td class="s"> |</td></tr>
<tr><td class="h"><a name="300"></a>300</td><td></td><td></td><td></td><td></td><td class="s"> +- misc</td></tr>
<tr><td class="h"><a name="301"></a>301</td><td></td><td></td><td></td><td></td><td class="s"> |</td></tr>
<tr><td class="h"><a name="302"></a>302</td><td></td><td></td><td></td><td></td><td class="s"> +- numeric</td></tr>
<tr><td class="h"><a name="303"></a>303</td><td></td><td></td><td></td><td></td><td class="s"> |</td></tr>
<tr><td class="h"><a name="304"></a>304</td><td></td><td></td><td></td><td></td><td class="s"> +- once</td></tr>
<tr><td class="h"><a name="305"></a>305</td><td></td><td></td><td></td><td></td><td class="s"> |</td></tr>
<tr><td class="h"><a name="306"></a>306</td><td></td><td></td><td></td><td></td><td class="s"> +- overflow</td></tr>
<tr><td class="h"><a name="307"></a>307</td><td></td><td></td><td></td><td></td><td class="s"> |</td></tr>
<tr><td class="h"><a name="308"></a>308</td><td></td><td></td><td></td><td></td><td class="s"> +- pack</td></tr>
<tr><td class="h"><a name="309"></a>309</td><td></td><td></td><td></td><td></td><td class="s"> |</td></tr>
<tr><td class="h"><a name="310"></a>310</td><td></td><td></td><td></td><td></td><td class="s"> +- portable</td></tr>
<tr><td class="h"><a name="311"></a>311</td><td></td><td></td><td></td><td></td><td class="s"> |</td></tr>
<tr><td class="h"><a name="312"></a>312</td><td></td><td></td><td></td><td></td><td class="s"> +- recursion</td></tr>
<tr><td class="h"><a name="313"></a>313</td><td></td><td></td><td></td><td></td><td class="s"> |</td></tr>
<tr><td class="h"><a name="314"></a>314</td><td></td><td></td><td></td><td></td><td class="s"> +- redefine</td></tr>
<tr><td class="h"><a name="315"></a>315</td><td></td><td></td><td></td><td></td><td class="s"> |</td></tr>
<tr><td class="h"><a name="316"></a>316</td><td></td><td></td><td></td><td></td><td class="s"> +- regexp</td></tr>
<tr><td class="h"><a name="317"></a>317</td><td></td><td></td><td></td><td></td><td class="s"> |</td></tr>
<tr><td class="h"><a name="318"></a>318</td><td></td><td></td><td></td><td></td><td class="s"> +- severe --------+</td></tr>
<tr><td class="h"><a name="319"></a>319</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="320"></a>320</td><td></td><td></td><td></td><td></td><td class="s"> | +- debugging</td></tr>
<tr><td class="h"><a name="321"></a>321</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="322"></a>322</td><td></td><td></td><td></td><td></td><td class="s"> | +- inplace</td></tr>
<tr><td class="h"><a name="323"></a>323</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="324"></a>324</td><td></td><td></td><td></td><td></td><td class="s"> | +- internal</td></tr>
<tr><td class="h"><a name="325"></a>325</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="326"></a>326</td><td></td><td></td><td></td><td></td><td class="s"> | +- malloc</td></tr>
<tr><td class="h"><a name="327"></a>327</td><td></td><td></td><td></td><td></td><td class="s"> |</td></tr>
<tr><td class="h"><a name="328"></a>328</td><td></td><td></td><td></td><td></td><td class="s"> +- signal</td></tr>
<tr><td class="h"><a name="329"></a>329</td><td></td><td></td><td></td><td></td><td class="s"> |</td></tr>
<tr><td class="h"><a name="330"></a>330</td><td></td><td></td><td></td><td></td><td class="s"> +- substr</td></tr>
<tr><td class="h"><a name="331"></a>331</td><td></td><td></td><td></td><td></td><td class="s"> |</td></tr>
<tr><td class="h"><a name="332"></a>332</td><td></td><td></td><td></td><td></td><td class="s"> +- syntax --------+</td></tr>
<tr><td class="h"><a name="333"></a>333</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="334"></a>334</td><td></td><td></td><td></td><td></td><td class="s"> | +- ambiguous</td></tr>
<tr><td class="h"><a name="335"></a>335</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="336"></a>336</td><td></td><td></td><td></td><td></td><td class="s"> | +- bareword</td></tr>
<tr><td class="h"><a name="337"></a>337</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="338"></a>338</td><td></td><td></td><td></td><td></td><td class="s"> | +- digit</td></tr>
<tr><td class="h"><a name="339"></a>339</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="340"></a>340</td><td></td><td></td><td></td><td></td><td class="s"> | +- illegalproto</td></tr>
<tr><td class="h"><a name="341"></a>341</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="342"></a>342</td><td></td><td></td><td></td><td></td><td class="s"> | +- parenthesis</td></tr>
<tr><td class="h"><a name="343"></a>343</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="344"></a>344</td><td></td><td></td><td></td><td></td><td class="s"> | +- precedence</td></tr>
<tr><td class="h"><a name="345"></a>345</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="346"></a>346</td><td></td><td></td><td></td><td></td><td class="s"> | +- printf</td></tr>
<tr><td class="h"><a name="347"></a>347</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="348"></a>348</td><td></td><td></td><td></td><td></td><td class="s"> | +- prototype</td></tr>
<tr><td class="h"><a name="349"></a>349</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="350"></a>350</td><td></td><td></td><td></td><td></td><td class="s"> | +- qw</td></tr>
<tr><td class="h"><a name="351"></a>351</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="352"></a>352</td><td></td><td></td><td></td><td></td><td class="s"> | +- reserved</td></tr>
<tr><td class="h"><a name="353"></a>353</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="354"></a>354</td><td></td><td></td><td></td><td></td><td class="s"> | +- semicolon</td></tr>
<tr><td class="h"><a name="355"></a>355</td><td></td><td></td><td></td><td></td><td class="s"> |</td></tr>
<tr><td class="h"><a name="356"></a>356</td><td></td><td></td><td></td><td></td><td class="s"> +- taint</td></tr>
<tr><td class="h"><a name="357"></a>357</td><td></td><td></td><td></td><td></td><td class="s"> |</td></tr>
<tr><td class="h"><a name="358"></a>358</td><td></td><td></td><td></td><td></td><td class="s"> +- threads</td></tr>
<tr><td class="h"><a name="359"></a>359</td><td></td><td></td><td></td><td></td><td class="s"> |</td></tr>
<tr><td class="h"><a name="360"></a>360</td><td></td><td></td><td></td><td></td><td class="s"> +- uninitialized</td></tr>
<tr><td class="h"><a name="361"></a>361</td><td></td><td></td><td></td><td></td><td class="s"> |</td></tr>
<tr><td class="h"><a name="362"></a>362</td><td></td><td></td><td></td><td></td><td class="s"> +- unpack</td></tr>
<tr><td class="h"><a name="363"></a>363</td><td></td><td></td><td></td><td></td><td class="s"> |</td></tr>
<tr><td class="h"><a name="364"></a>364</td><td></td><td></td><td></td><td></td><td class="s"> +- untie</td></tr>
<tr><td class="h"><a name="365"></a>365</td><td></td><td></td><td></td><td></td><td class="s"> |</td></tr>
<tr><td class="h"><a name="366"></a>366</td><td></td><td></td><td></td><td></td><td class="s"> +- utf8 ----------+</td></tr>
<tr><td class="h"><a name="367"></a>367</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="368"></a>368</td><td></td><td></td><td></td><td></td><td class="s"> | +- non_unicode</td></tr>
<tr><td class="h"><a name="369"></a>369</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="370"></a>370</td><td></td><td></td><td></td><td></td><td class="s"> | +- nonchar</td></tr>
<tr><td class="h"><a name="371"></a>371</td><td></td><td></td><td></td><td></td><td class="s"> | |</td></tr>
<tr><td class="h"><a name="372"></a>372</td><td></td><td></td><td></td><td></td><td class="s"> | +- surrogate</td></tr>
<tr><td class="h"><a name="373"></a>373</td><td></td><td></td><td></td><td></td><td class="s"> |</td></tr>
<tr><td class="h"><a name="374"></a>374</td><td></td><td></td><td></td><td></td><td class="s"> +- void</td></tr>
<tr><td class="h"><a name="375"></a>375</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="376"></a>376</td><td></td><td></td><td></td><td></td><td class="s">Just like the "strict" pragma any of these categories can be combined</td></tr>
<tr><td class="h"><a name="377"></a>377</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="378"></a>378</td><td></td><td></td><td></td><td></td><td class="s"> use warnings qw(void redefine);</td></tr>
<tr><td class="h"><a name="379"></a>379</td><td></td><td></td><td></td><td></td><td class="s"> no warnings qw(io syntax untie);</td></tr>
<tr><td class="h"><a name="380"></a>380</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="381"></a>381</td><td></td><td></td><td></td><td></td><td class="s">Also like the "strict" pragma, if there is more than one instance of the</td></tr>
<tr><td class="h"><a name="382"></a>382</td><td></td><td></td><td></td><td></td><td class="s">C<warnings> pragma in a given scope the cumulative effect is additive. </td></tr>
<tr><td class="h"><a name="383"></a>383</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="384"></a>384</td><td></td><td></td><td></td><td></td><td class="s"> use warnings qw(void); # only "void" warnings enabled</td></tr>
<tr><td class="h"><a name="385"></a>385</td><td></td><td></td><td></td><td></td><td class="s"> ...</td></tr>
<tr><td class="h"><a name="386"></a>386</td><td></td><td></td><td></td><td></td><td class="s"> use warnings qw(io); # only "void" & "io" warnings enabled</td></tr>
<tr><td class="h"><a name="387"></a>387</td><td></td><td></td><td></td><td></td><td class="s"> ...</td></tr>
<tr><td class="h"><a name="388"></a>388</td><td></td><td></td><td></td><td></td><td class="s"> no warnings qw(void); # only "io" warnings enabled</td></tr>
<tr><td class="h"><a name="389"></a>389</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="390"></a>390</td><td></td><td></td><td></td><td></td><td class="s">To determine which category a specific warning has been assigned to see</td></tr>
<tr><td class="h"><a name="391"></a>391</td><td></td><td></td><td></td><td></td><td class="s">L<perldiag>.</td></tr>
<tr><td class="h"><a name="392"></a>392</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="393"></a>393</td><td></td><td></td><td></td><td></td><td class="s">Note: Before Perl 5.8.0, the lexical warnings category "deprecated" was a</td></tr>
<tr><td class="h"><a name="394"></a>394</td><td></td><td></td><td></td><td></td><td class="s">sub-category of the "syntax" category. It is now a top-level category</td></tr>
<tr><td class="h"><a name="395"></a>395</td><td></td><td></td><td></td><td></td><td class="s">in its own right.</td></tr>
<tr><td class="h"><a name="396"></a>396</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="397"></a>397</td><td></td><td></td><td></td><td></td><td class="s">=head2 Fatal Warnings</td></tr>
<tr><td class="h"><a name="398"></a>398</td><td></td><td></td><td></td><td></td><td class="s">X<warning, fatal></td></tr>
<tr><td class="h"><a name="399"></a>399</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="400"></a>400</td><td></td><td></td><td></td><td></td><td class="s">The presence of the word "FATAL" in the category list will escalate any</td></tr>
<tr><td class="h"><a name="401"></a>401</td><td></td><td></td><td></td><td></td><td class="s">warnings detected from the categories specified in the lexical scope</td></tr>
<tr><td class="h"><a name="402"></a>402</td><td></td><td></td><td></td><td></td><td class="s">into fatal errors. In the code below, the use of C<time>, C<length></td></tr>
<tr><td class="h"><a name="403"></a>403</td><td></td><td></td><td></td><td></td><td class="s">and C<join> can all produce a C<"Useless use of xxx in void context"></td></tr>
<tr><td class="h"><a name="404"></a>404</td><td></td><td></td><td></td><td></td><td class="s">warning.</td></tr>
<tr><td class="h"><a name="405"></a>405</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="406"></a>406</td><td></td><td></td><td></td><td></td><td class="s"> use warnings;</td></tr>
<tr><td class="h"><a name="407"></a>407</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="408"></a>408</td><td></td><td></td><td></td><td></td><td class="s"> time;</td></tr>
<tr><td class="h"><a name="409"></a>409</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="410"></a>410</td><td></td><td></td><td></td><td></td><td class="s"> {</td></tr>
<tr><td class="h"><a name="411"></a>411</td><td></td><td></td><td></td><td></td><td class="s"> use warnings FATAL => qw(void);</td></tr>
<tr><td class="h"><a name="412"></a>412</td><td></td><td></td><td></td><td></td><td class="s"> length "abc";</td></tr>
<tr><td class="h"><a name="413"></a>413</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="414"></a>414</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="415"></a>415</td><td></td><td></td><td></td><td></td><td class="s"> join "", 1,2,3;</td></tr>
<tr><td class="h"><a name="416"></a>416</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="417"></a>417</td><td></td><td></td><td></td><td></td><td class="s"> print "done\n";</td></tr>
<tr><td class="h"><a name="418"></a>418</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="419"></a>419</td><td></td><td></td><td></td><td></td><td class="s">When run it produces this output</td></tr>
<tr><td class="h"><a name="420"></a>420</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="421"></a>421</td><td></td><td></td><td></td><td></td><td class="s"> Useless use of time in void context at fatal line 3.</td></tr>
<tr><td class="h"><a name="422"></a>422</td><td></td><td></td><td></td><td></td><td class="s"> Useless use of length in void context at fatal line 7. </td></tr>
<tr><td class="h"><a name="423"></a>423</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="424"></a>424</td><td></td><td></td><td></td><td></td><td class="s">The scope where C<length> is used has escalated the C<void> warnings</td></tr>
<tr><td class="h"><a name="425"></a>425</td><td></td><td></td><td></td><td></td><td class="s">category into a fatal error, so the program terminates immediately when it</td></tr>
<tr><td class="h"><a name="426"></a>426</td><td></td><td></td><td></td><td></td><td class="s">encounters the warning.</td></tr>
<tr><td class="h"><a name="427"></a>427</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="428"></a>428</td><td></td><td></td><td></td><td></td><td class="s">To explicitly turn off a "FATAL" warning you just disable the warning</td></tr>
<tr><td class="h"><a name="429"></a>429</td><td></td><td></td><td></td><td></td><td class="s">it is associated with. So, for example, to disable the "void" warning</td></tr>
<tr><td class="h"><a name="430"></a>430</td><td></td><td></td><td></td><td></td><td class="s">in the example above, either of these will do the trick:</td></tr>
<tr><td class="h"><a name="431"></a>431</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="432"></a>432</td><td></td><td></td><td></td><td></td><td class="s"> no warnings qw(void);</td></tr>
<tr><td class="h"><a name="433"></a>433</td><td></td><td></td><td></td><td></td><td class="s"> no warnings FATAL => qw(void);</td></tr>
<tr><td class="h"><a name="434"></a>434</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="435"></a>435</td><td></td><td></td><td></td><td></td><td class="s">If you want to downgrade a warning that has been escalated into a fatal</td></tr>
<tr><td class="h"><a name="436"></a>436</td><td></td><td></td><td></td><td></td><td class="s">error back to a normal warning, you can use the "NONFATAL" keyword. For</td></tr>
<tr><td class="h"><a name="437"></a>437</td><td></td><td></td><td></td><td></td><td class="s">example, the code below will promote all warnings into fatal errors,</td></tr>
<tr><td class="h"><a name="438"></a>438</td><td></td><td></td><td></td><td></td><td class="s">except for those in the "syntax" category.</td></tr>
<tr><td class="h"><a name="439"></a>439</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="440"></a>440</td><td></td><td></td><td></td><td></td><td class="s"> use warnings FATAL => 'all', NONFATAL => 'syntax';</td></tr>
<tr><td class="h"><a name="441"></a>441</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="442"></a>442</td><td></td><td></td><td></td><td></td><td class="s">As of Perl 5.20, instead of C<< use warnings FATAL => 'all'; >> you can</td></tr>
<tr><td class="h"><a name="443"></a>443</td><td></td><td></td><td></td><td></td><td class="s">use:</td></tr>
<tr><td class="h"><a name="444"></a>444</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="445"></a>445</td><td></td><td></td><td></td><td></td><td class="s"> use v5.20; # Perl 5.20 or greater is required for the following</td></tr>
<tr><td class="h"><a name="446"></a>446</td><td></td><td></td><td></td><td></td><td class="s"> use warnings 'FATAL'; # short form of "use warnings FATAL => 'all';"</td></tr>
<tr><td class="h"><a name="447"></a>447</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="448"></a>448</td><td></td><td></td><td></td><td></td><td class="s">If you want your program to be compatible with versions of Perl before</td></tr>
<tr><td class="h"><a name="449"></a>449</td><td></td><td></td><td></td><td></td><td class="s">5.20, you must use C<< use warnings FATAL => 'all'; >> instead. (In</td></tr>
<tr><td class="h"><a name="450"></a>450</td><td></td><td></td><td></td><td></td><td class="s">previous versions of Perl, the behavior of the statements</td></tr>
<tr><td class="h"><a name="451"></a>451</td><td></td><td></td><td></td><td></td><td class="s">C<< use warnings 'FATAL'; >>, C<< use warnings 'NONFATAL'; >> and</td></tr>
<tr><td class="h"><a name="452"></a>452</td><td></td><td></td><td></td><td></td><td class="s">C<< no warnings 'FATAL'; >> was unspecified; they did not behave as if</td></tr>
<tr><td class="h"><a name="453"></a>453</td><td></td><td></td><td></td><td></td><td class="s">they included the C<< => 'all' >> portion. As of 5.20, they do.)</td></tr>
<tr><td class="h"><a name="454"></a>454</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="455"></a>455</td><td></td><td></td><td></td><td></td><td class="s">B<NOTE:> Users of FATAL warnings, especially</td></tr>
<tr><td class="h"><a name="456"></a>456</td><td></td><td></td><td></td><td></td><td class="s">those using C<< FATAL => 'all' >></td></tr>
<tr><td class="h"><a name="457"></a>457</td><td></td><td></td><td></td><td></td><td class="s">should be fully aware that they are risking future portability of their</td></tr>
<tr><td class="h"><a name="458"></a>458</td><td></td><td></td><td></td><td></td><td class="s">programs by doing so. Perl makes absolutely no commitments to not</td></tr>
<tr><td class="h"><a name="459"></a>459</td><td></td><td></td><td></td><td></td><td class="s">introduce new warnings, or warnings categories in the future, and indeed</td></tr>
<tr><td class="h"><a name="460"></a>460</td><td></td><td></td><td></td><td></td><td class="s">we explicitly reserve the right to do so. Code that may not warn now may</td></tr>
<tr><td class="h"><a name="461"></a>461</td><td></td><td></td><td></td><td></td><td class="s">warn in a future release of Perl if the Perl5 development team deems it</td></tr>
<tr><td class="h"><a name="462"></a>462</td><td></td><td></td><td></td><td></td><td class="s">in the best interests of the community to do so. Should code using FATAL</td></tr>
<tr><td class="h"><a name="463"></a>463</td><td></td><td></td><td></td><td></td><td class="s">warnings break due to the introduction of a new warning we will NOT</td></tr>
<tr><td class="h"><a name="464"></a>464</td><td></td><td></td><td></td><td></td><td class="s">consider it an incompatible change. Users of FATAL warnings should take</td></tr>
<tr><td class="h"><a name="465"></a>465</td><td></td><td></td><td></td><td></td><td class="s">special caution during upgrades to check to see if their code triggers</td></tr>
<tr><td class="h"><a name="466"></a>466</td><td></td><td></td><td></td><td></td><td class="s">any new warnings and should pay particular attention to the fine print of</td></tr>
<tr><td class="h"><a name="467"></a>467</td><td></td><td></td><td></td><td></td><td class="s">the documentation of the features they use to ensure they do not exploit</td></tr>
<tr><td class="h"><a name="468"></a>468</td><td></td><td></td><td></td><td></td><td class="s">features that are documented as risky, deprecated, or unspecified, or where</td></tr>
<tr><td class="h"><a name="469"></a>469</td><td></td><td></td><td></td><td></td><td class="s">the documentation says "so don't do that", or anything with the same sense</td></tr>
<tr><td class="h"><a name="470"></a>470</td><td></td><td></td><td></td><td></td><td class="s">and spirit. Use of such features in combination with FATAL warnings is</td></tr>
<tr><td class="h"><a name="471"></a>471</td><td></td><td></td><td></td><td></td><td class="s">ENTIRELY AT THE USER'S RISK.</td></tr>
<tr><td class="h"><a name="472"></a>472</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="473"></a>473</td><td></td><td></td><td></td><td></td><td class="s">=head2 Reporting Warnings from a Module</td></tr>
<tr><td class="h"><a name="474"></a>474</td><td></td><td></td><td></td><td></td><td class="s">X<warning, reporting> X<warning, registering></td></tr>
<tr><td class="h"><a name="475"></a>475</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="476"></a>476</td><td></td><td></td><td></td><td></td><td class="s">The C<warnings> pragma provides a number of functions that are useful for</td></tr>
<tr><td class="h"><a name="477"></a>477</td><td></td><td></td><td></td><td></td><td class="s">module authors. These are used when you want to report a module-specific</td></tr>
<tr><td class="h"><a name="478"></a>478</td><td></td><td></td><td></td><td></td><td class="s">warning to a calling module has enabled warnings via the C<warnings></td></tr>
<tr><td class="h"><a name="479"></a>479</td><td></td><td></td><td></td><td></td><td class="s">pragma.</td></tr>
<tr><td class="h"><a name="480"></a>480</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="481"></a>481</td><td></td><td></td><td></td><td></td><td class="s">Consider the module C<MyMod::Abc> below.</td></tr>
<tr><td class="h"><a name="482"></a>482</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="483"></a>483</td><td></td><td></td><td></td><td></td><td class="s"> package MyMod::Abc;</td></tr>
<tr><td class="h"><a name="484"></a>484</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="485"></a>485</td><td></td><td></td><td></td><td></td><td class="s"> use warnings::register;</td></tr>
<tr><td class="h"><a name="486"></a>486</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="487"></a>487</td><td></td><td></td><td></td><td></td><td class="s"> sub open {</td></tr>
<tr><td class="h"><a name="488"></a>488</td><td></td><td></td><td></td><td></td><td class="s"> my $path = shift;</td></tr>
<tr><td class="h"><a name="489"></a>489</td><td></td><td></td><td></td><td></td><td class="s"> if ($path !~ m#^/#) {</td></tr>
<tr><td class="h"><a name="490"></a>490</td><td></td><td></td><td></td><td></td><td class="s"> warnings::warn("changing relative path to /var/abc")</td></tr>
<tr><td class="h"><a name="491"></a>491</td><td></td><td></td><td></td><td></td><td class="s"> if warnings::enabled();</td></tr>
<tr><td class="h"><a name="492"></a>492</td><td></td><td></td><td></td><td></td><td class="s"> $path = "/var/abc/$path";</td></tr>
<tr><td class="h"><a name="493"></a>493</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="494"></a>494</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="495"></a>495</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="496"></a>496</td><td></td><td></td><td></td><td></td><td class="s"> 1;</td></tr>
<tr><td class="h"><a name="497"></a>497</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="498"></a>498</td><td></td><td></td><td></td><td></td><td class="s">The call to C<warnings::register> will create a new warnings category</td></tr>
<tr><td class="h"><a name="499"></a>499</td><td></td><td></td><td></td><td></td><td class="s">called "MyMod::Abc", i.e. the new category name matches the current</td></tr>
<tr><td class="h"><a name="500"></a>500</td><td></td><td></td><td></td><td></td><td class="s">package name. The C<open> function in the module will display a warning</td></tr>
<tr><td class="h"><a name="501"></a>501</td><td></td><td></td><td></td><td></td><td class="s">message if it gets given a relative path as a parameter. This warnings</td></tr>
<tr><td class="h"><a name="502"></a>502</td><td></td><td></td><td></td><td></td><td class="s">will only be displayed if the code that uses C<MyMod::Abc> has actually</td></tr>
<tr><td class="h"><a name="503"></a>503</td><td></td><td></td><td></td><td></td><td class="s">enabled them with the C<warnings> pragma like below.</td></tr>
<tr><td class="h"><a name="504"></a>504</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="505"></a>505</td><td></td><td></td><td></td><td></td><td class="s"> use MyMod::Abc;</td></tr>
<tr><td class="h"><a name="506"></a>506</td><td></td><td></td><td></td><td></td><td class="s"> use warnings 'MyMod::Abc';</td></tr>
<tr><td class="h"><a name="507"></a>507</td><td></td><td></td><td></td><td></td><td class="s"> ...</td></tr>
<tr><td class="h"><a name="508"></a>508</td><td></td><td></td><td></td><td></td><td class="s"> abc::open("../fred.txt");</td></tr>
<tr><td class="h"><a name="509"></a>509</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="510"></a>510</td><td></td><td></td><td></td><td></td><td class="s">It is also possible to test whether the pre-defined warnings categories are</td></tr>
<tr><td class="h"><a name="511"></a>511</td><td></td><td></td><td></td><td></td><td class="s">set in the calling module with the C<warnings::enabled> function. Consider</td></tr>
<tr><td class="h"><a name="512"></a>512</td><td></td><td></td><td></td><td></td><td class="s">this snippet of code:</td></tr>
<tr><td class="h"><a name="513"></a>513</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="514"></a>514</td><td></td><td></td><td></td><td></td><td class="s"> package MyMod::Abc;</td></tr>
<tr><td class="h"><a name="515"></a>515</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="516"></a>516</td><td></td><td></td><td></td><td></td><td class="s"> sub open {</td></tr>
<tr><td class="h"><a name="517"></a>517</td><td></td><td></td><td></td><td></td><td class="s"> warnings::warnif("deprecated", </td></tr>
<tr><td class="h"><a name="518"></a>518</td><td></td><td></td><td></td><td></td><td class="s"> "open is deprecated, use new instead");</td></tr>
<tr><td class="h"><a name="519"></a>519</td><td></td><td></td><td></td><td></td><td class="s"> new(@_);</td></tr>
<tr><td class="h"><a name="520"></a>520</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="521"></a>521</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="522"></a>522</td><td></td><td></td><td></td><td></td><td class="s"> sub new</td></tr>
<tr><td class="h"><a name="523"></a>523</td><td></td><td></td><td></td><td></td><td class="s"> ...</td></tr>
<tr><td class="h"><a name="524"></a>524</td><td></td><td></td><td></td><td></td><td class="s"> 1;</td></tr>
<tr><td class="h"><a name="525"></a>525</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="526"></a>526</td><td></td><td></td><td></td><td></td><td class="s">The function C<open> has been deprecated, so code has been included to</td></tr>
<tr><td class="h"><a name="527"></a>527</td><td></td><td></td><td></td><td></td><td class="s">display a warning message whenever the calling module has (at least) the</td></tr>
<tr><td class="h"><a name="528"></a>528</td><td></td><td></td><td></td><td></td><td class="s">"deprecated" warnings category enabled. Something like this, say.</td></tr>
<tr><td class="h"><a name="529"></a>529</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="530"></a>530</td><td></td><td></td><td></td><td></td><td class="s"> use warnings 'deprecated';</td></tr>
<tr><td class="h"><a name="531"></a>531</td><td></td><td></td><td></td><td></td><td class="s"> use MyMod::Abc;</td></tr>
<tr><td class="h"><a name="532"></a>532</td><td></td><td></td><td></td><td></td><td class="s"> ...</td></tr>
<tr><td class="h"><a name="533"></a>533</td><td></td><td></td><td></td><td></td><td class="s"> MyMod::Abc::open($filename);</td></tr>
<tr><td class="h"><a name="534"></a>534</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="535"></a>535</td><td></td><td></td><td></td><td></td><td class="s">Either the C<warnings::warn> or C<warnings::warnif> function should be</td></tr>
<tr><td class="h"><a name="536"></a>536</td><td></td><td></td><td></td><td></td><td class="s">used to actually display the warnings message. This is because they can</td></tr>
<tr><td class="h"><a name="537"></a>537</td><td></td><td></td><td></td><td></td><td class="s">make use of the feature that allows warnings to be escalated into fatal</td></tr>
<tr><td class="h"><a name="538"></a>538</td><td></td><td></td><td></td><td></td><td class="s">errors. So in this case</td></tr>
<tr><td class="h"><a name="539"></a>539</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="540"></a>540</td><td></td><td></td><td></td><td></td><td class="s"> use MyMod::Abc;</td></tr>
<tr><td class="h"><a name="541"></a>541</td><td></td><td></td><td></td><td></td><td class="s"> use warnings FATAL => 'MyMod::Abc';</td></tr>
<tr><td class="h"><a name="542"></a>542</td><td></td><td></td><td></td><td></td><td class="s"> ...</td></tr>
<tr><td class="h"><a name="543"></a>543</td><td></td><td></td><td></td><td></td><td class="s"> MyMod::Abc::open('../fred.txt');</td></tr>
<tr><td class="h"><a name="544"></a>544</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="545"></a>545</td><td></td><td></td><td></td><td></td><td class="s">the C<warnings::warnif> function will detect this and die after</td></tr>
<tr><td class="h"><a name="546"></a>546</td><td></td><td></td><td></td><td></td><td class="s">displaying the warning message.</td></tr>
<tr><td class="h"><a name="547"></a>547</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="548"></a>548</td><td></td><td></td><td></td><td></td><td class="s">The three warnings functions, C<warnings::warn>, C<warnings::warnif></td></tr>
<tr><td class="h"><a name="549"></a>549</td><td></td><td></td><td></td><td></td><td class="s">and C<warnings::enabled> can optionally take an object reference in place</td></tr>
<tr><td class="h"><a name="550"></a>550</td><td></td><td></td><td></td><td></td><td class="s">of a category name. In this case the functions will use the class name</td></tr>
<tr><td class="h"><a name="551"></a>551</td><td></td><td></td><td></td><td></td><td class="s">of the object as the warnings category.</td></tr>
<tr><td class="h"><a name="552"></a>552</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="553"></a>553</td><td></td><td></td><td></td><td></td><td class="s">Consider this example:</td></tr>
<tr><td class="h"><a name="554"></a>554</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="555"></a>555</td><td></td><td></td><td></td><td></td><td class="s"> package Original;</td></tr>
<tr><td class="h"><a name="556"></a>556</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="557"></a>557</td><td></td><td></td><td></td><td></td><td class="s"> no warnings;</td></tr>
<tr><td class="h"><a name="558"></a>558</td><td></td><td></td><td></td><td></td><td class="s"> use warnings::register;</td></tr>
<tr><td class="h"><a name="559"></a>559</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="560"></a>560</td><td></td><td></td><td></td><td></td><td class="s"> sub new</td></tr>
<tr><td class="h"><a name="561"></a>561</td><td></td><td></td><td></td><td></td><td class="s"> {</td></tr>
<tr><td class="h"><a name="562"></a>562</td><td></td><td></td><td></td><td></td><td class="s"> my $class = shift;</td></tr>
<tr><td class="h"><a name="563"></a>563</td><td></td><td></td><td></td><td></td><td class="s"> bless [], $class;</td></tr>
<tr><td class="h"><a name="564"></a>564</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="565"></a>565</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="566"></a>566</td><td></td><td></td><td></td><td></td><td class="s"> sub check</td></tr>
<tr><td class="h"><a name="567"></a>567</td><td></td><td></td><td></td><td></td><td class="s"> {</td></tr>
<tr><td class="h"><a name="568"></a>568</td><td></td><td></td><td></td><td></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h"><a name="569"></a>569</td><td></td><td></td><td></td><td></td><td class="s"> my $value = shift;</td></tr>
<tr><td class="h"><a name="570"></a>570</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="571"></a>571</td><td></td><td></td><td></td><td></td><td class="s"> if ($value % 2 && warnings::enabled($self))</td></tr>
<tr><td class="h"><a name="572"></a>572</td><td></td><td></td><td></td><td></td><td class="s"> { warnings::warn($self, "Odd numbers are unsafe") }</td></tr>
<tr><td class="h"><a name="573"></a>573</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="574"></a>574</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="575"></a>575</td><td></td><td></td><td></td><td></td><td class="s"> sub doit</td></tr>
<tr><td class="h"><a name="576"></a>576</td><td></td><td></td><td></td><td></td><td class="s"> {</td></tr>
<tr><td class="h"><a name="577"></a>577</td><td></td><td></td><td></td><td></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h"><a name="578"></a>578</td><td></td><td></td><td></td><td></td><td class="s"> my $value = shift;</td></tr>
<tr><td class="h"><a name="579"></a>579</td><td></td><td></td><td></td><td></td><td class="s"> $self->check($value);</td></tr>
<tr><td class="h"><a name="580"></a>580</td><td></td><td></td><td></td><td></td><td class="s"> # ...</td></tr>
<tr><td class="h"><a name="581"></a>581</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="582"></a>582</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="583"></a>583</td><td></td><td></td><td></td><td></td><td class="s"> 1;</td></tr>
<tr><td class="h"><a name="584"></a>584</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="585"></a>585</td><td></td><td></td><td></td><td></td><td class="s"> package Derived;</td></tr>
<tr><td class="h"><a name="586"></a>586</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="587"></a>587</td><td></td><td></td><td></td><td></td><td class="s"> use warnings::register;</td></tr>
<tr><td class="h"><a name="588"></a>588</td><td></td><td></td><td></td><td></td><td class="s"> use Original;</td></tr>
<tr><td class="h"><a name="589"></a>589</td><td></td><td></td><td></td><td></td><td class="s"> our @ISA = qw( Original );</td></tr>
<tr><td class="h"><a name="590"></a>590</td><td></td><td></td><td></td><td></td><td class="s"> sub new</td></tr>
<tr><td class="h"><a name="591"></a>591</td><td></td><td></td><td></td><td></td><td class="s"> {</td></tr>
<tr><td class="h"><a name="592"></a>592</td><td></td><td></td><td></td><td></td><td class="s"> my $class = shift;</td></tr>
<tr><td class="h"><a name="593"></a>593</td><td></td><td></td><td></td><td></td><td class="s"> bless [], $class;</td></tr>
<tr><td class="h"><a name="594"></a>594</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="595"></a>595</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="596"></a>596</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="597"></a>597</td><td></td><td></td><td></td><td></td><td class="s"> 1;</td></tr>
<tr><td class="h"><a name="598"></a>598</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="599"></a>599</td><td></td><td></td><td></td><td></td><td class="s">The code below makes use of both modules, but it only enables warnings from </td></tr>
<tr><td class="h"><a name="600"></a>600</td><td></td><td></td><td></td><td></td><td class="s">C<Derived>.</td></tr>
<tr><td class="h"><a name="601"></a>601</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="602"></a>602</td><td></td><td></td><td></td><td></td><td class="s"> use Original;</td></tr>
<tr><td class="h"><a name="603"></a>603</td><td></td><td></td><td></td><td></td><td class="s"> use Derived;</td></tr>
<tr><td class="h"><a name="604"></a>604</td><td></td><td></td><td></td><td></td><td class="s"> use warnings 'Derived';</td></tr>
<tr><td class="h"><a name="605"></a>605</td><td></td><td></td><td></td><td></td><td class="s"> my $a = Original->new();</td></tr>
<tr><td class="h"><a name="606"></a>606</td><td></td><td></td><td></td><td></td><td class="s"> $a->doit(1);</td></tr>
<tr><td class="h"><a name="607"></a>607</td><td></td><td></td><td></td><td></td><td class="s"> my $b = Derived->new();</td></tr>
<tr><td class="h"><a name="608"></a>608</td><td></td><td></td><td></td><td></td><td class="s"> $a->doit(1);</td></tr>
<tr><td class="h"><a name="609"></a>609</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="610"></a>610</td><td></td><td></td><td></td><td></td><td class="s">When this code is run only the C<Derived> object, C<$b>, will generate</td></tr>
<tr><td class="h"><a name="611"></a>611</td><td></td><td></td><td></td><td></td><td class="s">a warning. </td></tr>
<tr><td class="h"><a name="612"></a>612</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="613"></a>613</td><td></td><td></td><td></td><td></td><td class="s"> Odd numbers are unsafe at main.pl line 7</td></tr>
<tr><td class="h"><a name="614"></a>614</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="615"></a>615</td><td></td><td></td><td></td><td></td><td class="s">Notice also that the warning is reported at the line where the object is first</td></tr>
<tr><td class="h"><a name="616"></a>616</td><td></td><td></td><td></td><td></td><td class="s">used.</td></tr>
<tr><td class="h"><a name="617"></a>617</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="618"></a>618</td><td></td><td></td><td></td><td></td><td class="s">When registering new categories of warning, you can supply more names to</td></tr>
<tr><td class="h"><a name="619"></a>619</td><td></td><td></td><td></td><td></td><td class="s">warnings::register like this:</td></tr>
<tr><td class="h"><a name="620"></a>620</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="621"></a>621</td><td></td><td></td><td></td><td></td><td class="s"> package MyModule;</td></tr>
<tr><td class="h"><a name="622"></a>622</td><td></td><td></td><td></td><td></td><td class="s"> use warnings::register qw(format precision);</td></tr>
<tr><td class="h"><a name="623"></a>623</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="624"></a>624</td><td></td><td></td><td></td><td></td><td class="s"> ...</td></tr>
<tr><td class="h"><a name="625"></a>625</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="626"></a>626</td><td></td><td></td><td></td><td></td><td class="s"> warnings::warnif('MyModule::format', '...');</td></tr>
<tr><td class="h"><a name="627"></a>627</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="628"></a>628</td><td></td><td></td><td></td><td></td><td class="s">=head1 FUNCTIONS</td></tr>
<tr><td class="h"><a name="629"></a>629</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="630"></a>630</td><td></td><td></td><td></td><td></td><td class="s">=over 4</td></tr>
<tr><td class="h"><a name="631"></a>631</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="632"></a>632</td><td></td><td></td><td></td><td></td><td class="s">=item use warnings::register</td></tr>
<tr><td class="h"><a name="633"></a>633</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="634"></a>634</td><td></td><td></td><td></td><td></td><td class="s">Creates a new warnings category with the same name as the package where</td></tr>
<tr><td class="h"><a name="635"></a>635</td><td></td><td></td><td></td><td></td><td class="s">the call to the pragma is used.</td></tr>
<tr><td class="h"><a name="636"></a>636</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="637"></a>637</td><td></td><td></td><td></td><td></td><td class="s">=item warnings::enabled()</td></tr>
<tr><td class="h"><a name="638"></a>638</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="639"></a>639</td><td></td><td></td><td></td><td></td><td class="s">Use the warnings category with the same name as the current package.</td></tr>
<tr><td class="h"><a name="640"></a>640</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="641"></a>641</td><td></td><td></td><td></td><td></td><td class="s">Return TRUE if that warnings category is enabled in the calling module.</td></tr>
<tr><td class="h"><a name="642"></a>642</td><td></td><td></td><td></td><td></td><td class="s">Otherwise returns FALSE.</td></tr>
<tr><td class="h"><a name="643"></a>643</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="644"></a>644</td><td></td><td></td><td></td><td></td><td class="s">=item warnings::enabled($category)</td></tr>
<tr><td class="h"><a name="645"></a>645</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="646"></a>646</td><td></td><td></td><td></td><td></td><td class="s">Return TRUE if the warnings category, C<$category>, is enabled in the</td></tr>
<tr><td class="h"><a name="647"></a>647</td><td></td><td></td><td></td><td></td><td class="s">calling module.</td></tr>
<tr><td class="h"><a name="648"></a>648</td><td></td><td></td><td></td><td></td><td class="s">Otherwise returns FALSE.</td></tr>
<tr><td class="h"><a name="649"></a>649</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="650"></a>650</td><td></td><td></td><td></td><td></td><td class="s">=item warnings::enabled($object)</td></tr>
<tr><td class="h"><a name="651"></a>651</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="652"></a>652</td><td></td><td></td><td></td><td></td><td class="s">Use the name of the class for the object reference, C<$object>, as the</td></tr>
<tr><td class="h"><a name="653"></a>653</td><td></td><td></td><td></td><td></td><td class="s">warnings category.</td></tr>
<tr><td class="h"><a name="654"></a>654</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="655"></a>655</td><td></td><td></td><td></td><td></td><td class="s">Return TRUE if that warnings category is enabled in the first scope</td></tr>
<tr><td class="h"><a name="656"></a>656</td><td></td><td></td><td></td><td></td><td class="s">where the object is used.</td></tr>
<tr><td class="h"><a name="657"></a>657</td><td></td><td></td><td></td><td></td><td class="s">Otherwise returns FALSE.</td></tr>
<tr><td class="h"><a name="658"></a>658</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="659"></a>659</td><td></td><td></td><td></td><td></td><td class="s">=item warnings::fatal_enabled()</td></tr>
<tr><td class="h"><a name="660"></a>660</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="661"></a>661</td><td></td><td></td><td></td><td></td><td class="s">Return TRUE if the warnings category with the same name as the current</td></tr>
<tr><td class="h"><a name="662"></a>662</td><td></td><td></td><td></td><td></td><td class="s">package has been set to FATAL in the calling module.</td></tr>
<tr><td class="h"><a name="663"></a>663</td><td></td><td></td><td></td><td></td><td class="s">Otherwise returns FALSE.</td></tr>
<tr><td class="h"><a name="664"></a>664</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="665"></a>665</td><td></td><td></td><td></td><td></td><td class="s">=item warnings::fatal_enabled($category)</td></tr>
<tr><td class="h"><a name="666"></a>666</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="667"></a>667</td><td></td><td></td><td></td><td></td><td class="s">Return TRUE if the warnings category C<$category> has been set to FATAL in</td></tr>
<tr><td class="h"><a name="668"></a>668</td><td></td><td></td><td></td><td></td><td class="s">the calling module.</td></tr>
<tr><td class="h"><a name="669"></a>669</td><td></td><td></td><td></td><td></td><td class="s">Otherwise returns FALSE.</td></tr>
<tr><td class="h"><a name="670"></a>670</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="671"></a>671</td><td></td><td></td><td></td><td></td><td class="s">=item warnings::fatal_enabled($object)</td></tr>
<tr><td class="h"><a name="672"></a>672</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="673"></a>673</td><td></td><td></td><td></td><td></td><td class="s">Use the name of the class for the object reference, C<$object>, as the</td></tr>
<tr><td class="h"><a name="674"></a>674</td><td></td><td></td><td></td><td></td><td class="s">warnings category.</td></tr>
<tr><td class="h"><a name="675"></a>675</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="676"></a>676</td><td></td><td></td><td></td><td></td><td class="s">Return TRUE if that warnings category has been set to FATAL in the first</td></tr>
<tr><td class="h"><a name="677"></a>677</td><td></td><td></td><td></td><td></td><td class="s">scope where the object is used.</td></tr>
<tr><td class="h"><a name="678"></a>678</td><td></td><td></td><td></td><td></td><td class="s">Otherwise returns FALSE.</td></tr>
<tr><td class="h"><a name="679"></a>679</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="680"></a>680</td><td></td><td></td><td></td><td></td><td class="s">=item warnings::warn($message)</td></tr>
<tr><td class="h"><a name="681"></a>681</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="682"></a>682</td><td></td><td></td><td></td><td></td><td class="s">Print C<$message> to STDERR.</td></tr>
<tr><td class="h"><a name="683"></a>683</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="684"></a>684</td><td></td><td></td><td></td><td></td><td class="s">Use the warnings category with the same name as the current package.</td></tr>
<tr><td class="h"><a name="685"></a>685</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="686"></a>686</td><td></td><td></td><td></td><td></td><td class="s">If that warnings category has been set to "FATAL" in the calling module</td></tr>
<tr><td class="h"><a name="687"></a>687</td><td></td><td></td><td></td><td></td><td class="s">then die. Otherwise return.</td></tr>
<tr><td class="h"><a name="688"></a>688</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="689"></a>689</td><td></td><td></td><td></td><td></td><td class="s">=item warnings::warn($category, $message)</td></tr>
<tr><td class="h"><a name="690"></a>690</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="691"></a>691</td><td></td><td></td><td></td><td></td><td class="s">Print C<$message> to STDERR.</td></tr>
<tr><td class="h"><a name="692"></a>692</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="693"></a>693</td><td></td><td></td><td></td><td></td><td class="s">If the warnings category, C<$category>, has been set to "FATAL" in the</td></tr>
<tr><td class="h"><a name="694"></a>694</td><td></td><td></td><td></td><td></td><td class="s">calling module then die. Otherwise return.</td></tr>
<tr><td class="h"><a name="695"></a>695</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="696"></a>696</td><td></td><td></td><td></td><td></td><td class="s">=item warnings::warn($object, $message)</td></tr>
<tr><td class="h"><a name="697"></a>697</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="698"></a>698</td><td></td><td></td><td></td><td></td><td class="s">Print C<$message> to STDERR.</td></tr>
<tr><td class="h"><a name="699"></a>699</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="700"></a>700</td><td></td><td></td><td></td><td></td><td class="s">Use the name of the class for the object reference, C<$object>, as the</td></tr>
<tr><td class="h"><a name="701"></a>701</td><td></td><td></td><td></td><td></td><td class="s">warnings category.</td></tr>
<tr><td class="h"><a name="702"></a>702</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="703"></a>703</td><td></td><td></td><td></td><td></td><td class="s">If that warnings category has been set to "FATAL" in the scope where C<$object></td></tr>
<tr><td class="h"><a name="704"></a>704</td><td></td><td></td><td></td><td></td><td class="s">is first used then die. Otherwise return.</td></tr>
<tr><td class="h"><a name="705"></a>705</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="706"></a>706</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="707"></a>707</td><td></td><td></td><td></td><td></td><td class="s">=item warnings::warnif($message)</td></tr>
<tr><td class="h"><a name="708"></a>708</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="709"></a>709</td><td></td><td></td><td></td><td></td><td class="s">Equivalent to:</td></tr>
<tr><td class="h"><a name="710"></a>710</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="711"></a>711</td><td></td><td></td><td></td><td></td><td class="s"> if (warnings::enabled())</td></tr>
<tr><td class="h"><a name="712"></a>712</td><td></td><td></td><td></td><td></td><td class="s"> { warnings::warn($message) }</td></tr>
<tr><td class="h"><a name="713"></a>713</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="714"></a>714</td><td></td><td></td><td></td><td></td><td class="s">=item warnings::warnif($category, $message)</td></tr>
<tr><td class="h"><a name="715"></a>715</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="716"></a>716</td><td></td><td></td><td></td><td></td><td class="s">Equivalent to:</td></tr>
<tr><td class="h"><a name="717"></a>717</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="718"></a>718</td><td></td><td></td><td></td><td></td><td class="s"> if (warnings::enabled($category))</td></tr>
<tr><td class="h"><a name="719"></a>719</td><td></td><td></td><td></td><td></td><td class="s"> { warnings::warn($category, $message) }</td></tr>
<tr><td class="h"><a name="720"></a>720</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="721"></a>721</td><td></td><td></td><td></td><td></td><td class="s">=item warnings::warnif($object, $message)</td></tr>
<tr><td class="h"><a name="722"></a>722</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="723"></a>723</td><td></td><td></td><td></td><td></td><td class="s">Equivalent to:</td></tr>
<tr><td class="h"><a name="724"></a>724</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="725"></a>725</td><td></td><td></td><td></td><td></td><td class="s"> if (warnings::enabled($object))</td></tr>
<tr><td class="h"><a name="726"></a>726</td><td></td><td></td><td></td><td></td><td class="s"> { warnings::warn($object, $message) }</td></tr>
<tr><td class="h"><a name="727"></a>727</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="728"></a>728</td><td></td><td></td><td></td><td></td><td class="s">=item warnings::register_categories(@names)</td></tr>
<tr><td class="h"><a name="729"></a>729</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="730"></a>730</td><td></td><td></td><td></td><td></td><td class="s">This registers warning categories for the given names and is primarily for</td></tr>
<tr><td class="h"><a name="731"></a>731</td><td></td><td></td><td></td><td></td><td class="s">use by the warnings::register pragma.</td></tr>
<tr><td class="h"><a name="732"></a>732</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="733"></a>733</td><td></td><td></td><td></td><td></td><td class="s">=back</td></tr>
<tr><td class="h"><a name="734"></a>734</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="735"></a>735</td><td></td><td></td><td></td><td></td><td class="s">See also L<perlmodlib/Pragmatic Modules> and L<perldiag>.</td></tr>
<tr><td class="h"><a name="736"></a>736</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="737"></a>737</td><td></td><td></td><td></td><td></td><td class="s">=cut</td></tr>
<tr><td class="h"><a name="738"></a>738</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="739"></a>739</td><td class="c3">1</td><td class="c0"><span title="Avg 28µs">28µs</span></td><td></td><td></td><td class="s">our %Offsets = (</td></tr>
<tr><td class="h"><a name="740"></a>740</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="741"></a>741</td><td></td><td></td><td></td><td></td><td class="s"> # Warnings Categories added in Perl 5.008</td></tr>
<tr><td class="h"><a name="742"></a>742</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="743"></a>743</td><td></td><td></td><td></td><td></td><td class="s"> 'all' => 0,</td></tr>
<tr><td class="h"><a name="744"></a>744</td><td></td><td></td><td></td><td></td><td class="s"> 'closure' => 2,</td></tr>
<tr><td class="h"><a name="745"></a>745</td><td></td><td></td><td></td><td></td><td class="s"> 'deprecated' => 4,</td></tr>
<tr><td class="h"><a name="746"></a>746</td><td></td><td></td><td></td><td></td><td class="s"> 'exiting' => 6,</td></tr>
<tr><td class="h"><a name="747"></a>747</td><td></td><td></td><td></td><td></td><td class="s"> 'glob' => 8,</td></tr>
<tr><td class="h"><a name="748"></a>748</td><td></td><td></td><td></td><td></td><td class="s"> 'io' => 10,</td></tr>
<tr><td class="h"><a name="749"></a>749</td><td></td><td></td><td></td><td></td><td class="s"> 'closed' => 12,</td></tr>
<tr><td class="h"><a name="750"></a>750</td><td></td><td></td><td></td><td></td><td class="s"> 'exec' => 14,</td></tr>
<tr><td class="h"><a name="751"></a>751</td><td></td><td></td><td></td><td></td><td class="s"> 'layer' => 16,</td></tr>
<tr><td class="h"><a name="752"></a>752</td><td></td><td></td><td></td><td></td><td class="s"> 'newline' => 18,</td></tr>
<tr><td class="h"><a name="753"></a>753</td><td></td><td></td><td></td><td></td><td class="s"> 'pipe' => 20,</td></tr>
<tr><td class="h"><a name="754"></a>754</td><td></td><td></td><td></td><td></td><td class="s"> 'unopened' => 22,</td></tr>
<tr><td class="h"><a name="755"></a>755</td><td></td><td></td><td></td><td></td><td class="s"> 'misc' => 24,</td></tr>
<tr><td class="h"><a name="756"></a>756</td><td></td><td></td><td></td><td></td><td class="s"> 'numeric' => 26,</td></tr>
<tr><td class="h"><a name="757"></a>757</td><td></td><td></td><td></td><td></td><td class="s"> 'once' => 28,</td></tr>
<tr><td class="h"><a name="758"></a>758</td><td></td><td></td><td></td><td></td><td class="s"> 'overflow' => 30,</td></tr>
<tr><td class="h"><a name="759"></a>759</td><td></td><td></td><td></td><td></td><td class="s"> 'pack' => 32,</td></tr>
<tr><td class="h"><a name="760"></a>760</td><td></td><td></td><td></td><td></td><td class="s"> 'portable' => 34,</td></tr>
<tr><td class="h"><a name="761"></a>761</td><td></td><td></td><td></td><td></td><td class="s"> 'recursion' => 36,</td></tr>
<tr><td class="h"><a name="762"></a>762</td><td></td><td></td><td></td><td></td><td class="s"> 'redefine' => 38,</td></tr>
<tr><td class="h"><a name="763"></a>763</td><td></td><td></td><td></td><td></td><td class="s"> 'regexp' => 40,</td></tr>
<tr><td class="h"><a name="764"></a>764</td><td></td><td></td><td></td><td></td><td class="s"> 'severe' => 42,</td></tr>
<tr><td class="h"><a name="765"></a>765</td><td></td><td></td><td></td><td></td><td class="s"> 'debugging' => 44,</td></tr>
<tr><td class="h"><a name="766"></a>766</td><td></td><td></td><td></td><td></td><td class="s"> 'inplace' => 46,</td></tr>
<tr><td class="h"><a name="767"></a>767</td><td></td><td></td><td></td><td></td><td class="s"> 'internal' => 48,</td></tr>
<tr><td class="h"><a name="768"></a>768</td><td></td><td></td><td></td><td></td><td class="s"> 'malloc' => 50,</td></tr>
<tr><td class="h"><a name="769"></a>769</td><td></td><td></td><td></td><td></td><td class="s"> 'signal' => 52,</td></tr>
<tr><td class="h"><a name="770"></a>770</td><td></td><td></td><td></td><td></td><td class="s"> 'substr' => 54,</td></tr>
<tr><td class="h"><a name="771"></a>771</td><td></td><td></td><td></td><td></td><td class="s"> 'syntax' => 56,</td></tr>
<tr><td class="h"><a name="772"></a>772</td><td></td><td></td><td></td><td></td><td class="s"> 'ambiguous' => 58,</td></tr>
<tr><td class="h"><a name="773"></a>773</td><td></td><td></td><td></td><td></td><td class="s"> 'bareword' => 60,</td></tr>
<tr><td class="h"><a name="774"></a>774</td><td></td><td></td><td></td><td></td><td class="s"> 'digit' => 62,</td></tr>
<tr><td class="h"><a name="775"></a>775</td><td></td><td></td><td></td><td></td><td class="s"> 'parenthesis' => 64,</td></tr>
<tr><td class="h"><a name="776"></a>776</td><td></td><td></td><td></td><td></td><td class="s"> 'precedence' => 66,</td></tr>
<tr><td class="h"><a name="777"></a>777</td><td></td><td></td><td></td><td></td><td class="s"> 'printf' => 68,</td></tr>
<tr><td class="h"><a name="778"></a>778</td><td></td><td></td><td></td><td></td><td class="s"> 'prototype' => 70,</td></tr>
<tr><td class="h"><a name="779"></a>779</td><td></td><td></td><td></td><td></td><td class="s"> 'qw' => 72,</td></tr>
<tr><td class="h"><a name="780"></a>780</td><td></td><td></td><td></td><td></td><td class="s"> 'reserved' => 74,</td></tr>
<tr><td class="h"><a name="781"></a>781</td><td></td><td></td><td></td><td></td><td class="s"> 'semicolon' => 76,</td></tr>
<tr><td class="h"><a name="782"></a>782</td><td></td><td></td><td></td><td></td><td class="s"> 'taint' => 78,</td></tr>
<tr><td class="h"><a name="783"></a>783</td><td></td><td></td><td></td><td></td><td class="s"> 'threads' => 80,</td></tr>
<tr><td class="h"><a name="784"></a>784</td><td></td><td></td><td></td><td></td><td class="s"> 'uninitialized' => 82,</td></tr>
<tr><td class="h"><a name="785"></a>785</td><td></td><td></td><td></td><td></td><td class="s"> 'unpack' => 84,</td></tr>
<tr><td class="h"><a name="786"></a>786</td><td></td><td></td><td></td><td></td><td class="s"> 'untie' => 86,</td></tr>
<tr><td class="h"><a name="787"></a>787</td><td></td><td></td><td></td><td></td><td class="s"> 'utf8' => 88,</td></tr>
<tr><td class="h"><a name="788"></a>788</td><td></td><td></td><td></td><td></td><td class="s"> 'void' => 90,</td></tr>
<tr><td class="h"><a name="789"></a>789</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="790"></a>790</td><td></td><td></td><td></td><td></td><td class="s"> # Warnings Categories added in Perl 5.011</td></tr>
<tr><td class="h"><a name="791"></a>791</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="792"></a>792</td><td></td><td></td><td></td><td></td><td class="s"> 'imprecision' => 92,</td></tr>
<tr><td class="h"><a name="793"></a>793</td><td></td><td></td><td></td><td></td><td class="s"> 'illegalproto' => 94,</td></tr>
<tr><td class="h"><a name="794"></a>794</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="795"></a>795</td><td></td><td></td><td></td><td></td><td class="s"> # Warnings Categories added in Perl 5.013</td></tr>
<tr><td class="h"><a name="796"></a>796</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="797"></a>797</td><td></td><td></td><td></td><td></td><td class="s"> 'non_unicode' => 96,</td></tr>
<tr><td class="h"><a name="798"></a>798</td><td></td><td></td><td></td><td></td><td class="s"> 'nonchar' => 98,</td></tr>
<tr><td class="h"><a name="799"></a>799</td><td></td><td></td><td></td><td></td><td class="s"> 'surrogate' => 100,</td></tr>
<tr><td class="h"><a name="800"></a>800</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="801"></a>801</td><td></td><td></td><td></td><td></td><td class="s"> # Warnings Categories added in Perl 5.017</td></tr>
<tr><td class="h"><a name="802"></a>802</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="803"></a>803</td><td></td><td></td><td></td><td></td><td class="s"> 'experimental' => 102,</td></tr>
<tr><td class="h"><a name="804"></a>804</td><td></td><td></td><td></td><td></td><td class="s"> 'experimental::lexical_subs'=> 104,</td></tr>
<tr><td class="h"><a name="805"></a>805</td><td></td><td></td><td></td><td></td><td class="s"> 'experimental::lexical_topic'=> 106,</td></tr>
<tr><td class="h"><a name="806"></a>806</td><td></td><td></td><td></td><td></td><td class="s"> 'experimental::regex_sets'=> 108,</td></tr>
<tr><td class="h"><a name="807"></a>807</td><td></td><td></td><td></td><td></td><td class="s"> 'experimental::smartmatch'=> 110,</td></tr>
<tr><td class="h"><a name="808"></a>808</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="809"></a>809</td><td></td><td></td><td></td><td></td><td class="s"> # Warnings Categories added in Perl 5.019</td></tr>
<tr><td class="h"><a name="810"></a>810</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="811"></a>811</td><td></td><td></td><td></td><td></td><td class="s"> 'experimental::autoderef'=> 112,</td></tr>
<tr><td class="h"><a name="812"></a>812</td><td></td><td></td><td></td><td></td><td class="s"> 'experimental::postderef'=> 114,</td></tr>
<tr><td class="h"><a name="813"></a>813</td><td></td><td></td><td></td><td></td><td class="s"> 'experimental::signatures'=> 116,</td></tr>
<tr><td class="h"><a name="814"></a>814</td><td></td><td></td><td></td><td></td><td class="s"> 'syscalls' => 118,</td></tr>
<tr><td class="h"><a name="815"></a>815</td><td></td><td></td><td></td><td></td><td class="s"> );</td></tr>
<tr><td class="h"><a name="816"></a>816</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="817"></a>817</td><td class="c3">1</td><td class="c1"><span title="Avg 8µs">8µs</span></td><td></td><td></td><td class="s">our %Bits = (</td></tr>
<tr><td class="h"><a name="818"></a>818</td><td></td><td></td><td></td><td></td><td class="s"> 'all' => "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55", # [0..59]</td></tr>
<tr><td class="h"><a name="819"></a>819</td><td></td><td></td><td></td><td></td><td class="s"> 'ambiguous' => "\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00", # [29]</td></tr>
<tr><td class="h"><a name="820"></a>820</td><td></td><td></td><td></td><td></td><td class="s"> 'bareword' => "\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00", # [30]</td></tr>
<tr><td class="h"><a name="821"></a>821</td><td></td><td></td><td></td><td></td><td class="s"> 'closed' => "\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [6]</td></tr>
<tr><td class="h"><a name="822"></a>822</td><td></td><td></td><td></td><td></td><td class="s"> 'closure' => "\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [1]</td></tr>
<tr><td class="h"><a name="823"></a>823</td><td></td><td></td><td></td><td></td><td class="s"> 'debugging' => "\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [22]</td></tr>
<tr><td class="h"><a name="824"></a>824</td><td></td><td></td><td></td><td></td><td class="s"> 'deprecated' => "\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [2]</td></tr>
<tr><td class="h"><a name="825"></a>825</td><td></td><td></td><td></td><td></td><td class="s"> 'digit' => "\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00", # [31]</td></tr>
<tr><td class="h"><a name="826"></a>826</td><td></td><td></td><td></td><td></td><td class="s"> 'exec' => "\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [7]</td></tr>
<tr><td class="h"><a name="827"></a>827</td><td></td><td></td><td></td><td></td><td class="s"> 'exiting' => "\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [3]</td></tr>
<tr><td class="h"><a name="828"></a>828</td><td></td><td></td><td></td><td></td><td class="s"> 'experimental' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x55\x15", # [51..58]</td></tr>
<tr><td class="h"><a name="829"></a>829</td><td></td><td></td><td></td><td></td><td class="s"> 'experimental::autoderef'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01", # [56]</td></tr>
<tr><td class="h"><a name="830"></a>830</td><td></td><td></td><td></td><td></td><td class="s"> 'experimental::lexical_subs'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00", # [52]</td></tr>
<tr><td class="h"><a name="831"></a>831</td><td></td><td></td><td></td><td></td><td class="s"> 'experimental::lexical_topic'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00", # [53]</td></tr>
<tr><td class="h"><a name="832"></a>832</td><td></td><td></td><td></td><td></td><td class="s"> 'experimental::postderef'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04", # [57]</td></tr>
<tr><td class="h"><a name="833"></a>833</td><td></td><td></td><td></td><td></td><td class="s"> 'experimental::regex_sets'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00", # [54]</td></tr>
<tr><td class="h"><a name="834"></a>834</td><td></td><td></td><td></td><td></td><td class="s"> 'experimental::signatures'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10", # [58]</td></tr>
<tr><td class="h"><a name="835"></a>835</td><td></td><td></td><td></td><td></td><td class="s"> 'experimental::smartmatch'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00", # [55]</td></tr>
<tr><td class="h"><a name="836"></a>836</td><td></td><td></td><td></td><td></td><td class="s"> 'glob' => "\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [4]</td></tr>
<tr><td class="h"><a name="837"></a>837</td><td></td><td></td><td></td><td></td><td class="s"> 'illegalproto' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00", # [47]</td></tr>
<tr><td class="h"><a name="838"></a>838</td><td></td><td></td><td></td><td></td><td class="s"> 'imprecision' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00", # [46]</td></tr>
<tr><td class="h"><a name="839"></a>839</td><td></td><td></td><td></td><td></td><td class="s"> 'inplace' => "\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [23]</td></tr>
<tr><td class="h"><a name="840"></a>840</td><td></td><td></td><td></td><td></td><td class="s"> 'internal' => "\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00", # [24]</td></tr>
<tr><td class="h"><a name="841"></a>841</td><td></td><td></td><td></td><td></td><td class="s"> 'io' => "\x00\x54\x55\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40", # [5..11,59]</td></tr>
<tr><td class="h"><a name="842"></a>842</td><td></td><td></td><td></td><td></td><td class="s"> 'layer' => "\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [8]</td></tr>
<tr><td class="h"><a name="843"></a>843</td><td></td><td></td><td></td><td></td><td class="s"> 'malloc' => "\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00", # [25]</td></tr>
<tr><td class="h"><a name="844"></a>844</td><td></td><td></td><td></td><td></td><td class="s"> 'misc' => "\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [12]</td></tr>
<tr><td class="h"><a name="845"></a>845</td><td></td><td></td><td></td><td></td><td class="s"> 'newline' => "\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [9]</td></tr>
<tr><td class="h"><a name="846"></a>846</td><td></td><td></td><td></td><td></td><td class="s"> 'non_unicode' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00", # [48]</td></tr>
<tr><td class="h"><a name="847"></a>847</td><td></td><td></td><td></td><td></td><td class="s"> 'nonchar' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00", # [49]</td></tr>
<tr><td class="h"><a name="848"></a>848</td><td></td><td></td><td></td><td></td><td class="s"> 'numeric' => "\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [13]</td></tr>
<tr><td class="h"><a name="849"></a>849</td><td></td><td></td><td></td><td></td><td class="s"> 'once' => "\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [14]</td></tr>
<tr><td class="h"><a name="850"></a>850</td><td></td><td></td><td></td><td></td><td class="s"> 'overflow' => "\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [15]</td></tr>
<tr><td class="h"><a name="851"></a>851</td><td></td><td></td><td></td><td></td><td class="s"> 'pack' => "\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [16]</td></tr>
<tr><td class="h"><a name="852"></a>852</td><td></td><td></td><td></td><td></td><td class="s"> 'parenthesis' => "\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00", # [32]</td></tr>
<tr><td class="h"><a name="853"></a>853</td><td></td><td></td><td></td><td></td><td class="s"> 'pipe' => "\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [10]</td></tr>
<tr><td class="h"><a name="854"></a>854</td><td></td><td></td><td></td><td></td><td class="s"> 'portable' => "\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [17]</td></tr>
<tr><td class="h"><a name="855"></a>855</td><td></td><td></td><td></td><td></td><td class="s"> 'precedence' => "\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00", # [33]</td></tr>
<tr><td class="h"><a name="856"></a>856</td><td></td><td></td><td></td><td></td><td class="s"> 'printf' => "\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00", # [34]</td></tr>
<tr><td class="h"><a name="857"></a>857</td><td></td><td></td><td></td><td></td><td class="s"> 'prototype' => "\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00", # [35]</td></tr>
<tr><td class="h"><a name="858"></a>858</td><td></td><td></td><td></td><td></td><td class="s"> 'qw' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00", # [36]</td></tr>
<tr><td class="h"><a name="859"></a>859</td><td></td><td></td><td></td><td></td><td class="s"> 'recursion' => "\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [18]</td></tr>
<tr><td class="h"><a name="860"></a>860</td><td></td><td></td><td></td><td></td><td class="s"> 'redefine' => "\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [19]</td></tr>
<tr><td class="h"><a name="861"></a>861</td><td></td><td></td><td></td><td></td><td class="s"> 'regexp' => "\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [20]</td></tr>
<tr><td class="h"><a name="862"></a>862</td><td></td><td></td><td></td><td></td><td class="s"> 'reserved' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00", # [37]</td></tr>
<tr><td class="h"><a name="863"></a>863</td><td></td><td></td><td></td><td></td><td class="s"> 'semicolon' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00", # [38]</td></tr>
<tr><td class="h"><a name="864"></a>864</td><td></td><td></td><td></td><td></td><td class="s"> 'severe' => "\x00\x00\x00\x00\x00\x54\x05\x00\x00\x00\x00\x00\x00\x00\x00", # [21..25]</td></tr>
<tr><td class="h"><a name="865"></a>865</td><td></td><td></td><td></td><td></td><td class="s"> 'signal' => "\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00", # [26]</td></tr>
<tr><td class="h"><a name="866"></a>866</td><td></td><td></td><td></td><td></td><td class="s"> 'substr' => "\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00", # [27]</td></tr>
<tr><td class="h"><a name="867"></a>867</td><td></td><td></td><td></td><td></td><td class="s"> 'surrogate' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00", # [50]</td></tr>
<tr><td class="h"><a name="868"></a>868</td><td></td><td></td><td></td><td></td><td class="s"> 'syntax' => "\x00\x00\x00\x00\x00\x00\x00\x55\x55\x15\x00\x40\x00\x00\x00", # [28..38,47]</td></tr>
<tr><td class="h"><a name="869"></a>869</td><td></td><td></td><td></td><td></td><td class="s"> 'syscalls' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40", # [59]</td></tr>
<tr><td class="h"><a name="870"></a>870</td><td></td><td></td><td></td><td></td><td class="s"> 'taint' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00", # [39]</td></tr>
<tr><td class="h"><a name="871"></a>871</td><td></td><td></td><td></td><td></td><td class="s"> 'threads' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00", # [40]</td></tr>
<tr><td class="h"><a name="872"></a>872</td><td></td><td></td><td></td><td></td><td class="s"> 'uninitialized' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00", # [41]</td></tr>
<tr><td class="h"><a name="873"></a>873</td><td></td><td></td><td></td><td></td><td class="s"> 'unopened' => "\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [11]</td></tr>
<tr><td class="h"><a name="874"></a>874</td><td></td><td></td><td></td><td></td><td class="s"> 'unpack' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00", # [42]</td></tr>
<tr><td class="h"><a name="875"></a>875</td><td></td><td></td><td></td><td></td><td class="s"> 'untie' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00", # [43]</td></tr>
<tr><td class="h"><a name="876"></a>876</td><td></td><td></td><td></td><td></td><td class="s"> 'utf8' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x15\x00\x00", # [44,48..50]</td></tr>
<tr><td class="h"><a name="877"></a>877</td><td></td><td></td><td></td><td></td><td class="s"> 'void' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00", # [45]</td></tr>
<tr><td class="h"><a name="878"></a>878</td><td></td><td></td><td></td><td></td><td class="s"> );</td></tr>
<tr><td class="h"><a name="879"></a>879</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="880"></a>880</td><td class="c3">1</td><td class="c1"><span title="Avg 9µs">9µs</span></td><td></td><td></td><td class="s">our %DeadBits = (</td></tr>
<tr><td class="h"><a name="881"></a>881</td><td></td><td></td><td></td><td></td><td class="s"> 'all' => "\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa", # [0..59]</td></tr>
<tr><td class="h"><a name="882"></a>882</td><td></td><td></td><td></td><td></td><td class="s"> 'ambiguous' => "\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00", # [29]</td></tr>
<tr><td class="h"><a name="883"></a>883</td><td></td><td></td><td></td><td></td><td class="s"> 'bareword' => "\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00", # [30]</td></tr>
<tr><td class="h"><a name="884"></a>884</td><td></td><td></td><td></td><td></td><td class="s"> 'closed' => "\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [6]</td></tr>
<tr><td class="h"><a name="885"></a>885</td><td></td><td></td><td></td><td></td><td class="s"> 'closure' => "\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [1]</td></tr>
<tr><td class="h"><a name="886"></a>886</td><td></td><td></td><td></td><td></td><td class="s"> 'debugging' => "\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [22]</td></tr>
<tr><td class="h"><a name="887"></a>887</td><td></td><td></td><td></td><td></td><td class="s"> 'deprecated' => "\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [2]</td></tr>
<tr><td class="h"><a name="888"></a>888</td><td></td><td></td><td></td><td></td><td class="s"> 'digit' => "\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00", # [31]</td></tr>
<tr><td class="h"><a name="889"></a>889</td><td></td><td></td><td></td><td></td><td class="s"> 'exec' => "\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [7]</td></tr>
<tr><td class="h"><a name="890"></a>890</td><td></td><td></td><td></td><td></td><td class="s"> 'exiting' => "\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [3]</td></tr>
<tr><td class="h"><a name="891"></a>891</td><td></td><td></td><td></td><td></td><td class="s"> 'experimental' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\xaa\x2a", # [51..58]</td></tr>
<tr><td class="h"><a name="892"></a>892</td><td></td><td></td><td></td><td></td><td class="s"> 'experimental::autoderef'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02", # [56]</td></tr>
<tr><td class="h"><a name="893"></a>893</td><td></td><td></td><td></td><td></td><td class="s"> 'experimental::lexical_subs'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00", # [52]</td></tr>
<tr><td class="h"><a name="894"></a>894</td><td></td><td></td><td></td><td></td><td class="s"> 'experimental::lexical_topic'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00", # [53]</td></tr>
<tr><td class="h"><a name="895"></a>895</td><td></td><td></td><td></td><td></td><td class="s"> 'experimental::postderef'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08", # [57]</td></tr>
<tr><td class="h"><a name="896"></a>896</td><td></td><td></td><td></td><td></td><td class="s"> 'experimental::regex_sets'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00", # [54]</td></tr>
<tr><td class="h"><a name="897"></a>897</td><td></td><td></td><td></td><td></td><td class="s"> 'experimental::signatures'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20", # [58]</td></tr>
<tr><td class="h"><a name="898"></a>898</td><td></td><td></td><td></td><td></td><td class="s"> 'experimental::smartmatch'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00", # [55]</td></tr>
<tr><td class="h"><a name="899"></a>899</td><td></td><td></td><td></td><td></td><td class="s"> 'glob' => "\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [4]</td></tr>
<tr><td class="h"><a name="900"></a>900</td><td></td><td></td><td></td><td></td><td class="s"> 'illegalproto' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00", # [47]</td></tr>
<tr><td class="h"><a name="901"></a>901</td><td></td><td></td><td></td><td></td><td class="s"> 'imprecision' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00", # [46]</td></tr>
<tr><td class="h"><a name="902"></a>902</td><td></td><td></td><td></td><td></td><td class="s"> 'inplace' => "\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [23]</td></tr>
<tr><td class="h"><a name="903"></a>903</td><td></td><td></td><td></td><td></td><td class="s"> 'internal' => "\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00", # [24]</td></tr>
<tr><td class="h"><a name="904"></a>904</td><td></td><td></td><td></td><td></td><td class="s"> 'io' => "\x00\xa8\xaa\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80", # [5..11,59]</td></tr>
<tr><td class="h"><a name="905"></a>905</td><td></td><td></td><td></td><td></td><td class="s"> 'layer' => "\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [8]</td></tr>
<tr><td class="h"><a name="906"></a>906</td><td></td><td></td><td></td><td></td><td class="s"> 'malloc' => "\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00", # [25]</td></tr>
<tr><td class="h"><a name="907"></a>907</td><td></td><td></td><td></td><td></td><td class="s"> 'misc' => "\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [12]</td></tr>
<tr><td class="h"><a name="908"></a>908</td><td></td><td></td><td></td><td></td><td class="s"> 'newline' => "\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [9]</td></tr>
<tr><td class="h"><a name="909"></a>909</td><td></td><td></td><td></td><td></td><td class="s"> 'non_unicode' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00", # [48]</td></tr>
<tr><td class="h"><a name="910"></a>910</td><td></td><td></td><td></td><td></td><td class="s"> 'nonchar' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00", # [49]</td></tr>
<tr><td class="h"><a name="911"></a>911</td><td></td><td></td><td></td><td></td><td class="s"> 'numeric' => "\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [13]</td></tr>
<tr><td class="h"><a name="912"></a>912</td><td></td><td></td><td></td><td></td><td class="s"> 'once' => "\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [14]</td></tr>
<tr><td class="h"><a name="913"></a>913</td><td></td><td></td><td></td><td></td><td class="s"> 'overflow' => "\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [15]</td></tr>
<tr><td class="h"><a name="914"></a>914</td><td></td><td></td><td></td><td></td><td class="s"> 'pack' => "\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [16]</td></tr>
<tr><td class="h"><a name="915"></a>915</td><td></td><td></td><td></td><td></td><td class="s"> 'parenthesis' => "\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00", # [32]</td></tr>
<tr><td class="h"><a name="916"></a>916</td><td></td><td></td><td></td><td></td><td class="s"> 'pipe' => "\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [10]</td></tr>
<tr><td class="h"><a name="917"></a>917</td><td></td><td></td><td></td><td></td><td class="s"> 'portable' => "\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [17]</td></tr>
<tr><td class="h"><a name="918"></a>918</td><td></td><td></td><td></td><td></td><td class="s"> 'precedence' => "\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00", # [33]</td></tr>
<tr><td class="h"><a name="919"></a>919</td><td></td><td></td><td></td><td></td><td class="s"> 'printf' => "\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00", # [34]</td></tr>
<tr><td class="h"><a name="920"></a>920</td><td></td><td></td><td></td><td></td><td class="s"> 'prototype' => "\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00", # [35]</td></tr>
<tr><td class="h"><a name="921"></a>921</td><td></td><td></td><td></td><td></td><td class="s"> 'qw' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00", # [36]</td></tr>
<tr><td class="h"><a name="922"></a>922</td><td></td><td></td><td></td><td></td><td class="s"> 'recursion' => "\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [18]</td></tr>
<tr><td class="h"><a name="923"></a>923</td><td></td><td></td><td></td><td></td><td class="s"> 'redefine' => "\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [19]</td></tr>
<tr><td class="h"><a name="924"></a>924</td><td></td><td></td><td></td><td></td><td class="s"> 'regexp' => "\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [20]</td></tr>
<tr><td class="h"><a name="925"></a>925</td><td></td><td></td><td></td><td></td><td class="s"> 'reserved' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00", # [37]</td></tr>
<tr><td class="h"><a name="926"></a>926</td><td></td><td></td><td></td><td></td><td class="s"> 'semicolon' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00", # [38]</td></tr>
<tr><td class="h"><a name="927"></a>927</td><td></td><td></td><td></td><td></td><td class="s"> 'severe' => "\x00\x00\x00\x00\x00\xa8\x0a\x00\x00\x00\x00\x00\x00\x00\x00", # [21..25]</td></tr>
<tr><td class="h"><a name="928"></a>928</td><td></td><td></td><td></td><td></td><td class="s"> 'signal' => "\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00", # [26]</td></tr>
<tr><td class="h"><a name="929"></a>929</td><td></td><td></td><td></td><td></td><td class="s"> 'substr' => "\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00", # [27]</td></tr>
<tr><td class="h"><a name="930"></a>930</td><td></td><td></td><td></td><td></td><td class="s"> 'surrogate' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00", # [50]</td></tr>
<tr><td class="h"><a name="931"></a>931</td><td></td><td></td><td></td><td></td><td class="s"> 'syntax' => "\x00\x00\x00\x00\x00\x00\x00\xaa\xaa\x2a\x00\x80\x00\x00\x00", # [28..38,47]</td></tr>
<tr><td class="h"><a name="932"></a>932</td><td></td><td></td><td></td><td></td><td class="s"> 'syscalls' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80", # [59]</td></tr>
<tr><td class="h"><a name="933"></a>933</td><td></td><td></td><td></td><td></td><td class="s"> 'taint' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00", # [39]</td></tr>
<tr><td class="h"><a name="934"></a>934</td><td></td><td></td><td></td><td></td><td class="s"> 'threads' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00", # [40]</td></tr>
<tr><td class="h"><a name="935"></a>935</td><td></td><td></td><td></td><td></td><td class="s"> 'uninitialized' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00", # [41]</td></tr>
<tr><td class="h"><a name="936"></a>936</td><td></td><td></td><td></td><td></td><td class="s"> 'unopened' => "\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [11]</td></tr>
<tr><td class="h"><a name="937"></a>937</td><td></td><td></td><td></td><td></td><td class="s"> 'unpack' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00", # [42]</td></tr>
<tr><td class="h"><a name="938"></a>938</td><td></td><td></td><td></td><td></td><td class="s"> 'untie' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00", # [43]</td></tr>
<tr><td class="h"><a name="939"></a>939</td><td></td><td></td><td></td><td></td><td class="s"> 'utf8' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x2a\x00\x00", # [44,48..50]</td></tr>
<tr><td class="h"><a name="940"></a>940</td><td></td><td></td><td></td><td></td><td class="s"> 'void' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00", # [45]</td></tr>
<tr><td class="h"><a name="941"></a>941</td><td></td><td></td><td></td><td></td><td class="s"> );</td></tr>
<tr><td class="h"><a name="942"></a>942</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="943"></a>943</td><td class="c3">1</td><td class="c3"><span title="Avg 100ns">100ns</span></td><td></td><td></td><td class="s">$NONE = "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0";</td></tr>
<tr><td class="h"><a name="944"></a>944</td><td class="c3">1</td><td class="c3"><span title="Avg 300ns">300ns</span></td><td></td><td></td><td class="s">$DEFAULT = "\x10\x01\x00\x00\x00\x50\x04\x00\x00\x00\x00\x00\x00\x55\x15", # [2,56,52,53,57,54,58,55,4,22,23,25]</td></tr>
<tr><td class="h"><a name="945"></a>945</td><td></td><td></td><td></td><td></td><td class="s">$LAST_BIT = 120 ;</td></tr>
<tr><td class="h"><a name="946"></a>946</td><td class="c3">1</td><td class="c3"><span title="Avg 100ns">100ns</span></td><td></td><td></td><td class="s">$BYTES = 15 ;</td></tr>
<tr><td class="h"><a name="947"></a>947</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="948"></a>948</td><td class="c3">2</td><td class="c3"><span title="Avg 2µs">5µs</span></td><td></td><td></td><td class="s">$All = "" ; vec($All, $Offsets{'all'}, 2) = 3 ;</td></tr>
<tr><td class="h"><a name="949"></a>949</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="950"></a>950</td><td></td><td></td><td></td><td></td><td class="s">sub Croaker</td></tr>
<tr><td class="h"><a name="951"></a>951</td><td></td><td></td><td></td><td></td><td class="s">{</td></tr>
<tr><td class="h"><a name="952"></a>952</td><td></td><td></td><td></td><td></td><td class="s"> require Carp; # this initializes %CarpInternal</td></tr>
<tr><td class="h"><a name="953"></a>953</td><td></td><td></td><td></td><td></td><td class="s"> local $Carp::CarpInternal{'warnings'};</td></tr>
<tr><td class="h"><a name="954"></a>954</td><td></td><td></td><td></td><td></td><td class="s"> delete $Carp::CarpInternal{'warnings'};</td></tr>
<tr><td class="h"><a name="955"></a>955</td><td></td><td></td><td></td><td></td><td class="s"> Carp::croak(@_);</td></tr>
<tr><td class="h"><a name="956"></a>956</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="957"></a>957</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="958"></a>958</td><td></td><td></td><td></td><td></td><td class="s">sub _bits {</td></tr>
<tr><td class="h"><a name="959"></a>959</td><td></td><td></td><td></td><td></td><td class="s"> my $mask = shift ;</td></tr>
<tr><td class="h"><a name="960"></a>960</td><td></td><td></td><td></td><td></td><td class="s"> my $catmask ;</td></tr>
<tr><td class="h"><a name="961"></a>961</td><td></td><td></td><td></td><td></td><td class="s"> my $fatal = 0 ;</td></tr>
<tr><td class="h"><a name="962"></a>962</td><td></td><td></td><td></td><td></td><td class="s"> my $no_fatal = 0 ;</td></tr>
<tr><td class="h"><a name="963"></a>963</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="964"></a>964</td><td></td><td></td><td></td><td></td><td class="s"> foreach my $word ( @_ ) {</td></tr>
<tr><td class="h"><a name="965"></a>965</td><td></td><td></td><td></td><td></td><td class="s"> if ($word eq 'FATAL') {</td></tr>
<tr><td class="h"><a name="966"></a>966</td><td></td><td></td><td></td><td></td><td class="s"> $fatal = 1;</td></tr>
<tr><td class="h"><a name="967"></a>967</td><td></td><td></td><td></td><td></td><td class="s"> $no_fatal = 0;</td></tr>
<tr><td class="h"><a name="968"></a>968</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="969"></a>969</td><td></td><td></td><td></td><td></td><td class="s"> elsif ($word eq 'NONFATAL') {</td></tr>
<tr><td class="h"><a name="970"></a>970</td><td></td><td></td><td></td><td></td><td class="s"> $fatal = 0;</td></tr>
<tr><td class="h"><a name="971"></a>971</td><td></td><td></td><td></td><td></td><td class="s"> $no_fatal = 1;</td></tr>
<tr><td class="h"><a name="972"></a>972</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="973"></a>973</td><td></td><td></td><td></td><td></td><td class="s"> elsif ($catmask = $Bits{$word}) {</td></tr>
<tr><td class="h"><a name="974"></a>974</td><td></td><td></td><td></td><td></td><td class="s"> $mask |= $catmask ;</td></tr>
<tr><td class="h"><a name="975"></a>975</td><td></td><td></td><td></td><td></td><td class="s"> $mask |= $DeadBits{$word} if $fatal ;</td></tr>
<tr><td class="h"><a name="976"></a>976</td><td></td><td></td><td></td><td></td><td class="s"> $mask &= ~($DeadBits{$word}|$All) if $no_fatal ;</td></tr>
<tr><td class="h"><a name="977"></a>977</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="978"></a>978</td><td></td><td></td><td></td><td></td><td class="s"> else</td></tr>
<tr><td class="h"><a name="979"></a>979</td><td></td><td></td><td></td><td></td><td class="s"> { Croaker("Unknown warnings category '$word'")}</td></tr>
<tr><td class="h"><a name="980"></a>980</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="981"></a>981</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="982"></a>982</td><td></td><td></td><td></td><td></td><td class="s"> return $mask ;</td></tr>
<tr><td class="h"><a name="983"></a>983</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="984"></a>984</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="985"></a>985</td><td></td><td></td><td></td><td></td><td class="s">sub bits</td></tr>
<tr><td class="h"><a name="986"></a>986</td><td></td><td></td><td></td><td></td><td class="s">{</td></tr>
<tr><td class="h"><a name="987"></a>987</td><td></td><td></td><td></td><td></td><td class="s"> # called from B::Deparse.pm</td></tr>
<tr><td class="h"><a name="988"></a>988</td><td></td><td></td><td></td><td></td><td class="s"> push @_, 'all' unless @_ ;</td></tr>
<tr><td class="h"><a name="989"></a>989</td><td></td><td></td><td></td><td></td><td class="s"> return _bits(undef, @_) ;</td></tr>
<tr><td class="h"><a name="990"></a>990</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="991"></a>991</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="992"></a>992</td><td></td><td></td><td></td><td></td><td class="s">sub import</td></tr>
<tr><td class="h"><a name="993"></a>993</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 1.04ms within warnings::import which was called 369 times, avg 3µs/call:
# once (16µs+0s) by Date::Manip::TZ::ashebr00::BEGIN@18 at <a href="Date-Manip-TZ-ashebr00-pm-393-line.html#18">line 18 of Date/Manip/TZ/ashebr00.pm</a>
# once (13µs+0s) by Date::Manip::TZ::ammont01::BEGIN@18 at <a href="Date-Manip-TZ-ammont01-pm-207-line.html#18">line 18 of Date/Manip/TZ/ammont01.pm</a>
# once (7µs+0s) by Date::Manip::Delta::BEGIN@18 at <a href="Date-Manip-Delta-pm-490-line.html#18">line 18 of Date/Manip/Delta.pm</a>
# once (7µs+0s) by Date::Manip::TZ::asgaza00::BEGIN@18 at <a href="Date-Manip-TZ-asgaza00-pm-391-line.html#18">line 18 of Date/Manip/TZ/asgaza00.pm</a>
# once (7µs+0s) by Date::Manip::Obj::BEGIN@10 at <a href="Date-Manip-Obj-pm-13-line.html#10">line 10 of Date/Manip/Obj.pm</a>
# once (7µs+0s) by Date::Manip::Offset::off163::BEGIN@18 at <a href="Date-Manip-Offset-off163-pm-492-line.html#18">line 18 of Date/Manip/Offset/off163.pm</a>
# once (6µs+0s) by Date::Manip::Offset::off288::BEGIN@18 at <a href="Date-Manip-Offset-off288-pm-658-line.html#18">line 18 of Date/Manip/Offset/off288.pm</a>
# once (6µs+0s) by Date::Manip::TZ::pamidw00::BEGIN@18 at <a href="Date-Manip-TZ-pamidw00-pm-734-line.html#18">line 18 of Date/Manip/TZ/pamidw00.pm</a>
# once (6µs+0s) by Date::Manip::Offset::off412::BEGIN@18 at <a href="Date-Manip-Offset-off412-pm-728-line.html#18">line 18 of Date/Manip/Offset/off412.pm</a>
# once (6µs+0s) by Date::Manip::Offset::off194::BEGIN@18 at <a href="Date-Manip-Offset-off194-pm-686-line.html#18">line 18 of Date/Manip/Offset/off194.pm</a>
# once (6µs+0s) by Date::Manip::Offset::off263::BEGIN@18 at <a href="Date-Manip-Offset-off263-pm-568-line.html#18">line 18 of Date/Manip/Offset/off263.pm</a>
# once (6µs+0s) by Date::Manip::TZ::g00::BEGIN@18 at <a href="Date-Manip-TZ-g00-pm-425-line.html#18">line 18 of Date/Manip/TZ/g00.pm</a>
# once (6µs+0s) by Date::Manip::Offset::off000::BEGIN@18 at <a href="Date-Manip-Offset-off000-pm-45-line.html#18">line 18 of Date/Manip/Offset/off000.pm</a>
# once (5µs+0s) by Date::Manip::Lang::english::BEGIN@12 at <a href="Date-Manip-Lang-english-pm-43-line.html#12">line 12 of Date/Manip/Lang/english.pm</a>
# once (5µs+0s) by Date::Manip::TZ::asirku00::BEGIN@18 at <a href="Date-Manip-TZ-asirku00-pm-494-line.html#18">line 18 of Date/Manip/TZ/asirku00.pm</a>
# once (4µs+0s) by Date::Manip::TZ::aupert00::BEGIN@18 at <a href="Date-Manip-TZ-aupert00-pm-496-line.html#18">line 18 of Date/Manip/TZ/aupert00.pm</a>
# once (4µs+0s) by main::BEGIN@7 at <a href="dm5dm6_ex3-1-line.html#7">line 7 of ../dm5dm6_ex3</a>
# once (4µs+0s) by Date::Manip::Lang::index::BEGIN@25 at <a href="Date-Manip-Lang-index-pm-38-line.html#25">line 25 of Date/Manip/Lang/index.pm</a>
# once (4µs+0s) by Date::Manip::TZ::asshan00::BEGIN@18 at <a href="Date-Manip-TZ-asshan00-pm-500-line.html#18">line 18 of Date/Manip/TZ/asshan00.pm</a>
# once (4µs+0s) by Date::Manip::TZ::afjoha00::BEGIN@18 at <a href="Date-Manip-TZ-afjoha00-pm-395-line.html#18">line 18 of Date/Manip/TZ/afjoha00.pm</a>
# once (4µs+0s) by Date::Manip::Date::BEGIN@18 at <a href="Date-Manip-Date-pm-12-line.html#18">line 18 of Date/Manip/Date.pm</a>
# once (4µs+0s) by Date::Manip::TZ::afabid00::BEGIN@18 at <a href="Date-Manip-TZ-afabid00-pm-61-line.html#18">line 18 of Date/Manip/TZ/afabid00.pm</a>
# once (4µs+0s) by Date::Manip::TZ::eupari00::BEGIN@18 at <a href="Date-Manip-TZ-eupari00-pm-113-line.html#18">line 18 of Date/Manip/TZ/eupari00.pm</a>
# once (4µs+0s) by Date::Manip::TZ::asmaca00::BEGIN@18 at <a href="Date-Manip-TZ-asmaca00-pm-504-line.html#18">line 18 of Date/Manip/TZ/asmaca00.pm</a>
# once (4µs+0s) by Date::Manip::TZ::atfaro00::BEGIN@18 at <a href="Date-Manip-TZ-atfaro00-pm-59-line.html#18">line 18 of Date/Manip/TZ/atfaro00.pm</a>
# once (4µs+0s) by Date::Manip::TZ::eubelg00::BEGIN@18 at <a href="Date-Manip-TZ-eubelg00-pm-349-line.html#18">line 18 of Date/Manip/TZ/eubelg00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amadak00::BEGIN@18 at <a href="Date-Manip-TZ-amadak00-pm-732-line.html#18">line 18 of Date/Manip/TZ/amadak00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::euluxe00::BEGIN@18 at <a href="Date-Manip-TZ-euluxe00-pm-115-line.html#18">line 18 of Date/Manip/TZ/euluxe00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::eustoc00::BEGIN@18 at <a href="Date-Manip-TZ-eustoc00-pm-337-line.html#18">line 18 of Date/Manip/TZ/eustoc00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::afcair00::BEGIN@18 at <a href="Date-Manip-TZ-afcair00-pm-389-line.html#18">line 18 of Date/Manip/TZ/afcair00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::eumona00::BEGIN@18 at <a href="Date-Manip-TZ-eumona00-pm-111-line.html#18">line 18 of Date/Manip/TZ/eumona00.pm</a>
# once (3µs+0s) by Date::Manip::Offset::off366::BEGIN@18 at <a href="Date-Manip-Offset-off366-pm-303-line.html#18">line 18 of Date/Manip/Offset/off366.pm</a>
# once (3µs+0s) by Date::Manip::TZ::astaip00::BEGIN@18 at <a href="Date-Manip-TZ-astaip00-pm-508-line.html#18">line 18 of Date/Manip/TZ/astaip00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::asulaa00::BEGIN@18 at <a href="Date-Manip-TZ-asulaa00-pm-498-line.html#18">line 18 of Date/Manip/TZ/asulaa00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::ashong00::BEGIN@18 at <a href="Date-Manip-TZ-ashong00-pm-506-line.html#18">line 18 of Date/Manip/TZ/ashong00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::eutira00::BEGIN@18 at <a href="Date-Manip-TZ-eutira00-pm-347-line.html#18">line 18 of Date/Manip/TZ/eutira00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amiqal00::BEGIN@18 at <a href="Date-Manip-TZ-amiqal00-pm-105-line.html#18">line 18 of Date/Manip/TZ/amiqal00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::ammont03::BEGIN@18 at <a href="Date-Manip-TZ-ammont03-pm-255-line.html#18">line 18 of Date/Manip/TZ/ammont03.pm</a>
# once (3µs+0s) by Date::Manip::TZ::euvien00::BEGIN@18 at <a href="Date-Manip-TZ-euvien00-pm-339-line.html#18">line 18 of Date/Manip/TZ/euvien00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::asnico00::BEGIN@18 at <a href="Date-Manip-TZ-asnico00-pm-405-line.html#18">line 18 of Date/Manip/TZ/asnico00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::eumadr00::BEGIN@18 at <a href="Date-Manip-TZ-eumadr00-pm-109-line.html#18">line 18 of Date/Manip/TZ/eumadr00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amlima00::BEGIN@18 at <a href="Date-Manip-TZ-amlima00-pm-261-line.html#18">line 18 of Date/Manip/TZ/amlima00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amnipi00::BEGIN@18 at <a href="Date-Manip-TZ-amnipi00-pm-257-line.html#18">line 18 of Date/Manip/TZ/amnipi00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amyell00::BEGIN@18 at <a href="Date-Manip-TZ-amyell00-pm-117-line.html#18">line 18 of Date/Manip/TZ/amyell00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::ammetl00::BEGIN@18 at <a href="Date-Manip-TZ-ammetl00-pm-163-line.html#18">line 18 of Date/Manip/TZ/ammetl00.pm</a>
# once (3µs+0s) by Config::BEGIN@10 at <a href="Config-pm-7-line.html#10">line 10 of Config.pm</a>
# once (3µs+0s) by Date::Manip::Offset::off380::BEGIN@18 at <a href="Date-Manip-Offset-off380-pm-421-line.html#18">line 18 of Date/Manip/Offset/off380.pm</a>
# once (3µs+0s) by Date::Manip::TZ::aspyon00::BEGIN@18 at <a href="Date-Manip-TZ-aspyon00-pm-520-line.html#18">line 18 of Date/Manip/TZ/aspyon00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::antrol00::BEGIN@18 at <a href="Date-Manip-TZ-antrol00-pm-123-line.html#18">line 18 of Date/Manip/TZ/antrol00.pm</a>
# once (3µs+0s) by Date::Manip::Offset::off076::BEGIN@18 at <a href="Date-Manip-Offset-off076-pm-481-line.html#18">line 18 of Date/Manip/Offset/off076.pm</a>
# once (3µs+0s) by Date::Manip::TZ::asmani00::BEGIN@18 at <a href="Date-Manip-TZ-asmani00-pm-510-line.html#18">line 18 of Date/Manip/TZ/asmani00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::afmonr00::BEGIN@18 at <a href="Date-Manip-TZ-afmonr00-pm-73-line.html#18">line 18 of Date/Manip/TZ/afmonr00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amgoos00::BEGIN@18 at <a href="Date-Manip-TZ-amgoos00-pm-582-line.html#18">line 18 of Date/Manip/TZ/amgoos00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amatik00::BEGIN@18 at <a href="Date-Manip-TZ-amatik00-pm-249-line.html#18">line 18 of Date/Manip/TZ/amatik00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::atberm00::BEGIN@18 at <a href="Date-Manip-TZ-atberm00-pm-584-line.html#18">line 18 of Date/Manip/TZ/atberm00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::eumalt00::BEGIN@18 at <a href="Date-Manip-TZ-eumalt00-pm-329-line.html#18">line 18 of Date/Manip/TZ/eumalt00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::BEGIN@19 at <a href="Date-Manip-TZ-pm-39-line.html#19">line 19 of Date/Manip/TZ.pm</a>
# once (3µs+0s) by Date::Manip::TZ::BEGIN@731 at <a href="Date-Manip-TZ-pm-39-line.html#731">line 731 of Date/Manip/TZ.pm</a>
# once (3µs+0s) by Date::Manip::TZ::aschit00::BEGIN@18 at <a href="Date-Manip-TZ-aschit00-pm-514-line.html#18">line 18 of Date/Manip/TZ/aschit00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::aminuv00::BEGIN@18 at <a href="Date-Manip-TZ-aminuv00-pm-97-line.html#18">line 18 of Date/Manip/TZ/aminuv00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::asyaku00::BEGIN@18 at <a href="Date-Manip-TZ-asyaku00-pm-502-line.html#18">line 18 of Date/Manip/TZ/asyaku00.pm</a>
# once (3µs+0s) by Date::Manip::Offset::off093::BEGIN@18 at <a href="Date-Manip-Offset-off093-pm-435-line.html#18">line 18 of Date/Manip/Offset/off093.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amregi00::BEGIN@18 at <a href="Date-Manip-TZ-amregi00-pm-313-line.html#18">line 18 of Date/Manip/TZ/amregi00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amtoro00::BEGIN@18 at <a href="Date-Manip-TZ-amtoro00-pm-259-line.html#18">line 18 of Date/Manip/TZ/amtoro00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amyaku00::BEGIN@18 at <a href="Date-Manip-TZ-amyaku00-pm-147-line.html#18">line 18 of Date/Manip/TZ/amyaku00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::euprag00::BEGIN@18 at <a href="Date-Manip-TZ-euprag00-pm-333-line.html#18">line 18 of Date/Manip/TZ/euprag00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amglac00::BEGIN@18 at <a href="Date-Manip-TZ-amglac00-pm-572-line.html#18">line 18 of Date/Manip/TZ/amglac00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::wet00::BEGIN@18 at <a href="Date-Manip-TZ-wet00-pm-55-line.html#18">line 18 of Date/Manip/TZ/wet00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amwinn00::BEGIN@18 at <a href="Date-Manip-TZ-amwinn00-pm-191-line.html#18">line 18 of Date/Manip/TZ/amwinn00.pm</a>
# once (3µs+0s) by Date::Manip::TZ_Base::BEGIN@10 at <a href="Date-Manip-TZ_Base-pm-30-line.html#10">line 10 of Date/Manip/TZ_Base.pm</a>
# once (3µs+0s) by Date::Manip::TZ::euzuri00::BEGIN@18 at <a href="Date-Manip-TZ-euzuri00-pm-351-line.html#18">line 18 of Date/Manip/TZ/euzuri00.pm</a>
# once (3µs+0s) by Date::Manip::Zones::BEGIN@17 at <a href="Date-Manip-Zones-pm-40-line.html#17">line 17 of Date/Manip/Zones.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amtucu00::BEGIN@18 at <a href="Date-Manip-TZ-amtucu00-pm-608-line.html#18">line 18 of Date/Manip/TZ/amtucu00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::ammeno00::BEGIN@18 at <a href="Date-Manip-TZ-ammeno00-pm-197-line.html#18">line 18 of Date/Manip/TZ/ammeno00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::ausydn00::BEGIN@18 at <a href="Date-Manip-TZ-ausydn00-pm-694-line.html#18">line 18 of Date/Manip/TZ/ausydn00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amblan00::BEGIN@18 at <a href="Date-Manip-TZ-amblan00-pm-624-line.html#18">line 18 of Date/Manip/TZ/amblan00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::asjaka00::BEGIN@18 at <a href="Date-Manip-TZ-asjaka00-pm-540-line.html#18">line 18 of Date/Manip/TZ/asjaka00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amloui00::BEGIN@18 at <a href="Date-Manip-TZ-amloui00-pm-245-line.html#18">line 18 of Date/Manip/TZ/amloui00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::ammata00::BEGIN@18 at <a href="Date-Manip-TZ-ammata00-pm-205-line.html#18">line 18 of Date/Manip/TZ/ammata00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::asbeir00::BEGIN@18 at <a href="Date-Manip-TZ-asbeir00-pm-387-line.html#18">line 18 of Date/Manip/TZ/asbeir00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::ammont00::BEGIN@18 at <a href="Date-Manip-TZ-ammont00-pm-231-line.html#18">line 18 of Date/Manip/TZ/ammont00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::afwind00::BEGIN@18 at <a href="Date-Manip-TZ-afwind00-pm-353-line.html#18">line 18 of Date/Manip/TZ/afwind00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::atmade00::BEGIN@18 at <a href="Date-Manip-TZ-atmade00-pm-53-line.html#18">line 18 of Date/Manip/TZ/atmade00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::euchis00::BEGIN@18 at <a href="Date-Manip-TZ-euchis00-pm-369-line.html#18">line 18 of Date/Manip/TZ/euchis00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::ampete00::BEGIN@18 at <a href="Date-Manip-TZ-ampete00-pm-219-line.html#18">line 18 of Date/Manip/TZ/ampete00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::aumelb00::BEGIN@18 at <a href="Date-Manip-TZ-aumelb00-pm-688-line.html#18">line 18 of Date/Manip/TZ/aumelb00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::asjeru00::BEGIN@18 at <a href="Date-Manip-TZ-asjeru00-pm-401-line.html#18">line 18 of Date/Manip/TZ/asjeru00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amknox00::BEGIN@18 at <a href="Date-Manip-TZ-amknox00-pm-193-line.html#18">line 18 of Date/Manip/TZ/amknox00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::etgmtp04::BEGIN@18 at <a href="Date-Manip-TZ-etgmtp04-pm-413-line.html#18">line 18 of Date/Manip/TZ/etgmtp04.pm</a>
# once (3µs+0s) by Date::Manip::TZ::papohn00::BEGIN@18 at <a href="Date-Manip-TZ-papohn00-pm-706-line.html#18">line 18 of Date/Manip/TZ/papohn00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::ammart00::BEGIN@18 at <a href="Date-Manip-TZ-ammart00-pm-622-line.html#18">line 18 of Date/Manip/TZ/ammart00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::ambahi00::BEGIN@18 at <a href="Date-Manip-TZ-ambahi00-pm-634-line.html#18">line 18 of Date/Manip/TZ/ambahi00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amcres00::BEGIN@18 at <a href="Date-Manip-TZ-amcres00-pm-185-line.html#18">line 18 of Date/Manip/TZ/amcres00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::etgmtm10::BEGIN@18 at <a href="Date-Manip-TZ-etgmtm10-pm-315-line.html#18">line 18 of Date/Manip/TZ/etgmtm10.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amedmo00::BEGIN@18 at <a href="Date-Manip-TZ-amedmo00-pm-307-line.html#18">line 18 of Date/Manip/TZ/amedmo00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::askuch00::BEGIN@18 at <a href="Date-Manip-TZ-askuch00-pm-544-line.html#18">line 18 of Date/Manip/TZ/askuch00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amjuju00::BEGIN@18 at <a href="Date-Manip-TZ-amjuju00-pm-596-line.html#18">line 18 of Date/Manip/TZ/amjuju00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::asthim00::BEGIN@18 at <a href="Date-Manip-TZ-asthim00-pm-676-line.html#18">line 18 of Date/Manip/TZ/asthim00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amsan_00::BEGIN@18 at <a href="Date-Manip-TZ-amsan_00-pm-606-line.html#18">line 18 of Date/Manip/TZ/amsan_00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amlos_00::BEGIN@18 at <a href="Date-Manip-TZ-amlos_00-pm-159-line.html#18">line 18 of Date/Manip/TZ/amlos_00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::cet00::BEGIN@18 at <a href="Date-Manip-TZ-cet00-pm-321-line.html#18">line 18 of Date/Manip/TZ/cet00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::papitc00::BEGIN@18 at <a href="Date-Manip-TZ-papitc00-pm-169-line.html#18">line 18 of Date/Manip/TZ/papitc00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amboa_00::BEGIN@18 at <a href="Date-Manip-TZ-amboa_00-pm-612-line.html#18">line 18 of Date/Manip/TZ/amboa_00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amsan_01::BEGIN@18 at <a href="Date-Manip-TZ-amsan_01-pm-574-line.html#18">line 18 of Date/Manip/TZ/amsan_01.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amcanc00::BEGIN@18 at <a href="Date-Manip-TZ-amcanc00-pm-213-line.html#18">line 18 of Date/Manip/TZ/amcanc00.pm</a>
# once (3µs+0s) by Date::Manip::Offset::off395::BEGIN@18 at <a href="Date-Manip-Offset-off395-pm-143-line.html#18">line 18 of Date/Manip/Offset/off395.pm</a>
# once (3µs+0s) by Encode::Alias::BEGIN@3 at <a href="Encode-Alias-pm-33-line.html#3">line 3 of Encode/Alias.pm</a>
# once (3µs+0s) by Date::Manip::TZ::eubuch00::BEGIN@18 at <a href="Date-Manip-TZ-eubuch00-pm-411-line.html#18">line 18 of Date/Manip/TZ/eubuch00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amnew_00::BEGIN@18 at <a href="Date-Manip-TZ-amnew_00-pm-253-line.html#18">line 18 of Date/Manip/TZ/amnew_00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::papala00::BEGIN@18 at <a href="Date-Manip-TZ-papala00-pm-518-line.html#18">line 18 of Date/Manip/TZ/papala00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::met00::BEGIN@18 at <a href="Date-Manip-TZ-met00-pm-343-line.html#18">line 18 of Date/Manip/TZ/met00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amtiju00::BEGIN@18 at <a href="Date-Manip-TZ-amtiju00-pm-167-line.html#18">line 18 of Date/Manip/TZ/amtiju00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::euriga00::BEGIN@18 at <a href="Date-Manip-TZ-euriga00-pm-373-line.html#18">line 18 of Date/Manip/TZ/euriga00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::afaccr00::BEGIN@18 at <a href="Date-Manip-TZ-afaccr00-pm-69-line.html#18">line 18 of Date/Manip/TZ/afaccr00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amcaym00::BEGIN@18 at <a href="Date-Manip-TZ-amcaym00-pm-267-line.html#18">line 18 of Date/Manip/TZ/amcaym00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::eurome00::BEGIN@18 at <a href="Date-Manip-TZ-eurome00-pm-335-line.html#18">line 18 of Date/Manip/TZ/eurome00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::ampuer00::BEGIN@18 at <a href="Date-Manip-TZ-ampuer00-pm-626-line.html#18">line 18 of Date/Manip/TZ/ampuer00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::eubrus00::BEGIN@18 at <a href="Date-Manip-TZ-eubrus00-pm-107-line.html#18">line 18 of Date/Manip/TZ/eubrus00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::eusofi00::BEGIN@18 at <a href="Date-Manip-TZ-eusofi00-pm-377-line.html#18">line 18 of Date/Manip/TZ/eusofi00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::asduba00::BEGIN@18 at <a href="Date-Manip-TZ-asduba00-pm-455-line.html#18">line 18 of Date/Manip/TZ/asduba00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amdaws00::BEGIN@18 at <a href="Date-Manip-TZ-amdaws00-pm-153-line.html#18">line 18 of Date/Manip/TZ/amdaws00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::euathe00::BEGIN@18 at <a href="Date-Manip-TZ-euathe00-pm-379-line.html#18">line 18 of Date/Manip/TZ/euathe00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::panaur00::BEGIN@18 at <a href="Date-Manip-TZ-panaur00-pm-554-line.html#18">line 18 of Date/Manip/TZ/panaur00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::aulord00::BEGIN@18 at <a href="Date-Manip-TZ-aulord00-pm-696-line.html#18">line 18 of Date/Manip/TZ/aulord00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::anroth00::BEGIN@18 at <a href="Date-Manip-TZ-anroth00-pm-125-line.html#18">line 18 of Date/Manip/TZ/anroth00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::ammend00::BEGIN@18 at <a href="Date-Manip-TZ-ammend00-pm-600-line.html#18">line 18 of Date/Manip/TZ/ammend00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::pakosr00::BEGIN@18 at <a href="Date-Manip-TZ-pakosr00-pm-708-line.html#18">line 18 of Date/Manip/TZ/pakosr00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::eet00::BEGIN@18 at <a href="Date-Manip-TZ-eet00-pm-385-line.html#18">line 18 of Date/Manip/TZ/eet00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amdanm00::BEGIN@18 at <a href="Date-Manip-TZ-amdanm00-pm-79-line.html#18">line 18 of Date/Manip/TZ/amdanm00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amport02::BEGIN@18 at <a href="Date-Manip-TZ-amport02-pm-616-line.html#18">line 18 of Date/Manip/TZ/amport02.pm</a>
# once (3µs+0s) by Date::Manip::TZ::asdama00::BEGIN@18 at <a href="Date-Manip-TZ-asdama00-pm-403-line.html#18">line 18 of Date/Manip/TZ/asdama00.pm</a>
# once (3µs+0s) by Date::Manip::Offset::off021::BEGIN@18 at <a href="Date-Manip-Offset-off021-pm-427-line.html#18">line 18 of Date/Manip/Offset/off021.pm</a>
# once (3µs+0s) by Date::Manip::TZ::auhoba00::BEGIN@18 at <a href="Date-Manip-TZ-auhoba00-pm-692-line.html#18">line 18 of Date/Manip/TZ/auhoba00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::paeast00::BEGIN@18 at <a href="Date-Manip-TZ-paeast00-pm-203-line.html#18">line 18 of Date/Manip/TZ/paeast00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::euando00::BEGIN@18 at <a href="Date-Manip-TZ-euando00-pm-103-line.html#18">line 18 of Date/Manip/TZ/euando00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::euwars00::BEGIN@18 at <a href="Date-Manip-TZ-euwars00-pm-341-line.html#18">line 18 of Date/Manip/TZ/euwars00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::afkhar00::BEGIN@18 at <a href="Date-Manip-TZ-afkhar00-pm-417-line.html#18">line 18 of Date/Manip/TZ/afkhar00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::asbagh00::BEGIN@18 at <a href="Date-Manip-TZ-asbagh00-pm-441-line.html#18">line 18 of Date/Manip/TZ/asbagh00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::aftrip00::BEGIN@18 at <a href="Date-Manip-TZ-aftrip00-pm-359-line.html#18">line 18 of Date/Manip/TZ/aftrip00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::asqata00::BEGIN@18 at <a href="Date-Manip-TZ-asqata00-pm-471-line.html#18">line 18 of Date/Manip/TZ/asqata00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::panoum00::BEGIN@18 at <a href="Date-Manip-TZ-panoum00-pm-714-line.html#18">line 18 of Date/Manip/TZ/panoum00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amnome00::BEGIN@18 at <a href="Date-Manip-TZ-amnome00-pm-151-line.html#18">line 18 of Date/Manip/TZ/amnome00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amcent00::BEGIN@18 at <a href="Date-Manip-TZ-amcent00-pm-209-line.html#18">line 18 of Date/Manip/TZ/amcent00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::euvolg00::BEGIN@18 at <a href="Date-Manip-TZ-euvolg00-pm-439-line.html#18">line 18 of Date/Manip/TZ/euvolg00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::inkerg00::BEGIN@18 at <a href="Date-Manip-TZ-inkerg00-pm-99-line.html#18">line 18 of Date/Manip/TZ/inkerg00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amport00::BEGIN@18 at <a href="Date-Manip-TZ-amport00-pm-279-line.html#18">line 18 of Date/Manip/TZ/amport00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amphoe00::BEGIN@18 at <a href="Date-Manip-TZ-amphoe00-pm-309-line.html#18">line 18 of Date/Manip/TZ/amphoe00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amindi00::BEGIN@18 at <a href="Date-Manip-TZ-amindi00-pm-247-line.html#18">line 18 of Date/Manip/TZ/amindi00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::euoslo00::BEGIN@18 at <a href="Date-Manip-TZ-euoslo00-pm-331-line.html#18">line 18 of Date/Manip/TZ/euoslo00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::ammana01::BEGIN@18 at <a href="Date-Manip-TZ-ammana01-pm-614-line.html#18">line 18 of Date/Manip/TZ/ammana01.pm</a>
# once (3µs+0s) by Date::Manip::TZ::aubris00::BEGIN@18 at <a href="Date-Manip-TZ-aubris00-pm-700-line.html#18">line 18 of Date/Manip/TZ/aubris00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::aubrok00::BEGIN@18 at <a href="Date-Manip-TZ-aubrok00-pm-560-line.html#18">line 18 of Date/Manip/TZ/aubrok00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amsitk00::BEGIN@18 at <a href="Date-Manip-TZ-amsitk00-pm-157-line.html#18">line 18 of Date/Manip/TZ/amsitk00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::eudubl00::BEGIN@18 at <a href="Date-Manip-TZ-eudubl00-pm-67-line.html#18">line 18 of Date/Manip/TZ/eudubl00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amasun00::BEGIN@18 at <a href="Date-Manip-TZ-amasun00-pm-586-line.html#18">line 18 of Date/Manip/TZ/amasun00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::aflago00::BEGIN@18 at <a href="Date-Manip-TZ-aflago00-pm-429-line.html#18">line 18 of Date/Manip/TZ/aflago00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::inreun00::BEGIN@18 at <a href="Date-Manip-TZ-inreun00-pm-453-line.html#18">line 18 of Date/Manip/TZ/inreun00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amsant01::BEGIN@18 at <a href="Date-Manip-TZ-amsant01-pm-618-line.html#18">line 18 of Date/Manip/TZ/amsant01.pm</a>
# once (3µs+0s) by Date::Manip::TZ::euuzhg00::BEGIN@18 at <a href="Date-Manip-TZ-euuzhg00-pm-367-line.html#18">line 18 of Date/Manip/TZ/euuzhg00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::afcasa00::BEGIN@18 at <a href="Date-Manip-TZ-afcasa00-pm-65-line.html#18">line 18 of Date/Manip/TZ/afcasa00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::ambeul00::BEGIN@18 at <a href="Date-Manip-TZ-ambeul00-pm-217-line.html#18">line 18 of Date/Manip/TZ/ambeul00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amsao_00::BEGIN@18 at <a href="Date-Manip-TZ-amsao_00-pm-630-line.html#18">line 18 of Date/Manip/TZ/amsao_00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amanch00::BEGIN@18 at <a href="Date-Manip-TZ-amanch00-pm-149-line.html#18">line 18 of Date/Manip/TZ/amanch00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::v00::BEGIN@18 at <a href="Date-Manip-TZ-v00-pm-530-line.html#18">line 18 of Date/Manip/TZ/v00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::ampara00::BEGIN@18 at <a href="Date-Manip-TZ-ampara00-pm-650-line.html#18">line 18 of Date/Manip/TZ/ampara00.pm</a>
# once (3µs+0s) by Date::Manip::Base::BEGIN@20 at <a href="Date-Manip-Base-pm-29-line.html#20">line 20 of Date/Manip/Base.pm</a>
# once (3µs+0s) by Date::Manip::TZ::ambele00::BEGIN@18 at <a href="Date-Manip-TZ-ambele00-pm-636-line.html#18">line 18 of Date/Manip/TZ/ambele00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::eusama00::BEGIN@18 at <a href="Date-Manip-TZ-eusama00-pm-437-line.html#18">line 18 of Date/Manip/TZ/eusama00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amojin00::BEGIN@18 at <a href="Date-Manip-TZ-amojin00-pm-235-line.html#18">line 18 of Date/Manip/TZ/amojin00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::eubuda00::BEGIN@18 at <a href="Date-Manip-TZ-eubuda00-pm-325-line.html#18">line 18 of Date/Manip/TZ/eubuda00.pm</a>
# once (3µs+0s) by Carp::BEGIN@5 at <a href="Carp-pm-15-line.html#5">line 5 of Carp.pm</a>
# once (3µs+0s) by Date::Manip::TZ::afel_a00::BEGIN@18 at <a href="Date-Manip-TZ-afel_a00-pm-77-line.html#18">line 18 of Date/Manip/TZ/afel_a00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::etgmtp02::BEGIN@18 at <a href="Date-Manip-TZ-etgmtp02-pm-720-line.html#18">line 18 of Date/Manip/TZ/etgmtp02.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amguay00::BEGIN@18 at <a href="Date-Manip-TZ-amguay00-pm-283-line.html#18">line 18 of Date/Manip/TZ/amguay00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::asaqto00::BEGIN@18 at <a href="Date-Manip-TZ-asaqto00-pm-479-line.html#18">line 18 of Date/Manip/TZ/asaqto00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::etgmtm12::BEGIN@18 at <a href="Date-Manip-TZ-etgmtm12-pm-171-line.html#18">line 18 of Date/Manip/TZ/etgmtm12.pm</a>
# once (3µs+0s) by Date::Manip::TZ::pasaip00::BEGIN@18 at <a href="Date-Manip-TZ-pasaip00-pm-536-line.html#18">line 18 of Date/Manip/TZ/pasaip00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::ampang00::BEGIN@18 at <a href="Date-Manip-TZ-ampang00-pm-119-line.html#18">line 18 of Date/Manip/TZ/ampang00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::atreyk00::BEGIN@18 at <a href="Date-Manip-TZ-atreyk00-pm-51-line.html#18">line 18 of Date/Manip/TZ/atreyk00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::ambois00::BEGIN@18 at <a href="Date-Manip-TZ-ambois00-pm-183-line.html#18">line 18 of Date/Manip/TZ/ambois00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::eulond00::BEGIN@18 at <a href="Date-Manip-TZ-eulond00-pm-57-line.html#18">line 18 of Date/Manip/TZ/eulond00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::askabu00::BEGIN@18 at <a href="Date-Manip-TZ-askabu00-pm-473-line.html#18">line 18 of Date/Manip/TZ/askabu00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::asmaka00::BEGIN@18 at <a href="Date-Manip-TZ-asmaka00-pm-546-line.html#18">line 18 of Date/Manip/TZ/asmaka00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amwina00::BEGIN@18 at <a href="Date-Manip-TZ-amwina00-pm-223-line.html#18">line 18 of Date/Manip/TZ/amwina00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::asashg00::BEGIN@18 at <a href="Date-Manip-TZ-asashg00-pm-467-line.html#18">line 18 of Date/Manip/TZ/asashg00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amrain00::BEGIN@18 at <a href="Date-Manip-TZ-amrain00-pm-199-line.html#18">line 18 of Date/Manip/TZ/amrain00.pm</a>
# once (3µs+0s) by IO::BEGIN@8 at <a href="IO-pm-21-line.html#8">line 8 of IO.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amarag00::BEGIN@18 at <a href="Date-Manip-TZ-amarag00-pm-632-line.html#18">line 18 of Date/Manip/TZ/amarag00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::amnass00::BEGIN@18 at <a href="Date-Manip-TZ-amnass00-pm-273-line.html#18">line 18 of Date/Manip/TZ/amnass00.pm</a>
# once (3µs+0s) by Date::Manip::TZ::eukali00::BEGIN@18 at <a href="Date-Manip-TZ-eukali00-pm-363-line.html#18">line 18 of Date/Manip/TZ/eukali00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::auadel00::BEGIN@18 at <a href="Date-Manip-TZ-auadel00-pm-556-line.html#18">line 18 of Date/Manip/TZ/auadel00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::afmapu00::BEGIN@18 at <a href="Date-Manip-TZ-afmapu00-pm-397-line.html#18">line 18 of Date/Manip/TZ/afmapu00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::ammana00::BEGIN@18 at <a href="Date-Manip-TZ-ammana00-pm-227-line.html#18">line 18 of Date/Manip/TZ/ammana00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::ammeri00::BEGIN@18 at <a href="Date-Manip-TZ-ammeri00-pm-211-line.html#18">line 18 of Date/Manip/TZ/ammeri00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::asanad00::BEGIN@18 at <a href="Date-Manip-TZ-asanad00-pm-718-line.html#18">line 18 of Date/Manip/TZ/asanad00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amla_p00::BEGIN@18 at <a href="Date-Manip-TZ-amla_p00-pm-662-line.html#18">line 18 of Date/Manip/TZ/amla_p00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::paboug00::BEGIN@18 at <a href="Date-Manip-TZ-paboug00-pm-564-line.html#18">line 18 of Date/Manip/TZ/paboug00.pm</a>
# once (2µs+0s) by Date::Manip::Offset::off328::BEGIN@18 at <a href="Date-Manip-Offset-off328-pm-187-line.html#18">line 18 of Date/Manip/Offset/off328.pm</a>
# once (2µs+0s) by Date::Manip::TZ::e00::BEGIN@18 at <a href="Date-Manip-TZ-e00-pm-287-line.html#18">line 18 of Date/Manip/TZ/e00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::ambuen00::BEGIN@18 at <a href="Date-Manip-TZ-ambuen00-pm-590-line.html#18">line 18 of Date/Manip/TZ/ambuen00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::astoky00::BEGIN@18 at <a href="Date-Manip-TZ-astoky00-pm-516-line.html#18">line 18 of Date/Manip/TZ/astoky00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::asvlad00::BEGIN@18 at <a href="Date-Manip-TZ-asvlad00-pm-534-line.html#18">line 18 of Date/Manip/TZ/asvlad00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::asustm00::BEGIN@18 at <a href="Date-Manip-TZ-asustm00-pm-562-line.html#18">line 18 of Date/Manip/TZ/asustm00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amcamb00::BEGIN@18 at <a href="Date-Manip-TZ-amcamb00-pm-121-line.html#18">line 18 of Date/Manip/TZ/amcamb00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::askual00::BEGIN@18 at <a href="Date-Manip-TZ-askual00-pm-542-line.html#18">line 18 of Date/Manip/TZ/askual00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amrio_01::BEGIN@18 at <a href="Date-Manip-TZ-amrio_01-pm-291-line.html#18">line 18 of Date/Manip/TZ/amrio_01.pm</a>
# once (2µs+0s) by Date::Manip::TZ::eumins00::BEGIN@18 at <a href="Date-Manip-TZ-eumins00-pm-371-line.html#18">line 18 of Date/Manip/TZ/eumins00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::asyere00::BEGIN@18 at <a href="Date-Manip-TZ-asyere00-pm-445-line.html#18">line 18 of Date/Manip/TZ/asyere00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::andumo00::BEGIN@18 at <a href="Date-Manip-TZ-andumo00-pm-137-line.html#18">line 18 of Date/Manip/TZ/andumo00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amcamp00::BEGIN@18 at <a href="Date-Manip-TZ-amcamp00-pm-576-line.html#18">line 18 of Date/Manip/TZ/amcamp00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amguya00::BEGIN@18 at <a href="Date-Manip-TZ-amguya00-pm-656-line.html#18">line 18 of Date/Manip/TZ/amguya00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::askara00::BEGIN@18 at <a href="Date-Manip-TZ-askara00-pm-680-line.html#18">line 18 of Date/Manip/TZ/askara00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amanti00::BEGIN@18 at <a href="Date-Manip-TZ-amanti00-pm-297-line.html#18">line 18 of Date/Manip/TZ/amanti00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amport01::BEGIN@18 at <a href="Date-Manip-TZ-amport01-pm-660-line.html#18">line 18 of Date/Manip/TZ/amport01.pm</a>
# once (2µs+0s) by Date::Manip::TZ::askolk00::BEGIN@18 at <a href="Date-Manip-TZ-askolk00-pm-684-line.html#18">line 18 of Date/Manip/TZ/askolk00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::afnair00::BEGIN@18 at <a href="Date-Manip-TZ-afnair00-pm-483-line.html#18">line 18 of Date/Manip/TZ/afnair00.pm</a>
# once (2µs+0s) by Date::Manip::Offset::off111::BEGIN@18 at <a href="Date-Manip-Offset-off111-pm-672-line.html#18">line 18 of Date/Manip/Offset/off111.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amsant03::BEGIN@18 at <a href="Date-Manip-TZ-amsant03-pm-293-line.html#18">line 18 of Date/Manip/TZ/amsant03.pm</a>
# once (2µs+0s) by Date::Manip::TZ::ascolo00::BEGIN@18 at <a href="Date-Manip-TZ-ascolo00-pm-674-line.html#18">line 18 of Date/Manip/TZ/ascolo00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::atazor00::BEGIN@18 at <a href="Date-Manip-TZ-atazor00-pm-47-line.html#18">line 18 of Date/Manip/TZ/atazor00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amcata00::BEGIN@18 at <a href="Date-Manip-TZ-amcata00-pm-592-line.html#18">line 18 of Date/Manip/TZ/amcata00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::afbiss00::BEGIN@18 at <a href="Date-Manip-TZ-afbiss00-pm-75-line.html#18">line 18 of Date/Manip/TZ/afbiss00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amveva00::BEGIN@18 at <a href="Date-Manip-TZ-amveva00-pm-251-line.html#18">line 18 of Date/Manip/TZ/amveva00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::inmaur00::BEGIN@18 at <a href="Date-Manip-TZ-inmaur00-pm-449-line.html#18">line 18 of Date/Manip/TZ/inmaur00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amsant02::BEGIN@18 at <a href="Date-Manip-TZ-amsant02-pm-299-line.html#18">line 18 of Date/Manip/TZ/amsant02.pm</a>
# once (2µs+0s) by Date::Manip::TZ::patahi00::BEGIN@18 at <a href="Date-Manip-TZ-patahi00-pm-738-line.html#18">line 18 of Date/Manip/TZ/patahi00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::asseou00::BEGIN@18 at <a href="Date-Manip-TZ-asseou00-pm-522-line.html#18">line 18 of Date/Manip/TZ/asseou00.pm</a>
# once (2µs+0s) by Encode::Encoding::BEGIN@5 at <a href="Encode-Encoding-pm-37-line.html#5">line 5 of Encode/Encoding.pm</a>
# once (2µs+0s) by Date::Manip::TZ::pararo00::BEGIN@18 at <a href="Date-Manip-TZ-pararo00-pm-740-line.html#18">line 18 of Date/Manip/TZ/pararo00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amherm00::BEGIN@18 at <a href="Date-Manip-TZ-amherm00-pm-179-line.html#18">line 18 of Date/Manip/TZ/amherm00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amcuia00::BEGIN@18 at <a href="Date-Manip-TZ-amcuia00-pm-578-line.html#18">line 18 of Date/Manip/TZ/amcuia00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::o00::BEGIN@18 at <a href="Date-Manip-TZ-o00-pm-415-line.html#18">line 18 of Date/Manip/TZ/o00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::ammaza00::BEGIN@18 at <a href="Date-Manip-TZ-ammaza00-pm-181-line.html#18">line 18 of Date/Manip/TZ/ammaza00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::eugibr00::BEGIN@18 at <a href="Date-Manip-TZ-eugibr00-pm-95-line.html#18">line 18 of Date/Manip/TZ/eugibr00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::asdhak00::BEGIN@18 at <a href="Date-Manip-TZ-asdhak00-pm-682-line.html#18">line 18 of Date/Manip/TZ/asdhak00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::etgmtm01::BEGIN@18 at <a href="Date-Manip-TZ-etgmtm01-pm-742-line.html#18">line 18 of Date/Manip/TZ/etgmtm01.pm</a>
# once (2µs+0s) by Date::Manip::TZ::etgmtp06::BEGIN@18 at <a href="Date-Manip-TZ-etgmtp06-pm-457-line.html#18">line 18 of Date/Manip/TZ/etgmtp06.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amdetr00::BEGIN@18 at <a href="Date-Manip-TZ-amdetr00-pm-277-line.html#18">line 18 of Date/Manip/TZ/amdetr00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::askhan00::BEGIN@18 at <a href="Date-Manip-TZ-askhan00-pm-512-line.html#18">line 18 of Date/Manip/TZ/askhan00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::k00::BEGIN@18 at <a href="Date-Manip-TZ-k00-pm-744-line.html#18">line 18 of Date/Manip/TZ/k00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::paapia00::BEGIN@18 at <a href="Date-Manip-TZ-paapia00-pm-730-line.html#18">line 18 of Date/Manip/TZ/paapia00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amfort00::BEGIN@18 at <a href="Date-Manip-TZ-amfort00-pm-638-line.html#18">line 18 of Date/Manip/TZ/amfort00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::asmaga00::BEGIN@18 at <a href="Date-Manip-TZ-asmaga00-pm-702-line.html#18">line 18 of Date/Manip/TZ/asmaga00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::euhels00::BEGIN@18 at <a href="Date-Manip-TZ-euhels00-pm-407-line.html#18">line 18 of Date/Manip/TZ/euhels00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::eusimf00::BEGIN@18 at <a href="Date-Manip-TZ-eusimf00-pm-375-line.html#18">line 18 of Date/Manip/TZ/eusimf00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::etgmtp00::BEGIN@18 at <a href="Date-Manip-TZ-etgmtp00-pm-431-line.html#18">line 18 of Date/Manip/TZ/etgmtp00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::euzapo00::BEGIN@18 at <a href="Date-Manip-TZ-euzapo00-pm-383-line.html#18">line 18 of Date/Manip/TZ/euzapo00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::atcana00::BEGIN@18 at <a href="Date-Manip-TZ-atcana00-pm-71-line.html#18">line 18 of Date/Manip/TZ/atcana00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::ammexi00::BEGIN@18 at <a href="Date-Manip-TZ-ammexi00-pm-201-line.html#18">line 18 of Date/Manip/TZ/ammexi00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amguat00::BEGIN@18 at <a href="Date-Manip-TZ-amguat00-pm-225-line.html#18">line 18 of Date/Manip/TZ/amguat00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amscor00::BEGIN@18 at <a href="Date-Manip-TZ-amscor00-pm-49-line.html#18">line 18 of Date/Manip/TZ/amscor00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::ammace00::BEGIN@18 at <a href="Date-Manip-TZ-ammace00-pm-640-line.html#18">line 18 of Date/Manip/TZ/ammace00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::ancase00::BEGIN@18 at <a href="Date-Manip-TZ-ancase00-pm-127-line.html#18">line 18 of Date/Manip/TZ/ancase00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::assakh00::BEGIN@18 at <a href="Date-Manip-TZ-assakh00-pm-538-line.html#18">line 18 of Date/Manip/TZ/assakh00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amcara00::BEGIN@18 at <a href="Date-Manip-TZ-amcara00-pm-670-line.html#18">line 18 of Date/Manip/TZ/amcara00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::eukiev00::BEGIN@18 at <a href="Date-Manip-TZ-eukiev00-pm-381-line.html#18">line 18 of Date/Manip/TZ/eukiev00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::ammont02::BEGIN@18 at <a href="Date-Manip-TZ-ammont02-pm-628-line.html#18">line 18 of Date/Manip/TZ/ammont02.pm</a>
# once (2µs+0s) by Date::Manip::TZ::x00::BEGIN@18 at <a href="Date-Manip-TZ-x00-pm-722-line.html#18">line 18 of Date/Manip/TZ/x00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::audarw00::BEGIN@18 at <a href="Date-Manip-TZ-audarw00-pm-558-line.html#18">line 18 of Date/Manip/TZ/audarw00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amreci00::BEGIN@18 at <a href="Date-Manip-TZ-amreci00-pm-642-line.html#18">line 18 of Date/Manip/TZ/amreci00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::aulind00::BEGIN@18 at <a href="Date-Manip-TZ-aulind00-pm-698-line.html#18">line 18 of Date/Manip/TZ/aulind00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::q00::BEGIN@18 at <a href="Date-Manip-TZ-q00-pm-459-line.html#18">line 18 of Date/Manip/TZ/q00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amcord00::BEGIN@18 at <a href="Date-Manip-TZ-amcord00-pm-594-line.html#18">line 18 of Date/Manip/TZ/amcord00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::asjaya00::BEGIN@18 at <a href="Date-Manip-TZ-asjaya00-pm-524-line.html#18">line 18 of Date/Manip/TZ/asjaya00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::ambarb00::BEGIN@18 at <a href="Date-Manip-TZ-ambarb00-pm-620-line.html#18">line 18 of Date/Manip/TZ/ambarb00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amjama00::BEGIN@18 at <a href="Date-Manip-TZ-amjama00-pm-271-line.html#18">line 18 of Date/Manip/TZ/amjama00.pm</a>
# once (2µs+0s) by Encode::Config::BEGIN@8 at <a href="Encode-Config-pm-36-line.html#8">line 8 of Encode/Config.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amchih00::BEGIN@18 at <a href="Date-Manip-TZ-amchih00-pm-233-line.html#18">line 18 of Date/Manip/TZ/amchih00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::aspont00::BEGIN@18 at <a href="Date-Manip-TZ-aspont00-pm-548-line.html#18">line 18 of Date/Manip/TZ/aspont00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::etgmtm07::BEGIN@18 at <a href="Date-Manip-TZ-etgmtm07-pm-652-line.html#18">line 18 of Date/Manip/TZ/etgmtm07.pm</a>
# once (2µs+0s) by Date::Manip::TZ::euista00::BEGIN@18 at <a href="Date-Manip-TZ-euista00-pm-399-line.html#18">line 18 of Date/Manip/TZ/euista00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amjune00::BEGIN@18 at <a href="Date-Manip-TZ-amjune00-pm-145-line.html#18">line 18 of Date/Manip/TZ/amjune00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amdaws01::BEGIN@18 at <a href="Date-Manip-TZ-amdaws01-pm-175-line.html#18">line 18 of Date/Manip/TZ/amdaws01.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amvanc00::BEGIN@18 at <a href="Date-Manip-TZ-amvanc00-pm-161-line.html#18">line 18 of Date/Manip/TZ/amvanc00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amcost00::BEGIN@18 at <a href="Date-Manip-TZ-amcost00-pm-237-line.html#18">line 18 of Date/Manip/TZ/amcost00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::asqyzy00::BEGIN@18 at <a href="Date-Manip-TZ-asqyzy00-pm-475-line.html#18">line 18 of Date/Manip/TZ/asqyzy00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amtell00::BEGIN@18 at <a href="Date-Manip-TZ-amtell00-pm-195-line.html#18">line 18 of Date/Manip/TZ/amtell00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amsant00::BEGIN@18 at <a href="Date-Manip-TZ-amsant00-pm-165-line.html#18">line 18 of Date/Manip/TZ/amsant00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::paguad00::BEGIN@18 at <a href="Date-Manip-TZ-paguad00-pm-712-line.html#18">line 18 of Date/Manip/TZ/paguad00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amsalt00::BEGIN@18 at <a href="Date-Manip-TZ-amsalt00-pm-604-line.html#18">line 18 of Date/Manip/TZ/amsalt00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amchic00::BEGIN@18 at <a href="Date-Manip-TZ-amchic00-pm-189-line.html#18">line 18 of Date/Manip/TZ/amchic00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::assama00::BEGIN@18 at <a href="Date-Manip-TZ-assama00-pm-477-line.html#18">line 18 of Date/Manip/TZ/assama00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amthul00::BEGIN@18 at <a href="Date-Manip-TZ-amthul00-pm-588-line.html#18">line 18 of Date/Manip/TZ/amthul00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::asyeka00::BEGIN@18 at <a href="Date-Manip-TZ-asyeka00-pm-465-line.html#18">line 18 of Date/Manip/TZ/asyeka00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amnew_01::BEGIN@18 at <a href="Date-Manip-TZ-amnew_01-pm-215-line.html#18">line 18 of Date/Manip/TZ/amnew_01.pm</a>
# once (2µs+0s) by Date::Manip::TZ::pahono00::BEGIN@18 at <a href="Date-Manip-TZ-pahono00-pm-736-line.html#18">line 18 of Date/Manip/TZ/pahono00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amla_r00::BEGIN@18 at <a href="Date-Manip-TZ-amla_r00-pm-598-line.html#18">line 18 of Date/Manip/TZ/amla_r00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::aschoi00::BEGIN@18 at <a href="Date-Manip-TZ-aschoi00-pm-532-line.html#18">line 18 of Date/Manip/TZ/aschoi00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::ambahi01::BEGIN@18 at <a href="Date-Manip-TZ-ambahi01-pm-177-line.html#18">line 18 of Date/Manip/TZ/ambahi01.pm</a>
# once (2µs+0s) by Date::Manip::TZ::asamma00::BEGIN@18 at <a href="Date-Manip-TZ-asamma00-pm-409-line.html#18">line 18 of Date/Manip/TZ/asamma00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amcaye00::BEGIN@18 at <a href="Date-Manip-TZ-amcaye00-pm-646-line.html#18">line 18 of Date/Manip/TZ/amcaye00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amvinc00::BEGIN@18 at <a href="Date-Manip-TZ-amvinc00-pm-221-line.html#18">line 18 of Date/Manip/TZ/amvinc00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::askamc00::BEGIN@18 at <a href="Date-Manip-TZ-askamc00-pm-716-line.html#18">line 18 of Date/Manip/TZ/askamc00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::aftuni00::BEGIN@18 at <a href="Date-Manip-TZ-aftuni00-pm-355-line.html#18">line 18 of Date/Manip/TZ/aftuni00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::atstan00::BEGIN@18 at <a href="Date-Manip-TZ-atstan00-pm-580-line.html#18">line 18 of Date/Manip/TZ/atstan00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::asho_c00::BEGIN@18 at <a href="Date-Manip-TZ-asho_c00-pm-566-line.html#18">line 18 of Date/Manip/TZ/asho_c00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::ut00::BEGIN@18 at <a href="Date-Manip-TZ-ut00-pm-83-line.html#18">line 18 of Date/Manip/TZ/ut00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::anmacq00::BEGIN@18 at <a href="Date-Manip-TZ-anmacq00-pm-141-line.html#18">line 18 of Date/Manip/TZ/anmacq00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::c00::BEGIN@18 at <a href="Date-Manip-TZ-c00-pm-654-line.html#18">line 18 of Date/Manip/TZ/c00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amwhit00::BEGIN@18 at <a href="Date-Manip-TZ-amwhit00-pm-155-line.html#18">line 18 of Date/Manip/TZ/amwhit00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::etgmt00::BEGIN@18 at <a href="Date-Manip-TZ-etgmt00-pm-81-line.html#18">line 18 of Date/Manip/TZ/etgmt00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::paefat00::BEGIN@18 at <a href="Date-Manip-TZ-paefat00-pm-710-line.html#18">line 18 of Date/Manip/TZ/paefat00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amushu00::BEGIN@18 at <a href="Date-Manip-TZ-amushu00-pm-610-line.html#18">line 18 of Date/Manip/TZ/amushu00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amcura00::BEGIN@18 at <a href="Date-Manip-TZ-amcura00-pm-664-line.html#18">line 18 of Date/Manip/TZ/amcura00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amreso00::BEGIN@18 at <a href="Date-Manip-TZ-amreso00-pm-101-line.html#18">line 18 of Date/Manip/TZ/amreso00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::pagala00::BEGIN@18 at <a href="Date-Manip-TZ-pagala00-pm-295-line.html#18">line 18 of Date/Manip/TZ/pagala00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amtegu00::BEGIN@18 at <a href="Date-Manip-TZ-amtegu00-pm-229-line.html#18">line 18 of Date/Manip/TZ/amtegu00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amhava00::BEGIN@18 at <a href="Date-Manip-TZ-amhava00-pm-281-line.html#18">line 18 of Date/Manip/TZ/amhava00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::ambogo00::BEGIN@18 at <a href="Date-Manip-TZ-ambogo00-pm-275-line.html#18">line 18 of Date/Manip/TZ/ambogo00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::pakiri00::BEGIN@18 at <a href="Date-Manip-TZ-pakiri00-pm-746-line.html#18">line 18 of Date/Manip/TZ/pakiri00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::assing00::BEGIN@18 at <a href="Date-Manip-TZ-assing00-pm-552-line.html#18">line 18 of Date/Manip/TZ/assing00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::ansyow00::BEGIN@18 at <a href="Date-Manip-TZ-ansyow00-pm-133-line.html#18">line 18 of Date/Manip/TZ/ansyow00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::ambeli00::BEGIN@18 at <a href="Date-Manip-TZ-ambeli00-pm-241-line.html#18">line 18 of Date/Manip/TZ/ambeli00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::ammiqu00::BEGIN@18 at <a href="Date-Manip-TZ-ammiqu00-pm-648-line.html#18">line 18 of Date/Manip/TZ/ammiqu00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::astehr00::BEGIN@18 at <a href="Date-Manip-TZ-astehr00-pm-469-line.html#18">line 18 of Date/Manip/TZ/astehr00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::asaqta00::BEGIN@18 at <a href="Date-Manip-TZ-asaqta00-pm-461-line.html#18">line 18 of Date/Manip/TZ/asaqta00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::andavi00::BEGIN@18 at <a href="Date-Manip-TZ-andavi00-pm-129-line.html#18">line 18 of Date/Manip/TZ/andavi00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::asoral00::BEGIN@18 at <a href="Date-Manip-TZ-asoral00-pm-463-line.html#18">line 18 of Date/Manip/TZ/asoral00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::asriya00::BEGIN@18 at <a href="Date-Manip-TZ-asriya00-pm-485-line.html#18">line 18 of Date/Manip/TZ/asriya00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::eulisb00::BEGIN@18 at <a href="Date-Manip-TZ-eulisb00-pm-63-line.html#18">line 18 of Date/Manip/TZ/eulisb00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::asbaku00::BEGIN@18 at <a href="Date-Manip-TZ-asbaku00-pm-447-line.html#18">line 18 of Date/Manip/TZ/asbaku00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::asdili00::BEGIN@18 at <a href="Date-Manip-TZ-asdili00-pm-526-line.html#18">line 18 of Date/Manip/TZ/asdili00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::f00::BEGIN@18 at <a href="Date-Manip-TZ-f00-pm-317-line.html#18">line 18 of Date/Manip/TZ/f00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::afalgi00::BEGIN@18 at <a href="Date-Manip-TZ-afalgi00-pm-91-line.html#18">line 18 of Date/Manip/TZ/afalgi00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::ampana00::BEGIN@18 at <a href="Date-Manip-TZ-ampana00-pm-263-line.html#18">line 18 of Date/Manip/TZ/ampana00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::ammare00::BEGIN@18 at <a href="Date-Manip-TZ-ammare00-pm-243-line.html#18">line 18 of Date/Manip/TZ/ammare00.pm</a>
# once (2µs+0s) by Date::Manip::Offset::off050::BEGIN@18 at <a href="Date-Manip-Offset-off050-pm-319-line.html#18">line 18 of Date/Manip/Offset/off050.pm</a>
# once (2µs+0s) by Date::Manip::TZ::anvost00::BEGIN@18 at <a href="Date-Manip-TZ-anvost00-pm-135-line.html#18">line 18 of Date/Manip/TZ/anvost00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amel_s00::BEGIN@18 at <a href="Date-Manip-TZ-amel_s00-pm-239-line.html#18">line 18 of Date/Manip/TZ/amel_s00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amswif00::BEGIN@18 at <a href="Date-Manip-TZ-amswif00-pm-311-line.html#18">line 18 of Date/Manip/TZ/amswif00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::eucope00::BEGIN@18 at <a href="Date-Manip-TZ-eucope00-pm-327-line.html#18">line 18 of Date/Manip/TZ/eucope00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::etgmtp05::BEGIN@18 at <a href="Date-Manip-TZ-etgmtp05-pm-487-line.html#18">line 18 of Date/Manip/TZ/etgmtp05.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amgodt00::BEGIN@18 at <a href="Date-Manip-TZ-amgodt00-pm-644-line.html#18">line 18 of Date/Manip/TZ/amgodt00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::h00::BEGIN@18 at <a href="Date-Manip-TZ-h00-pm-173-line.html#18">line 18 of Date/Manip/TZ/h00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::n00::BEGIN@18 at <a href="Date-Manip-TZ-n00-pm-433-line.html#18">line 18 of Date/Manip/TZ/n00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::etgmtm08::BEGIN@18 at <a href="Date-Manip-TZ-etgmtm08-pm-666-line.html#18">line 18 of Date/Manip/TZ/etgmtm08.pm</a>
# once (2µs+0s) by Date::Manip::TZ::euamst00::BEGIN@18 at <a href="Date-Manip-TZ-euamst00-pm-345-line.html#18">line 18 of Date/Manip/TZ/euamst00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::eutall00::BEGIN@18 at <a href="Date-Manip-TZ-eutall00-pm-365-line.html#18">line 18 of Date/Manip/TZ/eutall00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::astbil00::BEGIN@18 at <a href="Date-Manip-TZ-astbil00-pm-443-line.html#18">line 18 of Date/Manip/TZ/astbil00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::euviln00::BEGIN@18 at <a href="Date-Manip-TZ-euviln00-pm-357-line.html#18">line 18 of Date/Manip/TZ/euviln00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::etgmtm11::BEGIN@18 at <a href="Date-Manip-TZ-etgmtm11-pm-423-line.html#18">line 18 of Date/Manip/TZ/etgmtm11.pm</a>
# once (2µs+0s) by Date::Manip::TZ::assred00::BEGIN@18 at <a href="Date-Manip-TZ-assred00-pm-704-line.html#18">line 18 of Date/Manip/TZ/assred00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amthun00::BEGIN@18 at <a href="Date-Manip-TZ-amthun00-pm-265-line.html#18">line 18 of Date/Manip/TZ/amthun00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::inmahe00::BEGIN@18 at <a href="Date-Manip-TZ-inmahe00-pm-451-line.html#18">line 18 of Date/Manip/TZ/inmahe00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::asrang00::BEGIN@18 at <a href="Date-Manip-TZ-asrang00-pm-550-line.html#18">line 18 of Date/Manip/TZ/asrang00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::p00::BEGIN@18 at <a href="Date-Manip-TZ-p00-pm-489-line.html#18">line 18 of Date/Manip/TZ/p00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::ammonc00::BEGIN@18 at <a href="Date-Manip-TZ-ammonc00-pm-301-line.html#18">line 18 of Date/Manip/TZ/ammonc00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amhali00::BEGIN@18 at <a href="Date-Manip-TZ-amhali00-pm-570-line.html#18">line 18 of Date/Manip/TZ/amhali00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::anpalm00::BEGIN@18 at <a href="Date-Manip-TZ-anpalm00-pm-131-line.html#18">line 18 of Date/Manip/TZ/anpalm00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::pamaju00::BEGIN@18 at <a href="Date-Manip-TZ-pamaju00-pm-726-line.html#18">line 18 of Date/Manip/TZ/pamaju00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::afceut00::BEGIN@18 at <a href="Date-Manip-TZ-afceut00-pm-89-line.html#18">line 18 of Date/Manip/TZ/afceut00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amgran00::BEGIN@18 at <a href="Date-Manip-TZ-amgran00-pm-269-line.html#18">line 18 of Date/Manip/TZ/amgran00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amdenv00::BEGIN@18 at <a href="Date-Manip-TZ-amdenv00-pm-305-line.html#18">line 18 of Date/Manip/TZ/amdenv00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::ameiru00::BEGIN@18 at <a href="Date-Manip-TZ-ameiru00-pm-289-line.html#18">line 18 of Date/Manip/TZ/ameiru00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::euberl00::BEGIN@18 at <a href="Date-Manip-TZ-euberl00-pm-323-line.html#18">line 18 of Date/Manip/TZ/euberl00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::etgmtm09::BEGIN@18 at <a href="Date-Manip-TZ-etgmtm09-pm-285-line.html#18">line 18 of Date/Manip/TZ/etgmtm09.pm</a>
# once (2µs+0s) by Date::Manip::TZ::eumosc00::BEGIN@18 at <a href="Date-Manip-TZ-eumosc00-pm-419-line.html#18">line 18 of Date/Manip/TZ/eumosc00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amrio_00::BEGIN@18 at <a href="Date-Manip-TZ-amrio_00-pm-602-line.html#18">line 18 of Date/Manip/TZ/amrio_00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::d00::BEGIN@18 at <a href="Date-Manip-TZ-d00-pm-668-line.html#18">line 18 of Date/Manip/TZ/d00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::anmaws00::BEGIN@18 at <a href="Date-Manip-TZ-anmaws00-pm-139-line.html#18">line 18 of Date/Manip/TZ/anmaws00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::aucurr00::BEGIN@18 at <a href="Date-Manip-TZ-aucurr00-pm-690-line.html#18">line 18 of Date/Manip/TZ/aucurr00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::afndja00::BEGIN@18 at <a href="Date-Manip-TZ-afndja00-pm-361-line.html#18">line 18 of Date/Manip/TZ/afndja00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::utc00::BEGIN@18 at <a href="Date-Manip-TZ-utc00-pm-85-line.html#18">line 18 of Date/Manip/TZ/utc00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::etgmtp11::BEGIN@18 at <a href="Date-Manip-TZ-etgmtp11-pm-528-line.html#18">line 18 of Date/Manip/TZ/etgmtp11.pm</a>
# once (2µs+0s) by Date::Manip::TZ::pakwaj00::BEGIN@18 at <a href="Date-Manip-TZ-pakwaj00-pm-724-line.html#18">line 18 of Date/Manip/TZ/pakwaj00.pm</a>
# once (2µs+0s) by Encode::BEGIN@6 at <a href="Encode-pm-31-line.html#6">line 6 of Encode.pm</a>
# once (2µs+0s) by Date::Manip::TZ::askath00::BEGIN@18 at <a href="Date-Manip-TZ-askath00-pm-678-line.html#18">line 18 of Date/Manip/TZ/askath00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::amrank00::BEGIN@18 at <a href="Date-Manip-TZ-amrank00-pm-93-line.html#18">line 18 of Date/Manip/TZ/amrank00.pm</a>
# once (2µs+0s) by Date::Manip::TZ::z00::BEGIN@18 at <a href="Date-Manip-TZ-z00-pm-87-line.html#18">line 18 of Date/Manip/TZ/z00.pm</a></div></div>{</td></tr>
<tr><td class="h"><a name="994"></a>994</td><td class="c0">369</td><td class="c0"><span title="Avg 97ns">36µs</span></td><td></td><td></td><td class="s"> shift;</td></tr>
<tr><td class="h"><a name="995"></a>995</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="996"></a>996</td><td class="c0">369</td><td class="c0"><span title="Avg 722ns">266µs</span></td><td></td><td></td><td class="s"> my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ;</td></tr>
<tr><td class="h"><a name="997"></a>997</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="998"></a>998</td><td class="c0">369</td><td class="c0"><span title="Avg 517ns">191µs</span></td><td></td><td></td><td class="s"> if (vec($mask, $Offsets{'all'}, 1)) {</td></tr>
<tr><td class="h"><a name="999"></a>999</td><td></td><td></td><td></td><td></td><td class="s"> $mask |= $Bits{'all'} ;</td></tr>
<tr><td class="h"><a name="1000"></a>1000</td><td></td><td></td><td></td><td></td><td class="s"> $mask |= $DeadBits{'all'} if vec($mask, $Offsets{'all'}+1, 1);</td></tr>
<tr><td class="h"><a name="1001"></a>1001</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="1002"></a>1002</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1003"></a>1003</td><td></td><td></td><td></td><td></td><td class="s"> # append 'all' when implied (after a lone "FATAL" or "NONFATAL")</td></tr>
<tr><td class="h"><a name="1004"></a>1004</td><td class="c0">369</td><td class="c0"><span title="Avg 218ns">80µs</span></td><td></td><td></td><td class="s"> push @_, 'all' if @_==1 && ( $_[0] eq 'FATAL' || $_[0] eq 'NONFATAL' );</td></tr>
<tr><td class="h"><a name="1005"></a>1005</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1006"></a>1006</td><td></td><td></td><td></td><td></td><td class="s"> # Empty @_ is equivalent to @_ = 'all' ;</td></tr>
<tr><td class="h"><a name="1007"></a>1007</td><td class="c0">369</td><td class="c0"><span title="Avg 3µs">1.17ms</span></td><td></td><td></td><td class="s"> ${^WARNING_BITS} = @_ ? _bits($mask, @_) : $mask | $Bits{all} ;</td></tr>
<tr><td class="h"><a name="1008"></a>1008</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="1009"></a>1009</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1010"></a>1010</td><td></td><td></td><td></td><td></td><td class="s">sub unimport</td></tr>
<tr><td class="h"><a name="1011"></a>1011</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 63µs within warnings::unimport which was called 7 times, avg 9µs/call:
# once (16µs+0s) by Carp::BEGIN@568 at <a href="Carp-pm-15-line.html#568">line 568 of Carp.pm</a>
# once (9µs+0s) by Date::Manip::Base::BEGIN@1359 at <a href="Date-Manip-Base-pm-29-line.html#1359">line 1359 of Date/Manip/Base.pm</a>
# once (9µs+0s) by Date::Manip::TZ::BEGIN@721 at <a href="Date-Manip-TZ-pm-39-line.html#721">line 721 of Date/Manip/TZ.pm</a>
# once (8µs+0s) by Encode::Alias::BEGIN@4 at <a href="Encode-Alias-pm-33-line.html#4">line 4 of Encode/Alias.pm</a>
# once (8µs+0s) by Carp::BEGIN@6 at <a href="Carp-pm-15-line.html#24">line 24 of Carp.pm</a>
# once (7µs+0s) by Exporter::Heavy::BEGIN@202 at <a href="Exporter-Heavy-pm-11-line.html#202">line 202 of Exporter/Heavy.pm</a>
# once (7µs+0s) by Encode::BEGIN@240 at <a href="Encode-pm-31-line.html#240">line 240 of Encode.pm</a></div></div>{</td></tr>
<tr><td class="h"><a name="1012"></a>1012</td><td class="c0">7</td><td class="c3"><span title="Avg 143ns">1µs</span></td><td></td><td></td><td class="s"> shift;</td></tr>
<tr><td class="h"><a name="1013"></a>1013</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1014"></a>1014</td><td class="c0">7</td><td class="c3"><span title="Avg 100ns">700ns</span></td><td></td><td></td><td class="s"> my $catmask ;</td></tr>
<tr><td class="h"><a name="1015"></a>1015</td><td class="c0">7</td><td class="c1"><span title="Avg 1µs">9µs</span></td><td></td><td></td><td class="s"> my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ;</td></tr>
<tr><td class="h"><a name="1016"></a>1016</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1017"></a>1017</td><td class="c0">7</td><td class="c0"><span title="Avg 2µs">16µs</span></td><td></td><td></td><td class="s"> if (vec($mask, $Offsets{'all'}, 1)) {</td></tr>
<tr><td class="h"><a name="1018"></a>1018</td><td class="c0">5</td><td class="c3"><span title="Avg 360ns">2µs</span></td><td></td><td></td><td class="s"> $mask |= $Bits{'all'} ;</td></tr>
<tr><td class="h"><a name="1019"></a>1019</td><td class="c0">5</td><td class="c3"><span title="Avg 540ns">3µs</span></td><td></td><td></td><td class="s"> $mask |= $DeadBits{'all'} if vec($mask, $Offsets{'all'}+1, 1);</td></tr>
<tr><td class="h"><a name="1020"></a>1020</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="1021"></a>1021</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1022"></a>1022</td><td></td><td></td><td></td><td></td><td class="s"> # append 'all' when implied (empty import list or after a lone "FATAL")</td></tr>
<tr><td class="h"><a name="1023"></a>1023</td><td class="c0">7</td><td class="c2"><span title="Avg 843ns">6µs</span></td><td></td><td></td><td class="s"> push @_, 'all' if !@_ || @_==1 && $_[0] eq 'FATAL';</td></tr>
<tr><td class="h"><a name="1024"></a>1024</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1025"></a>1025</td><td class="c0">7</td><td class="c3"><span title="Avg 571ns">4µs</span></td><td></td><td></td><td class="s"> foreach my $word ( @_ ) {</td></tr>
<tr><td class="h"><a name="1026"></a>1026</td><td class="c0">7</td><td class="c0"><span title="Avg 2µs">14µs</span></td><td></td><td></td><td class="s"> if ($word eq 'FATAL') {</td></tr>
<tr><td class="h"><a name="1027"></a>1027</td><td></td><td></td><td></td><td></td><td class="s"> next;</td></tr>
<tr><td class="h"><a name="1028"></a>1028</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="1029"></a>1029</td><td></td><td></td><td></td><td></td><td class="s"> elsif ($catmask = $Bits{$word}) {</td></tr>
<tr><td class="h"><a name="1030"></a>1030</td><td></td><td></td><td></td><td></td><td class="s"> $mask &= ~($catmask | $DeadBits{$word} | $All);</td></tr>
<tr><td class="h"><a name="1031"></a>1031</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="1032"></a>1032</td><td></td><td></td><td></td><td></td><td class="s"> else</td></tr>
<tr><td class="h"><a name="1033"></a>1033</td><td></td><td></td><td></td><td></td><td class="s"> { Croaker("Unknown warnings category '$word'")}</td></tr>
<tr><td class="h"><a name="1034"></a>1034</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="1035"></a>1035</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1036"></a>1036</td><td class="c0">7</td><td class="c0"><span title="Avg 3µs">22µs</span></td><td></td><td></td><td class="s"> ${^WARNING_BITS} = $mask ;</td></tr>
<tr><td class="h"><a name="1037"></a>1037</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="1038"></a>1038</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1039"></a>1039</td><td class="c3">2</td><td class="c3"><span title="Avg 2µs">3µs</span></td><td></td><td></td><td class="s">my %builtin_type; @builtin_type{qw(SCALAR ARRAY HASH CODE REF GLOB LVALUE Regexp)} = ();</td></tr>
<tr><td class="h"><a name="1040"></a>1040</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1041"></a>1041</td><td></td><td></td><td></td><td></td><td class="s">sub MESSAGE () { 4 };</td></tr>
<tr><td class="h"><a name="1042"></a>1042</td><td></td><td></td><td></td><td></td><td class="s">sub FATAL () { 2 };</td></tr>
<tr><td class="h"><a name="1043"></a>1043</td><td></td><td></td><td></td><td></td><td class="s">sub NORMAL () { 1 };</td></tr>
<tr><td class="h"><a name="1044"></a>1044</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1045"></a>1045</td><td></td><td></td><td></td><td></td><td class="s">sub __chk</td></tr>
<tr><td class="h"><a name="1046"></a>1046</td><td></td><td></td><td></td><td></td><td class="s">{</td></tr>
<tr><td class="h"><a name="1047"></a>1047</td><td></td><td></td><td></td><td></td><td class="s"> my $category ;</td></tr>
<tr><td class="h"><a name="1048"></a>1048</td><td></td><td></td><td></td><td></td><td class="s"> my $offset ;</td></tr>
<tr><td class="h"><a name="1049"></a>1049</td><td></td><td></td><td></td><td></td><td class="s"> my $isobj = 0 ;</td></tr>
<tr><td class="h"><a name="1050"></a>1050</td><td></td><td></td><td></td><td></td><td class="s"> my $wanted = shift;</td></tr>
<tr><td class="h"><a name="1051"></a>1051</td><td></td><td></td><td></td><td></td><td class="s"> my $has_message = $wanted & MESSAGE;</td></tr>
<tr><td class="h"><a name="1052"></a>1052</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1053"></a>1053</td><td></td><td></td><td></td><td></td><td class="s"> unless (@_ == 1 || @_ == ($has_message ? 2 : 0)) {</td></tr>
<tr><td class="h"><a name="1054"></a>1054</td><td></td><td></td><td></td><td></td><td class="s"> my $sub = (caller 1)[3];</td></tr>
<tr><td class="h"><a name="1055"></a>1055</td><td></td><td></td><td></td><td></td><td class="s"> my $syntax = $has_message ? "[category,] 'message'" : '[category]';</td></tr>
<tr><td class="h"><a name="1056"></a>1056</td><td></td><td></td><td></td><td></td><td class="s"> Croaker("Usage: $sub($syntax)");</td></tr>
<tr><td class="h"><a name="1057"></a>1057</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="1058"></a>1058</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1059"></a>1059</td><td></td><td></td><td></td><td></td><td class="s"> my $message = pop if $has_message;</td></tr>
<tr><td class="h"><a name="1060"></a>1060</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1061"></a>1061</td><td></td><td></td><td></td><td></td><td class="s"> if (@_) {</td></tr>
<tr><td class="h"><a name="1062"></a>1062</td><td></td><td></td><td></td><td></td><td class="s"> # check the category supplied.</td></tr>
<tr><td class="h"><a name="1063"></a>1063</td><td></td><td></td><td></td><td></td><td class="s"> $category = shift ;</td></tr>
<tr><td class="h"><a name="1064"></a>1064</td><td></td><td></td><td></td><td></td><td class="s"> if (my $type = ref $category) {</td></tr>
<tr><td class="h"><a name="1065"></a>1065</td><td></td><td></td><td></td><td></td><td class="s"> Croaker("not an object")</td></tr>
<tr><td class="h"><a name="1066"></a>1066</td><td></td><td></td><td></td><td></td><td class="s"> if exists $builtin_type{$type};</td></tr>
<tr><td class="h"><a name="1067"></a>1067</td><td></td><td></td><td></td><td></td><td class="s"> $category = $type;</td></tr>
<tr><td class="h"><a name="1068"></a>1068</td><td></td><td></td><td></td><td></td><td class="s"> $isobj = 1 ;</td></tr>
<tr><td class="h"><a name="1069"></a>1069</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="1070"></a>1070</td><td></td><td></td><td></td><td></td><td class="s"> $offset = $Offsets{$category};</td></tr>
<tr><td class="h"><a name="1071"></a>1071</td><td></td><td></td><td></td><td></td><td class="s"> Croaker("Unknown warnings category '$category'")</td></tr>
<tr><td class="h"><a name="1072"></a>1072</td><td></td><td></td><td></td><td></td><td class="s"> unless defined $offset;</td></tr>
<tr><td class="h"><a name="1073"></a>1073</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="1074"></a>1074</td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr>
<tr><td class="h"><a name="1075"></a>1075</td><td></td><td></td><td></td><td></td><td class="s"> $category = (caller(1))[0] ;</td></tr>
<tr><td class="h"><a name="1076"></a>1076</td><td></td><td></td><td></td><td></td><td class="s"> $offset = $Offsets{$category};</td></tr>
<tr><td class="h"><a name="1077"></a>1077</td><td></td><td></td><td></td><td></td><td class="s"> Croaker("package '$category' not registered for warnings")</td></tr>
<tr><td class="h"><a name="1078"></a>1078</td><td></td><td></td><td></td><td></td><td class="s"> unless defined $offset ;</td></tr>
<tr><td class="h"><a name="1079"></a>1079</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="1080"></a>1080</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1081"></a>1081</td><td></td><td></td><td></td><td></td><td class="s"> my $i;</td></tr>
<tr><td class="h"><a name="1082"></a>1082</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1083"></a>1083</td><td></td><td></td><td></td><td></td><td class="s"> if ($isobj) {</td></tr>
<tr><td class="h"><a name="1084"></a>1084</td><td></td><td></td><td></td><td></td><td class="s"> my $pkg;</td></tr>
<tr><td class="h"><a name="1085"></a>1085</td><td></td><td></td><td></td><td></td><td class="s"> $i = 2;</td></tr>
<tr><td class="h"><a name="1086"></a>1086</td><td></td><td></td><td></td><td></td><td class="s"> while (do { { package DB; $pkg = (caller($i++))[0] } } ) {</td></tr>
<tr><td class="h"><a name="1087"></a>1087</td><td></td><td></td><td></td><td></td><td class="s"> last unless @DB::args && $DB::args[0] =~ /^$category=/ ;</td></tr>
<tr><td class="h"><a name="1088"></a>1088</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="1089"></a>1089</td><td></td><td></td><td></td><td></td><td class="s"> $i -= 2 ;</td></tr>
<tr><td class="h"><a name="1090"></a>1090</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="1091"></a>1091</td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr>
<tr><td class="h"><a name="1092"></a>1092</td><td></td><td></td><td></td><td></td><td class="s"> $i = _error_loc(); # see where Carp will allocate the error</td></tr>
<tr><td class="h"><a name="1093"></a>1093</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="1094"></a>1094</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1095"></a>1095</td><td></td><td></td><td></td><td></td><td class="s"> # Default to 0 if caller returns nothing. Default to $DEFAULT if it</td></tr>
<tr><td class="h"><a name="1096"></a>1096</td><td></td><td></td><td></td><td></td><td class="s"> # explicitly returns undef.</td></tr>
<tr><td class="h"><a name="1097"></a>1097</td><td></td><td></td><td></td><td></td><td class="s"> my(@callers_bitmask) = (caller($i))[9] ;</td></tr>
<tr><td class="h"><a name="1098"></a>1098</td><td></td><td></td><td></td><td></td><td class="s"> my $callers_bitmask =</td></tr>
<tr><td class="h"><a name="1099"></a>1099</td><td></td><td></td><td></td><td></td><td class="s"> @callers_bitmask ? $callers_bitmask[0] // $DEFAULT : 0 ;</td></tr>
<tr><td class="h"><a name="1100"></a>1100</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1101"></a>1101</td><td></td><td></td><td></td><td></td><td class="s"> my @results;</td></tr>
<tr><td class="h"><a name="1102"></a>1102</td><td></td><td></td><td></td><td></td><td class="s"> foreach my $type (FATAL, NORMAL) {</td></tr>
<tr><td class="h"><a name="1103"></a>1103</td><td></td><td></td><td></td><td></td><td class="s"> next unless $wanted & $type;</td></tr>
<tr><td class="h"><a name="1104"></a>1104</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1105"></a>1105</td><td></td><td></td><td></td><td></td><td class="s"> push @results, (vec($callers_bitmask, $offset + $type - 1, 1) ||</td></tr>
<tr><td class="h"><a name="1106"></a>1106</td><td></td><td></td><td></td><td></td><td class="s"> vec($callers_bitmask, $Offsets{'all'} + $type - 1, 1));</td></tr>
<tr><td class="h"><a name="1107"></a>1107</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="1108"></a>1108</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1109"></a>1109</td><td></td><td></td><td></td><td></td><td class="s"> # &enabled and &fatal_enabled</td></tr>
<tr><td class="h"><a name="1110"></a>1110</td><td></td><td></td><td></td><td></td><td class="s"> return $results[0] unless $has_message;</td></tr>
<tr><td class="h"><a name="1111"></a>1111</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1112"></a>1112</td><td></td><td></td><td></td><td></td><td class="s"> # &warnif, and the category is neither enabled as warning nor as fatal</td></tr>
<tr><td class="h"><a name="1113"></a>1113</td><td></td><td></td><td></td><td></td><td class="s"> return if $wanted == (NORMAL | FATAL | MESSAGE)</td></tr>
<tr><td class="h"><a name="1114"></a>1114</td><td></td><td></td><td></td><td></td><td class="s"> && !($results[0] || $results[1]);</td></tr>
<tr><td class="h"><a name="1115"></a>1115</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1116"></a>1116</td><td></td><td></td><td></td><td></td><td class="s"> require Carp;</td></tr>
<tr><td class="h"><a name="1117"></a>1117</td><td></td><td></td><td></td><td></td><td class="s"> Carp::croak($message) if $results[0];</td></tr>
<tr><td class="h"><a name="1118"></a>1118</td><td></td><td></td><td></td><td></td><td class="s"> # will always get here for &warn. will only get here for &warnif if the</td></tr>
<tr><td class="h"><a name="1119"></a>1119</td><td></td><td></td><td></td><td></td><td class="s"> # category is enabled</td></tr>
<tr><td class="h"><a name="1120"></a>1120</td><td></td><td></td><td></td><td></td><td class="s"> Carp::carp($message);</td></tr>
<tr><td class="h"><a name="1121"></a>1121</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="1122"></a>1122</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1123"></a>1123</td><td></td><td></td><td></td><td></td><td class="s">sub _mkMask</td></tr>
<tr><td class="h"><a name="1124"></a>1124</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 9µs within warnings::_mkMask which was called 4 times, avg 2µs/call:
# 2 times (7µs+0s) by warnings::register_categories at <a href="warnings-pm-2-line.html#1138">line 1138</a>, avg 3µs/call
# 2 times (2µs+0s) by warnings::register_categories at <a href="warnings-pm-2-line.html#1144">line 1144</a>, avg 1µs/call</div></div>{</td></tr>
<tr><td class="h"><a name="1125"></a>1125</td><td class="c0">4</td><td class="c3"><span title="Avg 250ns">1µs</span></td><td></td><td></td><td class="s"> my ($bit) = @_;</td></tr>
<tr><td class="h"><a name="1126"></a>1126</td><td class="c0">4</td><td class="c3"><span title="Avg 225ns">900ns</span></td><td></td><td></td><td class="s"> my $mask = "";</td></tr>
<tr><td class="h"><a name="1127"></a>1127</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1128"></a>1128</td><td class="c0">4</td><td class="c3"><span title="Avg 950ns">4µs</span></td><td></td><td></td><td class="s"> vec($mask, $bit, 1) = 1;</td></tr>
<tr><td class="h"><a name="1129"></a>1129</td><td class="c0">4</td><td class="c1"><span title="Avg 2µs">8µs</span></td><td></td><td></td><td class="s"> return $mask;</td></tr>
<tr><td class="h"><a name="1130"></a>1130</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="1131"></a>1131</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1132"></a>1132</td><td></td><td></td><td></td><td></td><td class="s">sub register_categories</td></tr>
<tr><td class="h"><a name="1133"></a>1133</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 91µs (82+9) within warnings::register_categories which was called 2 times, avg 46µs/call:
# 2 times (82µs+9µs) by warnings::register::import at <a href="warnings-register-pm-9-line.html#42">line 42 of warnings/register.pm</a>, avg 46µs/call</div></div>{</td></tr>
<tr><td class="h"><a name="1134"></a>1134</td><td class="c3">2</td><td class="c3"><span title="Avg 400ns">800ns</span></td><td></td><td></td><td class="s"> my @names = @_;</td></tr>
<tr><td class="h"><a name="1135"></a>1135</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1136"></a>1136</td><td class="c3">2</td><td class="c3"><span title="Avg 2µs">5µs</span></td><td></td><td></td><td class="s"> for my $name (@names) {</td></tr>
<tr><td class="h"><a name="1137"></a>1137</td><td class="c3">2</td><td class="c3"><span title="Avg 1µs">3µs</span></td><td></td><td></td><td class="s"> if (! defined $Bits{$name}) {</td></tr>
<tr><td class="h"><a name="1138"></a>1138</td><td class="c3">2</td><td class="c3"><span title="Avg 2µs">4µs</span></td><td class="c3">2</td><td class="c3">7µs</td><td class="s"> $Bits{$name} = _mkMask($LAST_BIT);<div class="calls"><div class="calls_out"> # spent 7µs making 2 calls to <a href="warnings-pm-2-line.html#1124">warnings::_mkMask</a>, avg 3µs/call</div></div></td></tr>
<tr><td class="h"><a name="1139"></a>1139</td><td class="c3">2</td><td class="c3"><span title="Avg 900ns">2µs</span></td><td></td><td></td><td class="s"> vec($Bits{'all'}, $LAST_BIT, 1) = 1;</td></tr>
<tr><td class="h"><a name="1140"></a>1140</td><td class="c3">2</td><td class="c3"><span title="Avg 600ns">1µs</span></td><td></td><td></td><td class="s"> $Offsets{$name} = $LAST_BIT ++;</td></tr>
<tr><td class="h"><a name="1141"></a>1141</td><td class="c3">2</td><td class="c0"><span title="Avg 6µs">12µs</span></td><td></td><td></td><td class="s"> foreach my $k (keys %Bits) {</td></tr>
<tr><td class="h"><a name="1142"></a>1142</td><td class="c0">123</td><td class="c0"><span title="Avg 398ns">49µs</span></td><td></td><td></td><td class="s"> vec($Bits{$k}, $LAST_BIT, 1) = 0;</td></tr>
<tr><td class="h"><a name="1143"></a>1143</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="1144"></a>1144</td><td class="c3">2</td><td class="c3"><span title="Avg 800ns">2µs</span></td><td class="c3">2</td><td class="c3">2µs</td><td class="s"> $DeadBits{$name} = _mkMask($LAST_BIT);<div class="calls"><div class="calls_out"> # spent 2µs making 2 calls to <a href="warnings-pm-2-line.html#1124">warnings::_mkMask</a>, avg 1µs/call</div></div></td></tr>
<tr><td class="h"><a name="1145"></a>1145</td><td class="c3">2</td><td class="c3"><span title="Avg 800ns">2µs</span></td><td></td><td></td><td class="s"> vec($DeadBits{'all'}, $LAST_BIT++, 1) = 1;</td></tr>
<tr><td class="h"><a name="1146"></a>1146</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="1147"></a>1147</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="1148"></a>1148</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="1149"></a>1149</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1150"></a>1150</td><td></td><td></td><td></td><td></td><td class="s">sub _error_loc {</td></tr>
<tr><td class="h"><a name="1151"></a>1151</td><td></td><td></td><td></td><td></td><td class="s"> require Carp;</td></tr>
<tr><td class="h"><a name="1152"></a>1152</td><td></td><td></td><td></td><td></td><td class="s"> goto &Carp::short_error_loc; # don't introduce another stack frame</td></tr>
<tr><td class="h"><a name="1153"></a>1153</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="1154"></a>1154</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1155"></a>1155</td><td></td><td></td><td></td><td></td><td class="s">sub enabled</td></tr>
<tr><td class="h"><a name="1156"></a>1156</td><td></td><td></td><td></td><td></td><td class="s">{</td></tr>
<tr><td class="h"><a name="1157"></a>1157</td><td></td><td></td><td></td><td></td><td class="s"> return __chk(NORMAL, @_);</td></tr>
<tr><td class="h"><a name="1158"></a>1158</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="1159"></a>1159</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1160"></a>1160</td><td></td><td></td><td></td><td></td><td class="s">sub fatal_enabled</td></tr>
<tr><td class="h"><a name="1161"></a>1161</td><td></td><td></td><td></td><td></td><td class="s">{</td></tr>
<tr><td class="h"><a name="1162"></a>1162</td><td></td><td></td><td></td><td></td><td class="s"> return __chk(FATAL, @_);</td></tr>
<tr><td class="h"><a name="1163"></a>1163</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="1164"></a>1164</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1165"></a>1165</td><td></td><td></td><td></td><td></td><td class="s">sub warn</td></tr>
<tr><td class="h"><a name="1166"></a>1166</td><td></td><td></td><td></td><td></td><td class="s">{</td></tr>
<tr><td class="h"><a name="1167"></a>1167</td><td></td><td></td><td></td><td></td><td class="s"> return __chk(FATAL | MESSAGE, @_);</td></tr>
<tr><td class="h"><a name="1168"></a>1168</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="1169"></a>1169</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1170"></a>1170</td><td></td><td></td><td></td><td></td><td class="s">sub warnif</td></tr>
<tr><td class="h"><a name="1171"></a>1171</td><td></td><td></td><td></td><td></td><td class="s">{</td></tr>
<tr><td class="h"><a name="1172"></a>1172</td><td></td><td></td><td></td><td></td><td class="s"> return __chk(NORMAL | FATAL | MESSAGE, @_);</td></tr>
<tr><td class="h"><a name="1173"></a>1173</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="1174"></a>1174</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1175"></a>1175</td><td></td><td></td><td></td><td></td><td class="s"># These are not part of any public interface, so we can delete them to save</td></tr>
<tr><td class="h"><a name="1176"></a>1176</td><td></td><td></td><td></td><td></td><td class="s"># space.</td></tr>
<tr><td class="h"><a name="1177"></a>1177</td><td class="c3">1</td><td class="c3"><span title="Avg 3µs">3µs</span></td><td></td><td></td><td class="s">delete @warnings::{qw(NORMAL FATAL MESSAGE)};</td></tr>
<tr><td class="h"><a name="1178"></a>1178</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1179"></a>1179</td><td class="c3">1</td><td class="c0"><span title="Avg 18µs">18µs</span></td><td></td><td></td><td class="s">1;</td></tr>
<tr><td class="h"><a name="1180"></a>1180</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="1181"></a>1181</td><td></td><td></td><td></td><td></td><td class="s"># ex: set ro:</td></tr>
<tr><td class="s"><a name=""></a> </td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="warnings__CORE_match"></a></td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 3µs within warnings::CORE:match which was called:
# once (3µs+0s) by main::BEGIN@7 at <a href="warnings-pm-2-line.html#12">line 12</a></div></div>sub warnings::CORE:match; # opcode<br /> </td></tr>
<tr><td class="h"><a name="warnings__CORE_regcomp"></a></td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 14µs within warnings::CORE:regcomp which was called:
# once (14µs+0s) by main::BEGIN@7 at <a href="warnings-pm-2-line.html#12">line 12</a></div></div>sub warnings::CORE:regcomp; # opcode<br /> </td></tr>
</tbody></table></div>
<script type="text/javascript"> $(document).ready(function() {
$("#subs_table").tablesorter({
sortList: [[3,1]],
headers: {
3: { sorter: 'fmt_time' },
4: { sorter: 'fmt_time' }
}
});
} ); </script>
<div class="footer">Report produced by the
<a href="http://search.cpan.org/dist/Devel-NYTProf/">NYTProf 5.06</a>
Perl profiler, developed by
<a href="http://www.linkedin.com/in/timbunce">Tim Bunce</a> and
<a href="http://code.nytimes.com">Adam Kaplan</a>.
</div>
<br /><br /><br /><br /><br /><br /><br /><br /><br /><br />
</body></html>