Game-Collisions
view release on metacpan or search on metacpan
nytprof/Exporter-Heavy-pm-11-line.html view on Meta::CPAN
<tr><td class="h"><a name="222"></a>222</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="223"></a>223</td><td></td><td></td><td></td><td></td><td class="s">}</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">sub heavy_require_version {</td></tr>
<tr><td class="h"><a name="226"></a>226</td><td></td><td></td><td></td><td></td><td class="s"> my($self, $wanted) = @_;</td></tr>
<tr><td class="h"><a name="227"></a>227</td><td></td><td></td><td></td><td></td><td class="s"> my $pkg = ref $self || $self;</td></tr>
<tr><td class="h"><a name="228"></a>228</td><td></td><td></td><td></td><td></td><td class="s"> return ${pkg}->VERSION($wanted);</td></tr>
<tr><td class="h"><a name="229"></a>229</td><td></td><td></td><td></td><td></td><td class="s">}</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">sub heavy_export_tags {</td></tr>
<tr><td class="h"><a name="232"></a>232</td><td></td><td></td><td></td><td></td><td class="s"> _push_tags((caller)[0], "EXPORT", \@_);</td></tr>
<tr><td class="h"><a name="233"></a>233</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="234"></a>234</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="235"></a>235</td><td></td><td></td><td></td><td></td><td class="s">sub heavy_export_ok_tags {</td></tr>
<tr><td class="h"><a name="236"></a>236</td><td></td><td></td><td></td><td></td><td class="s"> _push_tags((caller)[0], "EXPORT_OK", \@_);</td></tr>
<tr><td class="h"><a name="237"></a>237</td><td></td><td></td><td></td><td></td><td class="s">}</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 class="c3">1</td><td class="c0"><span title="Avg 5µs">5µs</span></td><td></td><td></td><td class="s">1;</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="Exporter__Heavy__CORE_match"></a></td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 1µs within Exporter::Heavy::CORE:match which was called 2 times, avg 650ns/call:
# 2 times (1µs+0s) by Exporter::Heavy::heavy_export at <a href="Exporter-Heavy-pm-11-line.html#62">line 62</a>, avg 650ns/call</div></div>sub Exporter::Heavy::CORE:match; # opcode<br /> </td></tr>
<tr><td class="h"><a name="Exporter__Heavy__CORE_subst"></a></td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 7µs within Exporter::Heavy::CORE:subst which was called 51 times, avg 135ns/call:
# 49 times (6µs+0s) by Exporter::Heavy::_rebuild_cache at <a href="Exporter-Heavy-pm-11-line.html#20">line 20</a>, avg 118ns/call
# 2 times (1µs+0s) by Exporter::Heavy::heavy_export at <a href="Exporter-Heavy-pm-11-line.html#185">line 185</a>, avg 550ns/call</div></div>sub Exporter::Heavy::CORE:subst; # opcode<br /> </td></tr>
</tbody></table></div>
nytprof/strict-pm-4-line.html view on Meta::CPAN
<tr><td class="h"><a name="2"></a>2</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="3"></a>3</td><td class="c3">1</td><td class="c3"><span title="Avg 2µs">2µs</span></td><td></td><td></td><td class="s">$strict::VERSION = "1.11";</td></tr>
<tr><td class="h"><a name="4"></a>4</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="5"></a>5</td><td class="c3">1</td><td class="c3"><span title="Avg 800ns">800ns</span></td><td></td><td></td><td class="s">my ( %bitmask, %explicit_bitmask );</td></tr>
<tr><td class="h"><a name="6"></a>6</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="7"></a>7</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 144µs (130+14) within strict::BEGIN@7 which was called:
# once (130µs+14µs) by Time::HiRes::BEGIN@4 at <a href="strict-pm-4-line.html#38">line 38</a></div></div>BEGIN {</td></tr>
<tr><td class="h"><a name="8"></a>8</td><td></td><td></td><td></td><td></td><td class="s"> # Verify that we're called correctly so that strictures will work.</td></tr>
<tr><td class="h"><a name="9"></a>9</td><td></td><td></td><td></td><td></td><td class="s"> # Can't use Carp, since Carp uses us!</td></tr>
<tr><td class="h"><a name="10"></a>10</td><td></td><td></td><td></td><td></td><td class="s"> # see also warnings.pm.</td></tr>
<tr><td class="h"><a name="11"></a>11</td><td class="c3">1</td><td class="c0"><span title="Avg 38µs">38µs</span></td><td class="c3">1</td><td class="c3">14µs</td><td class="s"> die sprintf "Incorrect use of pragma '%s' at %s line %d.\n&quo...
<tr><td class="h"><a name="12"></a>12</td><td></td><td></td><td></td><td></td><td class="s"> if __FILE__ !~ ( '(?x) \b '.__PACKAGE__.' \.pmc? \z' )</td></tr>
<tr><td class="h"><a name="13"></a>13</td><td></td><td></td><td></td><td></td><td class="s"> && __FILE__ =~ ( '(?x) \b (?i:'.__PACKAGE__.') \.pmc? \z' );</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 7µs">7µs</span></td><td></td><td></td><td class="s"> %bitmask = (</td></tr>
<tr><td class="h"><a name="16"></a>16</td><td></td><td></td><td></td><td></td><td class="s"> refs => 0x00000002,</td></tr>
<tr><td class="h"><a name="17"></a>17</td><td></td><td></td><td></td><td></td><td class="s"> subs => 0x00000200,</td></tr>
<tr><td class="h"><a name="18"></a>18</td><td></td><td></td><td></td><td></td><td class="s"> vars => 0x00000400,</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></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="21"></a>21</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"> %explicit_bitmask = (</td></tr>
nytprof/warnings-pm-2-line.html view on Meta::CPAN
<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 2µs">2µs</span></td><td></td><td></td><td class="s">our $VERSION = "1.37";</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"># Can't use Carp, since Carp uses us!</td></tr>
<tr><td class="h"><a name="12"></a>12</td><td></td><td></td><td></td><td></td><td class="s"># String regexps because constant folding = smaller optree = less memory vs regexp literal</td></tr>
<tr><td class="h"><a name="13"></a>13</td><td></td><td></td><td></td><td></td><td class="s"># see also strict.pm.</td></tr>
<tr><td class="h"><a name="14"></a>14</td><td class="c3">1</td><td class="c0"><span title="Avg 60µs">60µs</span></td><td class="c3">1</td><td class="c1">26µs</td><td class="s">die sprintf "Incorrect use of pragma '%s' at %s line %d.\n", ...
<tr><td class="h"><a name="15"></a>15</td><td></td><td></td><td></td><td></td><td class="s"> if __FILE__ !~ ( '(?x) \b '.__PACKAGE__.' \.pmc? \z' )</td></tr>
<tr><td class="h"><a name="16"></a>16</td><td></td><td></td><td></td><td></td><td class="s"> && __FILE__ =~ ( '(?x) \b (?i:'.__PACKAGE__.') \.pmc? \z' );</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="c0"><span title="Avg 112µs">112µs</span></td><td></td><td></td><td class="s">our %Offsets = (</td></tr>
<tr><td class="h"><a name="19"></a>19</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="20"></a>20</td><td></td><td></td><td></td><td></td><td class="s"> 'all' => 0,</td></tr>
<tr><td class="h"><a name="21"></a>21</td><td></td><td></td><td></td><td></td><td class="s"> 'closure' => 2,</td></tr>
<tr><td class="h"><a name="22"></a>22</td><td></td><td></td><td></td><td></td><td class="s"> 'deprecated' => 4,</td></tr>
<tr><td class="h"><a name="23"></a>23</td><td></td><td></td><td></td><td></td><td class="s"> 'exiting' => 6,</td></tr>
<tr><td class="h"><a name="24"></a>24</td><td></td><td></td><td></td><td></td><td class="s"> 'glob' => 8,</td></tr>
( run in 0.674 second using v1.01-cache-2.11-cpan-1e74a51a04c )