\(caller\)\[ results from the CPAN

Game-Collisions
<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/share/perl/5.26/strict.pm">/usr/share/perl/5.26/strict.pm</a></td></tr>
<tr><td class="h">Statements</td><td align="left">Executed 127 statements in 1.18ms</td></tr></table>
        
        <table id="subs_table" border="1" cellpadding="0" class="tablesorter floatHeaders">
        <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="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c1"><span title="0.0%">130Âµs</span></td><td class="c1"><span title="0.0%">144Âµs</span></td><td class="sub_name"><span style="display: none;">strict::::BEGIN@7</span>stric...
<tr><td class="c1">9</td><td class="c3">2</td><td class="c3">1</td><td class="c2"><span title="0.0%">89Âµs</span></td><td class="c3"><span title="0.0%">89Âµs</span></td><td class="sub_name"><span style="display: none;">strict::::bits</span>strict::<a...
<tr><td class="c2">8</td><td class="c0">8</td><td class="c0">5</td><td class="c3"><span title="0.0%">73Âµs</span></td><td class="c1"><span title="0.0%">149Âµs</span></td><td class="sub_name"><span style="display: none;">strict::::unimport</span>stric...
<tr><td class="c3">7</td><td class="c0">7</td><td class="c0">7</td><td class="c3"><span title="0.0%">43Âµs</span></td><td class="c3"><span title="0.0%">57Âµs</span></td><td class="sub_name"><span style="display: none;">strict::::import</span>strict::...
<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;">strict::::CORE:match</span>stri...
<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;">strict::::__ANON__[:31]</span>strict:...
<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;">strict::::__ANON__[:37]</span>strict:...
</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-strict-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 strict;</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">1</td><td class="c3"><span title="Avg 2Âµs">2Âµs</span></td><td></td><td></td><td class="s">$strict::VERSION = &quot;1.11&quot;;</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 &quot;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">        &amp;&amp; __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 =&gt; 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 =&gt; 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 =&gt; 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>
<tr><td class="h"><a name="22"></a>22</td><td></td><td></td><td></td><td></td><td class="s">        refs =&gt; 0x00000020,</td></tr>
<tr><td class="h"><a name="23"></a>23</td><td></td><td></td><td></td><td></td><td class="s">        subs =&gt; 0x00000040,</td></tr>
<tr><td class="h"><a name="24"></a>24</td><td></td><td></td><td></td><td></td><td class="s">        vars =&gt; 0x00000080,</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"></td></tr>
<tr><td class="h"><a name="27"></a>27</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">    my $bits = 0;</td></tr>
<tr><td class="h"><a name="28"></a>28</td><td class="c3">1</td><td class="c2"><span title="Avg 11Âµs">11Âµs</span></td><td></td><td></td><td class="s">    $bits |= $_ for values %bitmask;</td></tr>
<tr><td class="h"><a name="29"></a>29</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="30"></a>30</td><td class="c3">1</td><td class="c3"><span title="Avg 600ns">600ns</span></td><td></td><td></td><td class="s">    my $inline_all_bits = $bits;</td></tr>
<tr><td class="h"><a name="31"></a>31</td><td class="c3">1</td><td class="c0"><span title="Avg 29Âµs">29Âµs</span></td><td></td><td></td><td class="s">    *all_bits = sub () { $inline_all_bits };</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 class="c3">1</td><td class="c3"><span title="Avg 500ns">500ns</span></td><td></td><td></td><td class="s">    $bits = 0;</td></tr>
<tr><td class="h"><a name="34"></a>34</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">    $bits |= $_ for values %explicit_bitmask;</td></tr>
<tr><td class="h"><a name="35"></a>35</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="36"></a>36</td><td class="c3">1</td><td class="c3"><span title="Avg 600ns">600ns</span></td><td></td><td></td><td class="s">    my $inline_all_explicit_bits = $bits;</td></tr>
<tr><td class="h"><a name="37"></a>37</td><td class="c3">1</td><td class="c0"><span title="Avg 22Âµs">22Âµs</span></td><td></td><td></td><td class="s">    *all_explicit_bits = sub () { $inline_all_explicit_bits };</td></tr>
<tr><td class="h"><a name="38"></a>38</td><td class="c3">1</td><td class="c0"><span title="Avg 780Âµs">780Âµs</span></td><td class="c3">1</td><td class="c1">144Âµs</td><td class="s">}<div class="calls"><div class="calls_out"># spent   144Âµs making 1...
<tr><td class="h"><a name="39"></a>39</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="40"></a>40</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 89Âµs within strict::bits which was called 9 times, avg 10Âµs/call:
# 8 times (76Âµs+0s) by strict::unimport at <a href="strict-pm-4-line.html#69">line 69</a>, avg 9Âµs/call
#    once (14Âµs+0s) by strict::import at <a href="strict-pm-4-line.html#62">line 62</a></div></div>sub bits {</td></tr>
<tr><td class="h"><a name="41"></a>41</td><td class="c0">9</td><td class="c3"><span title="Avg 567ns">5Âµs</span></td><td></td><td></td><td class="s">    my $bits = 0;</td></tr>
<tr><td class="h"><a name="42"></a>42</td><td class="c0">9</td><td class="c3"><span title="Avg 500ns">4Âµs</span></td><td></td><td></td><td class="s">    my @wrong;</td></tr>
<tr><td class="h"><a name="43"></a>43</td><td class="c0">9</td><td class="c3"><span title="Avg 1Âµs">10Âµs</span></td><td></td><td></td><td class="s">    foreach my $s (@_) {</td></tr>
<tr><td class="h"><a name="44"></a>44</td><td class="c0">10</td><td class="c1"><span title="Avg 2Âµs">17Âµs</span></td><td></td><td></td><td class="s">        if (exists $bitmask{$s}) {</td></tr>
<tr><td class="h"><a name="45"></a>45</td><td class="c0">10</td><td class="c1"><span title="Avg 2Âµs">19Âµs</span></td><td></td><td></td><td class="s">            $^H |= $explicit_bitmask{$s};</td></tr>
<tr><td class="h"><a name="46"></a>46</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="47"></a>47</td><td class="c0">10</td><td class="c3"><span title="Avg 630ns">6Âµs</span></td><td></td><td></td><td class="s">            $bits |= $bitmask{$s};</td></tr>
<tr><td class="h"><a name="48"></a>48</td><td></td><td></td><td></td><td></td><td class="s">        }</td></tr>
<tr><td class="h"><a name="49"></a>49</td><td></td><td></td><td></td><td></td><td class="s">        else {</td></tr>
<tr><td class="h"><a name="50"></a>50</td><td></td><td></td><td></td><td></td><td class="s">            push @wrong, $s;</td></tr>
<tr><td class="h"><a name="51"></a>51</td><td></td><td></td><td></td><td></td><td class="s">        }</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 class="c0">9</td><td class="c3"><span title="Avg 678ns">6Âµs</span></td><td></td><td></td><td class="s">    if (@wrong) {</td></tr>
<tr><td class="h"><a name="54"></a>54</td><td></td><td></td><td></td><td></td><td class="s">        require Carp;</td></tr>
<tr><td class="h"><a name="55"></a>55</td><td></td><td></td><td></td><td></td><td class="s">        Carp::croak(&quot;Unknown 'strict' tag(s) '@wrong'&quot;);</td></tr>
<tr><td class="h"><a name="56"></a>56</td><td></td><td></td><td></td><td></td><td class="s">    }</td></tr>
<tr><td class="h"><a name="57"></a>57</td><td class="c0">9</td><td class="c0"><span title="Avg 6Âµs">51Âµs</span></td><td></td><td></td><td class="s">    $bits;</td></tr>
<tr><td class="h"><a name="58"></a>58</td><td></td><td></td><td></td><td></td><td class="s">}</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"><div class="calls"><div class="calls_in"># spent 57Âµs (43+14) within strict::import which was called 7 times, avg 8Âµs/call:
#    once (10Âµs+14Âµs) by vars::BEGIN@8 at <a href="vars-pm-8-line.html#8">line 8 of vars.pm</a>
#    once (14Âµs+0s) by Time::HiRes::BEGIN@4 at <a href="Time-HiRes-pm-3-line.html#4">line 4 of Time/HiRes.pm</a>
#    once (6Âµs+0s) by Config::BEGIN@9 at <a href="Config-pm-7-line.html#9">line 9 of Config.pm</a>
#    once (4Âµs+0s) by Exporter::Heavy::BEGIN@3 at <a href="Exporter-Heavy-pm-11-line.html#3">line 3 of Exporter/Heavy.pm</a>
#    once (3Âµs+0s) by constant::BEGIN@3 at <a href="constant-pm-19-line.html#3">line 3 of constant.pm</a>
#    once (3Âµs+0s) by List::Util::BEGIN@9 at <a href="List-Util-pm-13-line.html#9">line 9 of List/Util.pm</a>
#    once (2Âµs+0s) by Scalar::Util::BEGIN@9 at <a href="Scalar-Util-pm-17-line.html#9">line 9 of Scalar/Util.pm</a></div></div>sub import {</td></tr>
<tr><td class="h"><a name="61"></a>61</td><td class="c0">7</td><td class="c3"><span title="Avg 557ns">4Âµs</span></td><td></td><td></td><td class="s">    shift;</td></tr>
<tr><td class="h"><a name="62"></a>62</td><td class="c0">7</td><td class="c0"><span title="Avg 10Âµs">72Âµs</span></td><td class="c3">1</td><td class="c3">14Âµs</td><td class="s">    $^H |= @_ ? &amp;bits : all_bits | all_explicit_bits;<div class="ca...
( run in 1.399 second using v1.01-cache-2.11-cpan-364913b4093 )