\$\^H.*=.*{ results from the CPAN

\$\^H.*=.*{
Game-Collisions
view release on metacpan or search on metacpan
nytprof/vars-pm-8-line.html view on Meta::CPAN
        <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="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c0"><span title="0.0%">442Âµs</span></td><td class="c0"><span title="0.0%">620Âµs</span></td><td class="sub_name"><span style="display: none;">vars::::BEGIN@7</span>vars::<...
<tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c1"><span title="0.0%">62Âµs</span></td><td class="c1"><span title="0.0%">78Âµs</span></td><td class="sub_name"><span style="display: none;">vars::::import</span>vars::<a h...
<tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">30Âµs</span></td><td class="c3"><span title="0.0%">30Âµs</span></td><td class="sub_name"><span style="display: none;">vars::::BEGIN@3</span>vars::<a ...
<tr><td class="c0">6</td><td class="c0">3</td><td class="c3">1</td><td class="c3"><span title="0.0%">15Âµs</span></td><td class="c3"><span title="0.0%">15Âµs</span></td><td class="sub_name"><span style="display: none;">vars::::CORE:match</span>vars::...
<tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">13Âµs</span></td><td class="c3"><span title="0.0%">36Âµs</span></td><td class="sub_name"><span style="display: none;">vars::::BEGIN@8</span>vars::<a ...
</tbody></table>
                Call graph for these subroutines as a
                <a href="http://en.wikipedia.org/wiki/Graphviz">Graphviz</a>
                <a href="usr-share-perl-5-26-vars-pm.dot">dot language file</a>.
            
      <table border="1" cellpadding="0" class="floatHeaders">
      <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">package vars;</td></tr>
<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">2</td><td class="c0"><span title="Avg 57Âµs">114Âµs</span></td><td class="c3">1</td><td class="c3">30Âµs</td><td class="s"><div class="calls"><div class="calls_in"># spent 30Âµs within vars::BEGI...
#    once (30Âµs+0s) by Config::BEGIN@11 at <a href="vars-pm-8-line.html#3">line 3</a></div></div>use 5.006;<div class="calls"><div class="calls_out"># spent    30Âµs making 1 call to <a href="vars-pm-8-line.html#3">vars::BEGIN@3</a></div></div></td>...
<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 1Âµs">1Âµs</span></td><td></td><td></td><td class="s">our $VERSION = '1.03';</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 class="c3">2</td><td class="c0"><span title="Avg 243Âµs">485Âµs</span></td><td class="c3">2</td><td class="c0">797Âµs</td><td class="s"><div class="calls"><div class="calls_in"># spent 620Âµs (442+177) with...
#    once (442Âµs+177Âµs) by Config::BEGIN@11 at <a href="vars-pm-8-line.html#7">line 7</a></div></div>use warnings::register;<div class="calls"><div class="calls_out"># spent   620Âµs making 1 call to <a href="vars-pm-8-line.html#7">vars::BEGIN@7</a...
# spent   177Âµ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="8"></a>8</td><td class="c3">2</td><td class="c0"><span title="Avg 379Âµs">759Âµs</span></td><td class="c3">2</td><td class="c1">60Âµs</td><td class="s"><div class="calls"><div class="calls_in"># spent 36Âµs (13+24) within v...
#    once (13Âµs+24Âµs) by Config::BEGIN@11 at <a href="vars-pm-8-line.html#8">line 8</a></div></div>use strict qw(vars subs);<div class="calls"><div class="calls_out"># spent    36Âµs making 1 call to <a href="vars-pm-8-line.html#8">vars::BEGIN@8</a...
# spent    24Âµs making 1 call to <a href="strict-pm-4-line.html#60">strict::import</a></div></div></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"><div class="calls"><div class="calls_in"># spent 78Âµs (62+15) within vars::import which was called:
#    once (62Âµs+15Âµs) by Config::BEGIN@11 at <a href="Config-pm-7-line.html#11">line 11 of Config.pm</a></div></div>sub import {</td></tr>
<tr><td class="h"><a name="11"></a>11</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">    my $callpack = caller;</td></tr>
<tr><td class="h"><a name="12"></a>12</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">    my (undef, @imports) = @_;</td></tr>
<tr><td class="h"><a name="13"></a>13</td><td class="c3">1</td><td class="c3"><span title="Avg 500ns">500ns</span></td><td></td><td></td><td class="s">    my ($sym, $ch);</td></tr>
<tr><td class="h"><a name="14"></a>14</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">    foreach (@imports) {</td></tr>
<tr><td class="h"><a name="15"></a>15</td><td class="c3">2</td><td class="c0"><span title="Avg 17Âµs">34Âµs</span></td><td class="c3">2</td><td class="c3">10Âµs</td><td class="s">        if (($ch, $sym) = /^([\$\@\%\*\&amp;])(.+)/) {<div class="calls...
<tr><td class="h"><a name="16"></a>16</td><td class="c3">2</td><td class="c3"><span title="Avg 4Âµs">9Âµs</span></td><td class="c3">2</td><td class="c3">3Âµs</td><td class="s">            if ($sym =~ /\W/) {<div class="calls"><div class="calls_out"> ...
<tr><td class="h"><a name="17"></a>17</td><td></td><td></td><td></td><td></td><td class="s">                # time for a more-detailed check-up</td></tr>
<tr><td class="h"><a name="18"></a>18</td><td></td><td></td><td></td><td></td><td class="s">                if ($sym =~ /^\w+[[{].*[]}]$/) {</td></tr>
<tr><td class="h"><a name="19"></a>19</td><td></td><td></td><td></td><td></td><td class="s">                    require Carp;</td></tr>
<tr><td class="h"><a name="20"></a>20</td><td></td><td></td><td></td><td></td><td class="s">                    Carp::croak(&quot;Can't declare individual elements of hash or array&quot;);</td></tr>
<tr><td class="h"><a name="21"></a>21</td><td></td><td></td><td></td><td></td><td class="s">                } elsif (warnings::enabled() and length($sym) == 1 and $sym !~ tr/a-zA-Z//) {</td></tr>
<tr><td class="h"><a name="22"></a>22</td><td></td><td></td><td></td><td></td><td class="s">                    warnings::warn(&quot;No need to declare built-in vars&quot;);</td></tr>
<tr><td class="h"><a name="23"></a>23</td><td></td><td></td><td></td><td></td><td class="s">                } elsif  (($^H &amp;= strict::bits('vars'))) {</td></tr>
<tr><td class="h"><a name="24"></a>24</td><td></td><td></td><td></td><td></td><td class="s">                    require Carp;</td></tr>
<tr><td class="h"><a name="25"></a>25</td><td></td><td></td><td></td><td></td><td class="s">                    Carp::croak(&quot;'$_' is not a valid variable name under strict vars&quot;);</td></tr>
<tr><td class="h"><a name="26"></a>26</td><td></td><td></td><td></td><td></td><td class="s">                }</td></tr>
<tr><td class="h"><a name="27"></a>27</td><td></td><td></td><td></td><td></td><td class="s">            }</td></tr>
<tr><td class="h"><a name="28"></a>28</td><td class="c3">2</td><td class="c3"><span title="Avg 5Âµs">9Âµs</span></td><td class="c3">2</td><td class="c3">2Âµs</td><td class="s">            $sym = &quot;${callpack}::$sym&quot; unless $sym =~ /::/;<div ...
<tr><td class="h"><a name="29"></a>29</td><td></td><td></td><td></td><td></td><td class="s">            *$sym =</td></tr>
<tr><td class="h"><a name="30"></a>30</td><td></td><td></td><td></td><td></td><td class="s">                (  $ch eq &quot;\$&quot; ? \$$sym</td></tr>
<tr><td class="h"><a name="31"></a>31</td><td></td><td></td><td></td><td></td><td class="s">                 : $ch eq &quot;\@&quot; ? \@$sym</td></tr>
<tr><td class="h"><a name="32"></a>32</td><td></td><td></td><td></td><td></td><td class="s">                 : $ch eq &quot;\%&quot; ? \%$sym</td></tr>
<tr><td class="h"><a name="33"></a>33</td><td></td><td></td><td></td><td></td><td class="s">                 : $ch eq &quot;\*&quot; ? \*$sym</td></tr>
<tr><td class="h"><a name="34"></a>34</td><td></td><td></td><td></td><td></td><td class="s">                 : $ch eq &quot;\&amp;&quot; ? \&amp;$sym </td></tr>
<tr><td class="h"><a name="35"></a>35</td><td class="c3">2</td><td class="c2"><span title="Avg 8Âµs">15Âµs</span></td><td></td><td></td><td class="s">                 : do {</td></tr>
<tr><td class="h"><a name="36"></a>36</td><td></td><td></td><td></td><td></td><td class="s">                     require Carp;</td></tr>
<tr><td class="h"><a name="37"></a>37</td><td></td><td></td><td></td><td></td><td class="s">                     Carp::croak(&quot;'$_' is not a valid variable name&quot;);</td></tr>
<tr><td class="h"><a name="38"></a>38</td><td></td><td></td><td></td><td></td><td class="s">                 });</td></tr>
<tr><td class="h"><a name="39"></a>39</td><td></td><td></td><td></td><td></td><td class="s">        } else {</td></tr>
<tr><td class="h"><a name="40"></a>40</td><td></td><td></td><td></td><td></td><td class="s">            require Carp;</td></tr>
<tr><td class="h"><a name="41"></a>41</td><td></td><td></td><td></td><td></td><td class="s">            Carp::croak(&quot;'$_' is not a valid variable name&quot;);</td></tr>
<tr><td class="h"><a name="42"></a>42</td><td></td><td></td><td></td><td></td><td class="s">        }</td></tr>
<tr><td class="h"><a name="43"></a>43</td><td></td><td></td><td></td><td></td><td class="s">    }</td></tr>
<tr><td class="h"><a name="44"></a>44</td><td></td><td></td><td></td><td></td><td class="s">};</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 class="c3">1</td><td class="c3"><span title="Avg 8Âµs">8Âµs</span></td><td></td><td></td><td class="s">1;</td></tr>
<tr><td class="h"><a name="47"></a>47</td><td></td><td></td><td></td><td></td><td class="s">__END__</td></tr>
<tr><td class="s"><a name=""></a>&nbsp;</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="vars__CORE_match"></a></td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 15Âµs within vars::CORE:match which was called 6 times, avg 3Âµs/call:
# 2 times (10Âµs+0s) by vars::import at <a href="vars-pm-8-line.html#15">line 15</a>, avg 5Âµs/call
# 2 times (3Âµs+0s) by vars::import at <a href="vars-pm-8-line.html#16">line 16</a>, avg 2Âµs/call
# 2 times (2Âµs+0s) by vars::import at <a href="vars-pm-8-line.html#28">line 28</a>, avg 900ns/call</div></div>sub vars::CORE:match; # 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' }
            }
        });
        $(".floatHeaders").each( function(){ $(this).floatThead(); } );

        show_fragment_target();
        $(window).on('hashchange', function(e){
          show_fragment_target();
        });

    
 } );
            </script>
        
        <div class="footer">Report produced by the
        <a href="http://metacpan.org/release/Devel-NYTProf/">NYTProf 6.06</a>
        Perl profiler, developed by
        <a href="http://www.linkedin.com/in/timbunce">Tim Bunce</a> based on
        work by Adam Kaplan and Salvador FandiÃ±o GarcÃa.
        </div>
        <br /><br /><br /><br /><br /><br /><br /><br /><br /><br />
    </body></html>
( run in 0.998 second using v1.01-cache-2.11-cpan-5c0b1e786e0 )