view release on metacpan or  search on metacpan

nytprof/constant-pm-19-line.html  view on Meta::CPAN

#    once (6µs+86µs) by Game::Collisions::AABB::BEGIN@32 at <a href="constant-pm-19-line.html#4">line 4</a></div></div>use warnings::register;<div class="calls"><div class="calls_out"># spent    91µs making 1 call to <a href="constant-pm-19-line.h...
# spent    86µs making 1 call to <a href="warnings-register-pm-9-line.html#18">warnings::register::import</a></div></div></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 class="c3">1</td><td class="c3"><span title="Avg 400ns">400ns</span></td><td></td><td></td><td class="s">our $VERSION = '1.33';</td></tr>
<tr><td class="h"><a name="7"></a>7</td><td></td><td></td><td></td><td></td><td class="s">our %declared;</td></tr>
<tr><td class="h"><a name="8"></a>8</td><td></td><td></td><td></td><td></td><td class="s"></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"></td></tr>
<tr><td class="h"><a name="11"></a>11</td><td></td><td></td><td></td><td></td><td class="s"># Some names are evil choices.</td></tr>
<tr><td class="h"><a name="12"></a>12</td><td class="c3">1</td><td class="c3"><span title="Avg 5µs">5µs</span></td><td></td><td></td><td class="s">my %keywords = map +($_, 1), qw{ BEGIN INIT CHECK END DESTROY AUTOLOAD };</td></tr>
<tr><td class="h"><a name="13"></a>13</td><td class="c3">1</td><td class="c3"><span title="Avg 1µs">1µs</span></td><td></td><td></td><td class="s">$keywords{UNITCHECK}++ if $] &gt; 5.009;</td></tr>
<tr><td class="h"><a name="14"></a>14</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="15"></a>15</td><td class="c3">1</td><td class="c3"><span title="Avg 4µs">4µs</span></td><td></td><td></td><td class="s">my %forced_into_main = map +($_, 1),</td></tr>
<tr><td class="h"><a name="16"></a>16</td><td></td><td></td><td></td><td></td><td class="s">    qw{ STDIN STDOUT STDERR ARGV ARGVOUT ENV INC SIG };</td></tr>
<tr><td class="h"><a name="17"></a>17</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="18"></a>18</td><td class="c3">1</td><td class="c3"><span title="Avg 5µs">5µs</span></td><td></td><td></td><td class="s">my %forbidden = (%keywords, %forced_into_main);</td></tr>
<tr><td class="h"><a name="19"></a>19</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="20"></a>20</td><td class="c3">1</td><td class="c1"><span title="Avg 8µs">8µs</span></td><td class="c3">1</td><td class="c3">2µs</td><td class="s">my $normal_constant_name = qr/^_?[^\W_0-9]\w*\z/;<div class="calls"><div c...
<tr><td class="h"><a name="21"></a>21</td><td class="c3">1</td><td class="c3"><span title="Avg 2µs">2µs</span></td><td class="c3">1</td><td class="c3">600ns</td><td class="s">my $tolerable = qr/^[A-Za-z_]\w*\z/;<div class="calls"><div class="calls_...
<tr><td class="h"><a name="22"></a>22</td><td class="c3">1</td><td class="c3"><span title="Avg 2µs">2µs</span></td><td class="c3">1</td><td class="c3">400ns</td><td class="s">my $boolean = qr/^[01]?\z/;<div class="calls"><div class="calls_out"># sp...
<tr><td class="h"><a name="23"></a>23</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>