stemmaweb/nytprof-runs/relation-uuid-relationships/Time-Local-pm-860-sub.html

   1     <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
   2     <html xmlns="http://www.w3.org/1999/xhtml">
   3 <!--
   4 This file was generated by Devel::NYTProf version 4.06
   5 -->
   6 <head>
   7     <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
   8     <meta http-equiv="Content-Language" content="en-us" />
   9     <title>Profile of Time/Local.pm</title>
  10 <link rel="stylesheet" type="text/css" href="style.css" />
  11     <script type="text/javascript" src="js/jquery-min.js"></script>
  12
  13     <script type="text/javascript" src="js/jquery-tablesorter-min.js"></script>
  14     <link rel="stylesheet" type="text/css" href="js/style-tablesorter.css" />
  15     <script type="text/javascript">
  16     // when a column is first clicked on to sort it, use descending order
  17     // XXX doesn't seem to work (and not just because the tablesorter formatSortingOrder() is broken)
  18     $.tablesorter.defaults.sortInitialOrder = "desc";
  19     // add parser through the tablesorter addParser method
  20     $.tablesorter.addParser({
  21         id: 'fmt_time',   // name of this parser
  22         is: function(s) {
  23             return false; // return false so this parser is not auto detected
  24         },
  25         format: function(orig) { // format data for normalization
  26             // console.log(orig);
  27             val = orig.replace(/ns/,'');
  28             if (val != orig) { return val / (1000*1000*1000); }
  29             val = orig.replace(/µs/,''); /* XXX use &micro; ? */
  30             if (val != orig) { return val / (1000*1000); }
  31             var val = orig.replace(/ms/,'');
  32             if (val != orig) { return val / (1000); }
  33             var val = orig.replace(/s/,'');
  34             if (val != orig) { return val; }
  35             if (orig == '0') { return orig; }
  36             console.log('no match for fmt_time of '.concat(orig));
  37             return orig;
  38         },
  39         type: 'numeric' // set type, either numeric or text
  40     });
  41     </script>
  42 </head>
  43
  44 <body >
  45 <div class="header" style="position: relative; overflow-x: hidden; overflow-y: hidden; z-index: 0; ">
  46 <div class="header_back">
  47             <a href="index.html">&larr; Index</a>
  48         </div>
  49 <div class="headerForeground" style="float: left">
  50     <span class="siteTitle">NYTProf Performance Profile</span>
  51     <span class="siteSubtitle">&emsp;&emsp;<span>&laquo;&emsp;<span class="mode_btn"><a href="Time-Local-pm-860-block.html">block view</a></span>&emsp;&bull;&emsp;<span class="mode_btn"><a href="Time-Local-pm-860-line.html">line view</a></span>&emsp;&bull;&emsp;<span class="mode_btn mode_btn_selected">sub view</span>&emsp;&raquo;</span><br />
  52             For script/nytprof.pl
  53         </span>
  54 </div>
  55 <div class="headerForeground" style="float: right; text-align: right">
  56     <span class="siteTitle">&nbsp;</span>
  57     <span class="siteSubtitle">Run on Thu May 31 16:49:15 2012<br />Reported on Thu May 31 16:50:48 2012</span>
  58 </div>
  59 <div style="position: absolute; left: 0px; top: 0%; width: 100%; height: 101%; z-index: -1; background-color: rgb(17, 136, 255); "></div>
  60 <div style="position: absolute; left: 0px; top: 2%; width: 100%; height: 99%; z-index: -1; background-color: rgb(16, 134, 253); "></div>
  61 <div style="position: absolute; left: 0px; top: 4%; width: 100%; height: 97%; z-index: -1; background-color: rgb(16, 133, 252); "></div>
  62 <div style="position: absolute; left: 0px; top: 6%; width: 100%; height: 95%; z-index: -1; background-color: rgb(15, 131, 250); "></div>
  63 <div style="position: absolute; left: 0px; top: 8%; width: 100%; height: 93%; z-index: -1; background-color: rgb(15, 130, 249); "></div>
  64 <div style="position: absolute; left: 0px; top: 10%; width: 100%; height: 91%; z-index: -1; background-color: rgb(15, 129, 248); "></div>
  65 <div style="position: absolute; left: 0px; top: 12%; width: 100%; height: 89%; z-index: -1; background-color: rgb(14, 127, 246); "></div>
  66 <div style="position: absolute; left: 0px; top: 14%; width: 100%; height: 87%; z-index: -1; background-color: rgb(14, 126, 245); "></div>
  67 <div style="position: absolute; left: 0px; top: 16%; width: 100%; height: 85%; z-index: -1; background-color: rgb(14, 125, 244); "></div>
  68 <div style="position: absolute; left: 0px; top: 18%; width: 100%; height: 83%; z-index: -1; background-color: rgb(13, 123, 242); "></div>
  69 <div style="position: absolute; left: 0px; top: 20%; width: 100%; height: 81%; z-index: -1; background-color: rgb(13, 122, 241); "></div>
  70 <div style="position: absolute; left: 0px; top: 22%; width: 100%; height: 79%; z-index: -1; background-color: rgb(13, 121, 240); "></div>
  71 <div style="position: absolute; left: 0px; top: 24%; width: 100%; height: 77%; z-index: -1; background-color: rgb(12, 119, 238); "></div>
  72 <div style="position: absolute; left: 0px; top: 26%; width: 100%; height: 75%; z-index: -1; background-color: rgb(12, 118, 237); "></div>
  73 <div style="position: absolute; left: 0px; top: 28%; width: 100%; height: 73%; z-index: -1; background-color: rgb(12, 116, 235); "></div>
  74 <div style="position: absolute; left: 0px; top: 30%; width: 100%; height: 71%; z-index: -1; background-color: rgb(11, 115, 234); "></div>
  75 <div style="position: absolute; left: 0px; top: 32%; width: 100%; height: 69%; z-index: -1; background-color: rgb(11, 114, 233); "></div>
  76 <div style="position: absolute; left: 0px; top: 34%; width: 100%; height: 67%; z-index: -1; background-color: rgb(11, 112, 231); "></div>
  77 <div style="position: absolute; left: 0px; top: 36%; width: 100%; height: 65%; z-index: -1; background-color: rgb(10, 111, 230); "></div>
  78 <div style="position: absolute; left: 0px; top: 38%; width: 100%; height: 63%; z-index: -1; background-color: rgb(10, 110, 229); "></div>
  79 <div style="position: absolute; left: 0px; top: 40%; width: 100%; height: 61%; z-index: -1; background-color: rgb(10, 108, 227); "></div>
  80 <div style="position: absolute; left: 0px; top: 42%; width: 100%; height: 59%; z-index: -1; background-color: rgb(9, 107, 226); "></div>
  81 <div style="position: absolute; left: 0px; top: 44%; width: 100%; height: 57%; z-index: -1; background-color: rgb(9, 106, 225); "></div>
  82 <div style="position: absolute; left: 0px; top: 46%; width: 100%; height: 55%; z-index: -1; background-color: rgb(9, 104, 223); "></div>
  83 <div style="position: absolute; left: 0px; top: 48%; width: 100%; height: 53%; z-index: -1; background-color: rgb(8, 103, 222); "></div>
  84 <div style="position: absolute; left: 0px; top: 50%; width: 100%; height: 51%; z-index: -1; background-color: rgb(8, 102, 221); "></div>
  85 <div style="position: absolute; left: 0px; top: 52%; width: 100%; height: 49%; z-index: -1; background-color: rgb(8, 100, 219); "></div>
  86 <div style="position: absolute; left: 0px; top: 54%; width: 100%; height: 47%; z-index: -1; background-color: rgb(7, 99, 218); "></div>
  87 <div style="position: absolute; left: 0px; top: 56%; width: 100%; height: 45%; z-index: -1; background-color: rgb(7, 97, 216); "></div>
  88 <div style="position: absolute; left: 0px; top: 58%; width: 100%; height: 43%; z-index: -1; background-color: rgb(7, 96, 215); "></div>
  89 <div style="position: absolute; left: 0px; top: 60%; width: 100%; height: 41%; z-index: -1; background-color: rgb(6, 95, 214); "></div>
  90 <div style="position: absolute; left: 0px; top: 62%; width: 100%; height: 39%; z-index: -1; background-color: rgb(6, 93, 212); "></div>
  91 <div style="position: absolute; left: 0px; top: 64%; width: 100%; height: 37%; z-index: -1; background-color: rgb(6, 92, 211); "></div>
  92 <div style="position: absolute; left: 0px; top: 66%; width: 100%; height: 35%; z-index: -1; background-color: rgb(5, 91, 210); "></div>
  93 <div style="position: absolute; left: 0px; top: 68%; width: 100%; height: 33%; z-index: -1; background-color: rgb(5, 89, 208); "></div>
  94 <div style="position: absolute; left: 0px; top: 70%; width: 100%; height: 31%; z-index: -1; background-color: rgb(5, 88, 207); "></div>
  95 <div style="position: absolute; left: 0px; top: 72%; width: 100%; height: 29%; z-index: -1; background-color: rgb(4, 87, 206); "></div>
  96 <div style="position: absolute; left: 0px; top: 74%; width: 100%; height: 27%; z-index: -1; background-color: rgb(4, 85, 204); "></div>
  97 <div style="position: absolute; left: 0px; top: 76%; width: 100%; height: 25%; z-index: -1; background-color: rgb(4, 84, 203); "></div>
  98 <div style="position: absolute; left: 0px; top: 78%; width: 100%; height: 23%; z-index: -1; background-color: rgb(3, 82, 201); "></div>
  99 <div style="position: absolute; left: 0px; top: 80%; width: 100%; height: 21%; z-index: -1; background-color: rgb(3, 81, 200); "></div>
 100 <div style="position: absolute; left: 0px; top: 82%; width: 100%; height: 19%; z-index: -1; background-color: rgb(3, 80, 199); "></div>
 101 <div style="position: absolute; left: 0px; top: 84%; width: 100%; height: 17%; z-index: -1; background-color: rgb(2, 78, 197); "></div>
 102 <div style="position: absolute; left: 0px; top: 86%; width: 100%; height: 15%; z-index: -1; background-color: rgb(2, 77, 196); "></div>
 103 <div style="position: absolute; left: 0px; top: 88%; width: 100%; height: 13%; z-index: -1; background-color: rgb(2, 76, 195); "></div>
 104 <div style="position: absolute; left: 0px; top: 90%; width: 100%; height: 11%; z-index: -1; background-color: rgb(1, 74, 193); "></div>
 105 <div style="position: absolute; left: 0px; top: 92%; width: 100%; height: 9%; z-index: -1; background-color: rgb(1, 73, 192); "></div>
 106 <div style="position: absolute; left: 0px; top: 94%; width: 100%; height: 7%; z-index: -1; background-color: rgb(1, 72, 191); "></div>
 107 <div style="position: absolute; left: 0px; top: 96%; width: 100%; height: 5%; z-index: -1; background-color: rgb(0, 70, 189); "></div>
 108 <div style="position: absolute; left: 0px; top: 98%; width: 100%; height: 3%; z-index: -1; background-color: rgb(0, 69, 188); "></div>
 109 <div style="position: absolute; left: 0px; top: 100%; width: 100%; height: 1%; z-index: -1; background-color: rgb(0, 68, 187); "></div>
 110 </div>
 111
 112 <div class="body_content"><br />
 113 <table class="file_summary"><tr><td class="h">Filename</td><td align="left"><a href="file:///opt/local/lib/perl5/5.14.2/Time/Local.pm">/opt/local/lib/perl5/5.14.2/Time/Local.pm</a></td></tr>
 114 <tr><td class="h">Statements</td><td align="left">Executed 39 statements in 1.42ms</td></tr></table>
 115
 116         <table id="subs_table" border="1" cellpadding="0" class="tablesorter">
 117         <caption>Subroutines</caption>
 118         <thead>
 119         <tr>
 120         <th>Calls</th>
 121         <th><span title="Number of Places sub is called from">P</span></th>
 122         <th><span title="Number of Files sub is called from">F</span></th>
 123         <th>Exclusive<br />Time</th>
 124         <th>Inclusive<br />Time</th>
 125         <th>Subroutine</th>
 126         </tr>
 127         </thead>
 128     <tbody>
 129 <tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c0"><span title="0.0%">25&micro;s</span></td><td class="c0"><span title="0.0%">90&micro;s</span></td><td class="sub_name"><span style="display: none;">Time::Local::::BEGIN@4</span>Time::Local::<a href="Time-Local-pm-860-sub.html#4">BEGIN@4</a></span></td></tr>
 130 <tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c1"><span title="0.0%">22&micro;s</span></td><td class="c3"><span title="0.0%">25&micro;s</span></td><td class="sub_name"><span style="display: none;">Time::Local::::_daygm</span>Time::Local::<a href="Time-Local-pm-860-sub.html#70">_daygm</a></span></td></tr>
 131 <tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c2"><span title="0.0%">16&micro;s</span></td><td class="c3"><span title="0.0%">34&micro;s</span></td><td class="sub_name"><span style="display: none;">Time::Local::::BEGIN@5</span>Time::Local::<a href="Time-Local-pm-860-sub.html#5">BEGIN@5</a></span></td></tr>
 132 <tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">16&micro;s</span></td><td class="c3"><span title="0.0%">22&micro;s</span></td><td class="sub_name"><span style="display: none;">Time::Local::::BEGIN@6</span>Time::Local::<a href="Time-Local-pm-860-sub.html#6">BEGIN@6</a></span></td></tr>
 133 <tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">13&micro;s</span></td><td class="c3"><span title="0.0%">42&micro;s</span></td><td class="sub_name"><span style="display: none;">Time::Local::::BEGIN@29</span>Time::Local::<a href="Time-Local-pm-860-sub.html#29">BEGIN@29</a></span></td></tr>
 134 <tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">10&micro;s</span></td><td class="c1"><span title="0.0%">60&micro;s</span></td><td class="sub_name"><span style="display: none;">Time::Local::::BEGIN@27</span>Time::Local::<a href="Time-Local-pm-860-sub.html#27">BEGIN@27</a></span></td></tr>
 135 <tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">9&micro;s</span></td><td class="c0"><span title="0.0%">79&micro;s</span></td><td class="sub_name"><span style="display: none;">Time::Local::::BEGIN@8</span>Time::Local::<a href="Time-Local-pm-860-sub.html#8">BEGIN@8</a></span></td></tr>
 136 <tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">7&micro;s</span></td><td class="c3"><span title="0.0%">41&micro;s</span></td><td class="sub_name"><span style="display: none;">Time::Local::::BEGIN@28</span>Time::Local::<a href="Time-Local-pm-860-sub.html#28">BEGIN@28</a></span></td></tr>
 137 <tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">3&micro;s</span></td><td class="c3"><span title="0.0%">3&micro;s</span></td><td class="sub_name"><span style="display: none;">Time::Local::::CORE:pack</span>Time::Local::<a href="Time-Local-pm-860-sub.html#Time__Local__CORE_pack">CORE:pack</a>&nbsp;(opcode)</span></td></tr>
 138 <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;">Time::Local::::_is_leap_year</span>Time::Local::<a href="Time-Local-pm-860-sub.html#141">_is_leap_year</a></span></td></tr>
 139 <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;">Time::Local::::_timegm</span>Time::Local::<a href="Time-Local-pm-860-sub.html#90">_timegm</a></span></td></tr>
 140 <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;">Time::Local::::timegm</span>Time::Local::<a href="Time-Local-pm-860-sub.html#97">timegm</a></span></td></tr>
 141 <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;">Time::Local::::timegm_nocheck</span>Time::Local::<a href="Time-Local-pm-860-sub.html#149">timegm_nocheck</a></span></td></tr>
 142 <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;">Time::Local::::timelocal</span>Time::Local::<a href="Time-Local-pm-860-sub.html#154">timelocal</a></span></td></tr>
 143 <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;">Time::Local::::timelocal_nocheck</span>Time::Local::<a href="Time-Local-pm-860-sub.html#189">timelocal_nocheck</a></span></td></tr>
 144 </tbody></table>
 145                 Call graph for these subroutines as a
 146                 <a href="http://en.wikipedia.org/wiki/Graphviz">Graphviz</a>
 147                 <a href="opt-local-lib-perl5-5-14-2-Time-Local-pm.dot">dot language file</a>.
 148
 149       <table border="1" cellpadding="0">
 150       <thead>
 151       <tr><th>Line</th>
 152       <th><span title="Number of statements executed">State<br />ments</span></th>
 153       <th><span title="Time spend executing statements on the line,
 154         excluding time spent executing statements in any called subroutines">Time<br />on line</span></th>
 155       <th><span title="Number of subroutines calls">Calls</span></th>
 156       <th><span title="Time spent in subroutines called (inclusive)">Time<br />in subs</span></th>
 157       <th class="left_indent_header">Code</th>
 158       </tr>
 159
 160       </thead>
 161       <tbody>
 162     <tr><td class="h"><a name="1"></a>1</td><td></td><td></td><td></td><td></td><td class="s">package Time::Local;</td></tr>
 163 <tr><td class="h"><a name="2"></a>2</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 164 <tr><td class="h"><a name="3"></a>3</td><td class="c3">1</td><td class="c3"><span title="Avg 1&micro;s">1&micro;s</span></td><td></td><td></td><td class="s">require Exporter;</td></tr>
 165 <tr><td class="h"><a name="4"></a>4</td><td class="c1">2</td><td class="c0"><span title="Avg 16&micro;s">32&micro;s</span></td><td class="c3">2</td><td class="c0">155&micro;s</td><td class="s"><div class="calls"><div class="calls_in"># spent 90&micro;s (25+65) within Time::Local::BEGIN@4 which was called:
 166 #    once (25&micro;s+65&micro;s) by Time::Piece::BEGIN@9 at <a href="Time-Local-pm-860-sub.html#4">line 4</a></div></div>use Carp;<div class="calls"><div class="calls_out"># spent    90&micro;s making 1 call to <a href="Time-Local-pm-860-sub.html#4">Time::Local::BEGIN@4</a>
 167 # spent    65&micro;s making 1 call to <a href="Exporter-pm-8-sub.html#28">Exporter::import</a></div></div></td></tr>
 168 <tr><td class="h"><a name="5"></a>5</td><td class="c1">2</td><td class="c0"><span title="Avg 23&micro;s">45&micro;s</span></td><td class="c3">2</td><td class="c3">51&micro;s</td><td class="s"><div class="calls"><div class="calls_in"># spent 34&micro;s (16+17) within Time::Local::BEGIN@5 which was called:
 169 #    once (16&micro;s+17&micro;s) by Time::Piece::BEGIN@9 at <a href="Time-Local-pm-860-sub.html#5">line 5</a></div></div>use Config;<div class="calls"><div class="calls_out"># spent    34&micro;s making 1 call to <a href="Time-Local-pm-860-sub.html#5">Time::Local::BEGIN@5</a>
 170 # spent    17&micro;s making 1 call to <a href="Config-pm-47-sub.html#38">Config::import</a></div></div></td></tr>
 171 <tr><td class="h"><a name="6"></a>6</td><td class="c1">2</td><td class="c0"><span title="Avg 21&micro;s">42&micro;s</span></td><td class="c3">2</td><td class="c3">29&micro;s</td><td class="s"><div class="calls"><div class="calls_in"># spent 22&micro;s (16+7) within Time::Local::BEGIN@6 which was called:
 172 #    once (16&micro;s+7&micro;s) by Time::Piece::BEGIN@9 at <a href="Time-Local-pm-860-sub.html#6">line 6</a></div></div>use strict;<div class="calls"><div class="calls_out"># spent    22&micro;s making 1 call to <a href="Time-Local-pm-860-sub.html#6">Time::Local::BEGIN@6</a>
 173 # spent     7&micro;s making 1 call to <a href="strict-pm-3-sub.html#34">strict::import</a></div></div></td></tr>
 174 <tr><td class="h"><a name="7"></a>7</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 175 <tr><td class="h"><a name="8"></a>8</td><td class="c1">2</td><td class="c0"><span title="Avg 64&micro;s">129&micro;s</span></td><td class="c3">2</td><td class="c1">149&micro;s</td><td class="s"><div class="calls"><div class="calls_in"># spent 79&micro;s (9+70) within Time::Local::BEGIN@8 which was called:
 176 #    once (9&micro;s+70&micro;s) by Time::Piece::BEGIN@9 at <a href="Time-Local-pm-860-sub.html#8">line 8</a></div></div>use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK );<div class="calls"><div class="calls_out"># spent    79&micro;s making 1 call to <a href="Time-Local-pm-860-sub.html#8">Time::Local::BEGIN@8</a>
 177 # spent    70&micro;s making 1 call to <a href="vars-pm-6-sub.html#10">vars::import</a></div></div></td></tr>
 178 <tr><td class="h"><a name="9"></a>9</td><td class="c3">1</td><td class="c3"><span title="Avg 1&micro;s">1&micro;s</span></td><td></td><td></td><td class="s">$VERSION   = '1.2000';</td></tr>
 179 <tr><td class="h"><a name="10"></a>10</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 180 <tr><td class="h"><a name="11"></a>11</td><td class="c3">1</td><td class="c0"><span title="Avg 11&micro;s">11&micro;s</span></td><td></td><td></td><td class="s">@ISA       = qw( Exporter );</td></tr>
 181 <tr><td class="h"><a name="12"></a>12</td><td class="c3">1</td><td class="c3"><span title="Avg 1&micro;s">1&micro;s</span></td><td></td><td></td><td class="s">@EXPORT    = qw( timegm timelocal );</td></tr>
 182 <tr><td class="h"><a name="13"></a>13</td><td class="c3">1</td><td class="c3"><span title="Avg 1&micro;s">1&micro;s</span></td><td></td><td></td><td class="s">@EXPORT_OK = qw( timegm_nocheck timelocal_nocheck );</td></tr>
 183 <tr><td class="h"><a name="14"></a>14</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 184 <tr><td class="h"><a name="15"></a>15</td><td class="c3">1</td><td class="c3"><span title="Avg 2&micro;s">2&micro;s</span></td><td></td><td></td><td class="s">my @MonthDays = ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );</td></tr>
 185 <tr><td class="h"><a name="16"></a>16</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 186 <tr><td class="h"><a name="17"></a>17</td><td></td><td></td><td></td><td></td><td class="s"># Determine breakpoint for rolling century</td></tr>
 187 <tr><td class="h"><a name="18"></a>18</td><td class="c3">1</td><td class="c0"><span title="Avg 26&micro;s">26&micro;s</span></td><td></td><td></td><td class="s">my $ThisYear    = ( localtime() )[5];</td></tr>
 188 <tr><td class="h"><a name="19"></a>19</td><td class="c3">1</td><td class="c3"><span title="Avg 1&micro;s">1&micro;s</span></td><td></td><td></td><td class="s">my $Breakpoint  = ( $ThisYear + 50 ) % 100;</td></tr>
 189 <tr><td class="h"><a name="20"></a>20</td><td class="c3">1</td><td class="c3"><span title="Avg 600ns">600ns</span></td><td></td><td></td><td class="s">my $NextCentury = $ThisYear - $ThisYear % 100;</td></tr>
 190 <tr><td class="h"><a name="21"></a>21</td><td class="c3">1</td><td class="c3"><span title="Avg 300ns">300ns</span></td><td></td><td></td><td class="s">$NextCentury += 100 if $Breakpoint &lt; 50;</td></tr>
 191 <tr><td class="h"><a name="22"></a>22</td><td class="c3">1</td><td class="c3"><span title="Avg 200ns">200ns</span></td><td></td><td></td><td class="s">my $Century = $NextCentury - 100;</td></tr>
 192 <tr><td class="h"><a name="23"></a>23</td><td class="c3">1</td><td class="c3"><span title="Avg 100ns">100ns</span></td><td></td><td></td><td class="s">my $SecOff  = 0;</td></tr>
 193 <tr><td class="h"><a name="24"></a>24</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 194 <tr><td class="h"><a name="25"></a>25</td><td class="c3">1</td><td class="c3"><span title="Avg 300ns">300ns</span></td><td></td><td></td><td class="s">my ( %Options, %Cheat );</td></tr>
 195 <tr><td class="h"><a name="26"></a>26</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 196 <tr><td class="h"><a name="27"></a>27</td><td class="c1">2</td><td class="c0"><span title="Avg 15&micro;s">29&micro;s</span></td><td class="c3">2</td><td class="c2">110&micro;s</td><td class="s"><div class="calls"><div class="calls_in"># spent 60&micro;s (10+50) within Time::Local::BEGIN@27 which was called:
 197 #    once (10&micro;s+50&micro;s) by Time::Piece::BEGIN@9 at <a href="Time-Local-pm-860-sub.html#27">line 27</a></div></div>use constant SECS_PER_MINUTE =&gt; 60;<div class="calls"><div class="calls_out"># spent    60&micro;s making 1 call to <a href="Time-Local-pm-860-sub.html#27">Time::Local::BEGIN@27</a>
 198 # spent    50&micro;s making 1 call to <a href="constant-pm-28-sub.html#42">constant::import</a></div></div></td></tr>
 199 <tr><td class="h"><a name="28"></a>28</td><td class="c1">2</td><td class="c0"><span title="Avg 13&micro;s">26&micro;s</span></td><td class="c3">2</td><td class="c3">75&micro;s</td><td class="s"><div class="calls"><div class="calls_in"># spent 41&micro;s (7+34) within Time::Local::BEGIN@28 which was called:
 200 #    once (7&micro;s+34&micro;s) by Time::Piece::BEGIN@9 at <a href="Time-Local-pm-860-sub.html#28">line 28</a></div></div>use constant SECS_PER_HOUR   =&gt; 3600;<div class="calls"><div class="calls_out"># spent    41&micro;s making 1 call to <a href="Time-Local-pm-860-sub.html#28">Time::Local::BEGIN@28</a>
 201 # spent    34&micro;s making 1 call to <a href="constant-pm-28-sub.html#42">constant::import</a></div></div></td></tr>
 202 <tr><td class="h"><a name="29"></a>29</td><td class="c1">2</td><td class="c0"><span title="Avg 478&micro;s">957&micro;s</span></td><td class="c3">2</td><td class="c3">71&micro;s</td><td class="s"><div class="calls"><div class="calls_in"># spent 42&micro;s (13+29) within Time::Local::BEGIN@29 which was called:
 203 #    once (13&micro;s+29&micro;s) by Time::Piece::BEGIN@9 at <a href="Time-Local-pm-860-sub.html#29">line 29</a></div></div>use constant SECS_PER_DAY    =&gt; 86400;<div class="calls"><div class="calls_out"># spent    42&micro;s making 1 call to <a href="Time-Local-pm-860-sub.html#29">Time::Local::BEGIN@29</a>
 204 # spent    29&micro;s making 1 call to <a href="constant-pm-28-sub.html#42">constant::import</a></div></div></td></tr>
 205 <tr><td class="h"><a name="30"></a>30</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 206 <tr><td class="h"><a name="31"></a>31</td><td class="c3">1</td><td class="c3"><span title="Avg 100ns">100ns</span></td><td></td><td></td><td class="s">my $MaxDay;</td></tr>
 207 <tr><td class="h"><a name="32"></a>32</td><td class="c3">1</td><td class="c3"><span title="Avg 1&micro;s">1&micro;s</span></td><td></td><td></td><td class="s">if ($] &lt; 5.012000) {</td></tr>
 208 <tr><td class="h"><a name="33"></a>33</td><td></td><td></td><td></td><td></td><td class="s">    my $MaxInt;</td></tr>
 209 <tr><td class="h"><a name="34"></a>34</td><td></td><td></td><td></td><td></td><td class="s">    if ( $^O eq 'MacOS' ) {</td></tr>
 210 <tr><td class="h"><a name="35"></a>35</td><td></td><td></td><td></td><td></td><td class="s">        # time_t is unsigned...</td></tr>
 211 <tr><td class="h"><a name="36"></a>36</td><td></td><td></td><td></td><td></td><td class="s">        $MaxInt = ( 1 &lt;&lt; ( 8 * $Config{ivsize} ) ) - 1;</td></tr>
 212 <tr><td class="h"><a name="37"></a>37</td><td></td><td></td><td></td><td></td><td class="s">    }</td></tr>
 213 <tr><td class="h"><a name="38"></a>38</td><td></td><td></td><td></td><td></td><td class="s">    else {</td></tr>
 214 <tr><td class="h"><a name="39"></a>39</td><td></td><td></td><td></td><td></td><td class="s">        $MaxInt = ( ( 1 &lt;&lt; ( 8 * $Config{ivsize} - 2 ) ) - 1 ) * 2 + 1;</td></tr>
 215 <tr><td class="h"><a name="40"></a>40</td><td></td><td></td><td></td><td></td><td class="s">    }</td></tr>
 216 <tr><td class="h"><a name="41"></a>41</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 217 <tr><td class="h"><a name="42"></a>42</td><td></td><td></td><td></td><td></td><td class="s">    $MaxDay = int( ( $MaxInt - ( SECS_PER_DAY / 2 ) ) / SECS_PER_DAY ) - 1;</td></tr>
 218 <tr><td class="h"><a name="43"></a>43</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
 219 <tr><td class="h"><a name="44"></a>44</td><td></td><td></td><td></td><td></td><td class="s">else {</td></tr>
 220 <tr><td class="h"><a name="45"></a>45</td><td></td><td></td><td></td><td></td><td class="s">    # recent localtime()'s limit is the year 2**31</td></tr>
 221 <tr><td class="h"><a name="46"></a>46</td><td class="c3">1</td><td class="c3"><span title="Avg 600ns">600ns</span></td><td></td><td></td><td class="s">    $MaxDay = 365 * (2**31);</td></tr>
 222 <tr><td class="h"><a name="47"></a>47</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
 223 <tr><td class="h"><a name="48"></a>48</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 224 <tr><td class="h"><a name="49"></a>49</td><td></td><td></td><td></td><td></td><td class="s"># Determine the EPOC day for this machine</td></tr>
 225 <tr><td class="h"><a name="50"></a>50</td><td class="c3">1</td><td class="c3"><span title="Avg 200ns">200ns</span></td><td></td><td></td><td class="s">my $Epoc = 0;</td></tr>
 226 <tr><td class="h"><a name="51"></a>51</td><td class="c3">1</td><td class="c3"><span title="Avg 2&micro;s">2&micro;s</span></td><td></td><td></td><td class="s">if ( $^O eq 'vos' ) {</td></tr>
 227 <tr><td class="h"><a name="52"></a>52</td><td></td><td></td><td></td><td></td><td class="s">    # work around posix-977 -- VOS doesn't handle dates in the range</td></tr>
 228 <tr><td class="h"><a name="53"></a>53</td><td></td><td></td><td></td><td></td><td class="s">    # 1970-1980.</td></tr>
 229 <tr><td class="h"><a name="54"></a>54</td><td></td><td></td><td></td><td></td><td class="s">    $Epoc = _daygm( 0, 0, 0, 1, 0, 70, 4, 0 );</td></tr>
 230 <tr><td class="h"><a name="55"></a>55</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
 231 <tr><td class="h"><a name="56"></a>56</td><td></td><td></td><td></td><td></td><td class="s">elsif ( $^O eq 'MacOS' ) {</td></tr>
 232 <tr><td class="h"><a name="57"></a>57</td><td></td><td></td><td></td><td></td><td class="s">    $MaxDay *=2 if $^O eq 'MacOS';  # time_t unsigned ... quick hack?</td></tr>
 233 <tr><td class="h"><a name="58"></a>58</td><td></td><td></td><td></td><td></td><td class="s">    # MacOS time() is seconds since 1 Jan 1904, localtime</td></tr>
 234 <tr><td class="h"><a name="59"></a>59</td><td></td><td></td><td></td><td></td><td class="s">    # so we need to calculate an offset to apply later</td></tr>
 235 <tr><td class="h"><a name="60"></a>60</td><td></td><td></td><td></td><td></td><td class="s">    $Epoc = 693901;</td></tr>
 236 <tr><td class="h"><a name="61"></a>61</td><td></td><td></td><td></td><td></td><td class="s">    $SecOff = timelocal( localtime(0)) - timelocal( gmtime(0) ) ;</td></tr>
 237 <tr><td class="h"><a name="62"></a>62</td><td></td><td></td><td></td><td></td><td class="s">    $Epoc += _daygm( gmtime(0) );</td></tr>
 238 <tr><td class="h"><a name="63"></a>63</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
 239 <tr><td class="h"><a name="64"></a>64</td><td></td><td></td><td></td><td></td><td class="s">else {</td></tr>
 240 <tr><td class="h"><a name="65"></a>65</td><td class="c3">1</td><td class="c0"><span title="Avg 8&micro;s">8&micro;s</span></td><td class="c3">1</td><td class="c3">25&micro;s</td><td class="s">    $Epoc = _daygm( gmtime(0) );<div class="calls"><div class="calls_out">    # spent    25&micro;s making 1 call to <a href="Time-Local-pm-860-sub.html#70">Time::Local::_daygm</a></div></div></td></tr>
 241 <tr><td class="h"><a name="66"></a>66</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
 242 <tr><td class="h"><a name="67"></a>67</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 243 <tr><td class="h"><a name="68"></a>68</td><td class="c3">1</td><td class="c3"><span title="Avg 2&micro;s">2&micro;s</span></td><td></td><td></td><td class="s">%Cheat = ();    # clear the cache as epoc has changed</td></tr>
 244 <tr><td class="h"><a name="69"></a>69</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 245 <tr><td class="h"><a name="70"></a>70</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 25&micro;s (22+3) within Time::Local::_daygm which was called:
 246 #    once (22&micro;s+3&micro;s) by Time::Piece::BEGIN@9 at <a href="Time-Local-pm-860-sub.html#65">line 65</a></div></div>sub _daygm {</td></tr>
 247 <tr><td class="h"><a name="71"></a>71</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 248 <tr><td class="h"><a name="72"></a>72</td><td></td><td></td><td></td><td></td><td class="s">    # This is written in such a byzantine way in order to avoid</td></tr>
 249 <tr><td class="h"><a name="73"></a>73</td><td></td><td></td><td></td><td></td><td class="s">    # lexical variables and sub calls, for speed</td></tr>
 250 <tr><td class="h"><a name="74"></a>74</td><td></td><td></td><td></td><td></td><td class="s">    return $_[3] + (</td></tr>
 251 <tr><td class="h"><a name="75"></a>75</td><td class="c0">4</td><td class="c0"><span title="Avg 7&micro;s">27&micro;s</span></td><td class="c3">1</td><td class="c3">3&micro;s</td><td class="s">        $Cheat{ pack( 'ss', @_[ 4, 5 ] ) } ||= do {<div class="calls"><div class="calls_out">        # spent     3&micro;s making 1 call to <a href="Time-Local-pm-860-sub.html#Time__Local__CORE_pack">Time::Local::CORE:pack</a></div></div></td></tr>
 252 <tr><td class="h"><a name="76"></a>76</td><td></td><td></td><td></td><td></td><td class="s">            my $month = ( $_[4] + 10 ) % 12;</td></tr>
 253 <tr><td class="h"><a name="77"></a>77</td><td></td><td></td><td></td><td></td><td class="s">            my $year  = $_[5] + 1900 - int($month / 10);</td></tr>
 254 <tr><td class="h"><a name="78"></a>78</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 255 <tr><td class="h"><a name="79"></a>79</td><td></td><td></td><td></td><td></td><td class="s">            ( ( 365 * $year )</td></tr>
 256 <tr><td class="h"><a name="80"></a>80</td><td></td><td></td><td></td><td></td><td class="s">              + int( $year / 4 )</td></tr>
 257 <tr><td class="h"><a name="81"></a>81</td><td></td><td></td><td></td><td></td><td class="s">              - int( $year / 100 )</td></tr>
 258 <tr><td class="h"><a name="82"></a>82</td><td></td><td></td><td></td><td></td><td class="s">              + int( $year / 400 )</td></tr>
 259 <tr><td class="h"><a name="83"></a>83</td><td></td><td></td><td></td><td></td><td class="s">              + int( ( ( $month * 306 ) + 5 ) / 10 )</td></tr>
 260 <tr><td class="h"><a name="84"></a>84</td><td></td><td></td><td></td><td></td><td class="s">            )</td></tr>
 261 <tr><td class="h"><a name="85"></a>85</td><td></td><td></td><td></td><td></td><td class="s">            - $Epoc;</td></tr>
 262 <tr><td class="h"><a name="86"></a>86</td><td></td><td></td><td></td><td></td><td class="s">        }</td></tr>
 263 <tr><td class="h"><a name="87"></a>87</td><td></td><td></td><td></td><td></td><td class="s">    );</td></tr>
 264 <tr><td class="h"><a name="88"></a>88</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
 265 <tr><td class="h"><a name="89"></a>89</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 266 <tr><td class="h"><a name="90"></a>90</td><td></td><td></td><td></td><td></td><td class="s">sub _timegm {</td></tr>
 267 <tr><td class="h"><a name="91"></a>91</td><td></td><td></td><td></td><td></td><td class="s">    my $sec =</td></tr>
 268 <tr><td class="h"><a name="92"></a>92</td><td></td><td></td><td></td><td></td><td class="s">        $SecOff + $_[0] + ( SECS_PER_MINUTE * $_[1] ) + ( SECS_PER_HOUR * $_[2] );</td></tr>
 269 <tr><td class="h"><a name="93"></a>93</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 270 <tr><td class="h"><a name="94"></a>94</td><td></td><td></td><td></td><td></td><td class="s">    return $sec + ( SECS_PER_DAY * &amp;_daygm );</td></tr>
 271 <tr><td class="h"><a name="95"></a>95</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
 272 <tr><td class="h"><a name="96"></a>96</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 273 <tr><td class="h"><a name="97"></a>97</td><td></td><td></td><td></td><td></td><td class="s">sub timegm {</td></tr>
 274 <tr><td class="h"><a name="98"></a>98</td><td></td><td></td><td></td><td></td><td class="s">    my ( $sec, $min, $hour, $mday, $month, $year ) = @_;</td></tr>
 275 <tr><td class="h"><a name="99"></a>99</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 276 <tr><td class="h"><a name="100"></a>100</td><td></td><td></td><td></td><td></td><td class="s">    if ( $year &gt;= 1000 ) {</td></tr>
 277 <tr><td class="h"><a name="101"></a>101</td><td></td><td></td><td></td><td></td><td class="s">        $year -= 1900;</td></tr>
 278 <tr><td class="h"><a name="102"></a>102</td><td></td><td></td><td></td><td></td><td class="s">    }</td></tr>
 279 <tr><td class="h"><a name="103"></a>103</td><td></td><td></td><td></td><td></td><td class="s">    elsif ( $year &lt; 100 and $year &gt;= 0 ) {</td></tr>
 280 <tr><td class="h"><a name="104"></a>104</td><td></td><td></td><td></td><td></td><td class="s">        $year += ( $year &gt; $Breakpoint ) ? $Century : $NextCentury;</td></tr>
 281 <tr><td class="h"><a name="105"></a>105</td><td></td><td></td><td></td><td></td><td class="s">    }</td></tr>
 282 <tr><td class="h"><a name="106"></a>106</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 283 <tr><td class="h"><a name="107"></a>107</td><td></td><td></td><td></td><td></td><td class="s">    unless ( $Options{no_range_check} ) {</td></tr>
 284 <tr><td class="h"><a name="108"></a>108</td><td></td><td></td><td></td><td></td><td class="s">        croak &quot;Month '$month' out of range 0..11&quot;</td></tr>
 285 <tr><td class="h"><a name="109"></a>109</td><td></td><td></td><td></td><td></td><td class="s">            if $month &gt; 11</td></tr>
 286 <tr><td class="h"><a name="110"></a>110</td><td></td><td></td><td></td><td></td><td class="s">            or $month &lt; 0;</td></tr>
 287 <tr><td class="h"><a name="111"></a>111</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 288 <tr><td class="h"><a name="112"></a>112</td><td></td><td></td><td></td><td></td><td class="s">        my $md = $MonthDays[$month];</td></tr>
 289 <tr><td class="h"><a name="113"></a>113</td><td></td><td></td><td></td><td></td><td class="s">        ++$md</td></tr>
 290 <tr><td class="h"><a name="114"></a>114</td><td></td><td></td><td></td><td></td><td class="s">            if $month == 1 &amp;&amp; _is_leap_year( $year + 1900 );</td></tr>
 291 <tr><td class="h"><a name="115"></a>115</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 292 <tr><td class="h"><a name="116"></a>116</td><td></td><td></td><td></td><td></td><td class="s">        croak &quot;Day '$mday' out of range 1..$md&quot;  if $mday &gt; $md or $mday &lt; 1;</td></tr>
 293 <tr><td class="h"><a name="117"></a>117</td><td></td><td></td><td></td><td></td><td class="s">        croak &quot;Hour '$hour' out of range 0..23&quot;  if $hour &gt; 23  or $hour &lt; 0;</td></tr>
 294 <tr><td class="h"><a name="118"></a>118</td><td></td><td></td><td></td><td></td><td class="s">        croak &quot;Minute '$min' out of range 0..59&quot; if $min &gt; 59   or $min &lt; 0;</td></tr>
 295 <tr><td class="h"><a name="119"></a>119</td><td></td><td></td><td></td><td></td><td class="s">        croak &quot;Second '$sec' out of range 0..59&quot; if $sec &gt; 59   or $sec &lt; 0;</td></tr>
 296 <tr><td class="h"><a name="120"></a>120</td><td></td><td></td><td></td><td></td><td class="s">    }</td></tr>
 297 <tr><td class="h"><a name="121"></a>121</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 298 <tr><td class="h"><a name="122"></a>122</td><td></td><td></td><td></td><td></td><td class="s">    my $days = _daygm( undef, undef, undef, $mday, $month, $year );</td></tr>
 299 <tr><td class="h"><a name="123"></a>123</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 300 <tr><td class="h"><a name="124"></a>124</td><td></td><td></td><td></td><td></td><td class="s">    unless ($Options{no_range_check} or abs($days) &lt; $MaxDay) {</td></tr>
 301 <tr><td class="h"><a name="125"></a>125</td><td></td><td></td><td></td><td></td><td class="s">        my $msg = '';</td></tr>
 302 <tr><td class="h"><a name="126"></a>126</td><td></td><td></td><td></td><td></td><td class="s">        $msg .= &quot;Day too big - $days &gt; $MaxDay\n&quot; if $days &gt; $MaxDay;</td></tr>
 303 <tr><td class="h"><a name="127"></a>127</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 304 <tr><td class="h"><a name="128"></a>128</td><td></td><td></td><td></td><td></td><td class="s">        $year += 1900;</td></tr>
 305 <tr><td class="h"><a name="129"></a>129</td><td></td><td></td><td></td><td></td><td class="s">        $msg .=  &quot;Cannot handle date ($sec, $min, $hour, $mday, $month, $year)&quot;;</td></tr>
 306 <tr><td class="h"><a name="130"></a>130</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 307 <tr><td class="h"><a name="131"></a>131</td><td></td><td></td><td></td><td></td><td class="s">        croak $msg;</td></tr>
 308 <tr><td class="h"><a name="132"></a>132</td><td></td><td></td><td></td><td></td><td class="s">    }</td></tr>
 309 <tr><td class="h"><a name="133"></a>133</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 310 <tr><td class="h"><a name="134"></a>134</td><td></td><td></td><td></td><td></td><td class="s">    return $sec</td></tr>
 311 <tr><td class="h"><a name="135"></a>135</td><td></td><td></td><td></td><td></td><td class="s">           + $SecOff</td></tr>
 312 <tr><td class="h"><a name="136"></a>136</td><td></td><td></td><td></td><td></td><td class="s">           + ( SECS_PER_MINUTE * $min )</td></tr>
 313 <tr><td class="h"><a name="137"></a>137</td><td></td><td></td><td></td><td></td><td class="s">           + ( SECS_PER_HOUR * $hour )</td></tr>
 314 <tr><td class="h"><a name="138"></a>138</td><td></td><td></td><td></td><td></td><td class="s">           + ( SECS_PER_DAY * $days );</td></tr>
 315 <tr><td class="h"><a name="139"></a>139</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
 316 <tr><td class="h"><a name="140"></a>140</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 317 <tr><td class="h"><a name="141"></a>141</td><td></td><td></td><td></td><td></td><td class="s">sub _is_leap_year {</td></tr>
 318 <tr><td class="h"><a name="142"></a>142</td><td></td><td></td><td></td><td></td><td class="s">    return 0 if $_[0] % 4;</td></tr>
 319 <tr><td class="h"><a name="143"></a>143</td><td></td><td></td><td></td><td></td><td class="s">    return 1 if $_[0] % 100;</td></tr>
 320 <tr><td class="h"><a name="144"></a>144</td><td></td><td></td><td></td><td></td><td class="s">    return 0 if $_[0] % 400;</td></tr>
 321 <tr><td class="h"><a name="145"></a>145</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 322 <tr><td class="h"><a name="146"></a>146</td><td></td><td></td><td></td><td></td><td class="s">    return 1;</td></tr>
 323 <tr><td class="h"><a name="147"></a>147</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
 324 <tr><td class="h"><a name="148"></a>148</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 325 <tr><td class="h"><a name="149"></a>149</td><td></td><td></td><td></td><td></td><td class="s">sub timegm_nocheck {</td></tr>
 326 <tr><td class="h"><a name="150"></a>150</td><td></td><td></td><td></td><td></td><td class="s">    local $Options{no_range_check} = 1;</td></tr>
 327 <tr><td class="h"><a name="151"></a>151</td><td></td><td></td><td></td><td></td><td class="s">    return &amp;timegm;</td></tr>
 328 <tr><td class="h"><a name="152"></a>152</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
 329 <tr><td class="h"><a name="153"></a>153</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 330 <tr><td class="h"><a name="154"></a>154</td><td></td><td></td><td></td><td></td><td class="s">sub timelocal {</td></tr>
 331 <tr><td class="h"><a name="155"></a>155</td><td></td><td></td><td></td><td></td><td class="s">    my $ref_t = &amp;timegm;</td></tr>
 332 <tr><td class="h"><a name="156"></a>156</td><td></td><td></td><td></td><td></td><td class="s">    my $loc_for_ref_t = _timegm( localtime($ref_t) );</td></tr>
 333 <tr><td class="h"><a name="157"></a>157</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 334 <tr><td class="h"><a name="158"></a>158</td><td></td><td></td><td></td><td></td><td class="s">    my $zone_off = $loc_for_ref_t - $ref_t</td></tr>
 335 <tr><td class="h"><a name="159"></a>159</td><td></td><td></td><td></td><td></td><td class="s">        or return $loc_for_ref_t;</td></tr>
 336 <tr><td class="h"><a name="160"></a>160</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 337 <tr><td class="h"><a name="161"></a>161</td><td></td><td></td><td></td><td></td><td class="s">    # Adjust for timezone</td></tr>
 338 <tr><td class="h"><a name="162"></a>162</td><td></td><td></td><td></td><td></td><td class="s">    my $loc_t = $ref_t - $zone_off;</td></tr>
 339 <tr><td class="h"><a name="163"></a>163</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 340 <tr><td class="h"><a name="164"></a>164</td><td></td><td></td><td></td><td></td><td class="s">    # Are we close to a DST change or are we done</td></tr>
 341 <tr><td class="h"><a name="165"></a>165</td><td></td><td></td><td></td><td></td><td class="s">    my $dst_off = $ref_t - _timegm( localtime($loc_t) );</td></tr>
 342 <tr><td class="h"><a name="166"></a>166</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 343 <tr><td class="h"><a name="167"></a>167</td><td></td><td></td><td></td><td></td><td class="s">    # If this evaluates to true, it means that the value in $loc_t is</td></tr>
 344 <tr><td class="h"><a name="168"></a>168</td><td></td><td></td><td></td><td></td><td class="s">    # the _second_ hour after a DST change where the local time moves</td></tr>
 345 <tr><td class="h"><a name="169"></a>169</td><td></td><td></td><td></td><td></td><td class="s">    # backward.</td></tr>
 346 <tr><td class="h"><a name="170"></a>170</td><td></td><td></td><td></td><td></td><td class="s">    if ( ! $dst_off &amp;&amp;</td></tr>
 347 <tr><td class="h"><a name="171"></a>171</td><td></td><td></td><td></td><td></td><td class="s">         ( ( $ref_t - SECS_PER_HOUR ) - _timegm( localtime( $loc_t - SECS_PER_HOUR ) ) &lt; 0 )</td></tr>
 348 <tr><td class="h"><a name="172"></a>172</td><td></td><td></td><td></td><td></td><td class="s">       ) {</td></tr>
 349 <tr><td class="h"><a name="173"></a>173</td><td></td><td></td><td></td><td></td><td class="s">        return $loc_t - SECS_PER_HOUR;</td></tr>
 350 <tr><td class="h"><a name="174"></a>174</td><td></td><td></td><td></td><td></td><td class="s">    }</td></tr>
 351 <tr><td class="h"><a name="175"></a>175</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 352 <tr><td class="h"><a name="176"></a>176</td><td></td><td></td><td></td><td></td><td class="s">    # Adjust for DST change</td></tr>
 353 <tr><td class="h"><a name="177"></a>177</td><td></td><td></td><td></td><td></td><td class="s">    $loc_t += $dst_off;</td></tr>
 354 <tr><td class="h"><a name="178"></a>178</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 355 <tr><td class="h"><a name="179"></a>179</td><td></td><td></td><td></td><td></td><td class="s">    return $loc_t if $dst_off &gt; 0;</td></tr>
 356 <tr><td class="h"><a name="180"></a>180</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 357 <tr><td class="h"><a name="181"></a>181</td><td></td><td></td><td></td><td></td><td class="s">    # If the original date was a non-extent gap in a forward DST jump,</td></tr>
 358 <tr><td class="h"><a name="182"></a>182</td><td></td><td></td><td></td><td></td><td class="s">    # we should now have the wrong answer - undo the DST adjustment</td></tr>
 359 <tr><td class="h"><a name="183"></a>183</td><td></td><td></td><td></td><td></td><td class="s">    my ( $s, $m, $h ) = localtime($loc_t);</td></tr>
 360 <tr><td class="h"><a name="184"></a>184</td><td></td><td></td><td></td><td></td><td class="s">    $loc_t -= $dst_off if $s != $_[0] || $m != $_[1] || $h != $_[2];</td></tr>
 361 <tr><td class="h"><a name="185"></a>185</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 362 <tr><td class="h"><a name="186"></a>186</td><td></td><td></td><td></td><td></td><td class="s">    return $loc_t;</td></tr>
 363 <tr><td class="h"><a name="187"></a>187</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
 364 <tr><td class="h"><a name="188"></a>188</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 365 <tr><td class="h"><a name="189"></a>189</td><td></td><td></td><td></td><td></td><td class="s">sub timelocal_nocheck {</td></tr>
 366 <tr><td class="h"><a name="190"></a>190</td><td></td><td></td><td></td><td></td><td class="s">    local $Options{no_range_check} = 1;</td></tr>
 367 <tr><td class="h"><a name="191"></a>191</td><td></td><td></td><td></td><td></td><td class="s">    return &amp;timelocal;</td></tr>
 368 <tr><td class="h"><a name="192"></a>192</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
 369 <tr><td class="h"><a name="193"></a>193</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 370 <tr><td class="h"><a name="194"></a>194</td><td class="c3">1</td><td class="c0"><span title="Avg 71&micro;s">71&micro;s</span></td><td></td><td></td><td class="s">1;</td></tr>
 371 <tr><td class="h"><a name="195"></a>195</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 372 <tr><td class="h"><a name="196"></a>196</td><td></td><td></td><td></td><td></td><td class="s">__END__</td></tr>
 373 <tr><td class="s"><a name=""></a>&nbsp;</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
 374 <tr><td class="h"><a name="Time__Local__CORE_pack"></a></td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 3&micro;s within Time::Local::CORE:pack which was called:
 375 #    once (3&micro;s+0s) by Time::Local::_daygm at <a href="Time-Local-pm-860-sub.html#75">line 75</a></div></div>sub Time::Local::CORE:pack; # opcode<br />        </td></tr>
 376 </tbody></table></div>
 377
 378             <script type="text/javascript"> $(document).ready(function() {
 379
 380         $("#subs_table").tablesorter({
 381             sortList: [[3,1]],
 382             headers: {
 383                 3: { sorter: 'fmt_time' },
 384                 4: { sorter: 'fmt_time' }
 385             }
 386         });
 387
 388  } ); </script>
 389
 390         <div class="footer">Report produced by the
 391         <a href="http://search.cpan.org/dist/Devel-NYTProf/">NYTProf 4.06</a>
 392         Perl profiler, developed by
 393         <a href="http://www.linkedin.com/in/timbunce">Tim Bunce</a> and
 394         <a href="http://code.nytimes.com">Adam Kaplan</a>.
 395         </div>
 396         <br /><br /><br /><br /><br /><br /><br /><br /><br /><br />
 397     </body></html>