Game-Collisions
view release on metacpan or search on metacpan
nytprof/strict-pm-4-line.html view on Meta::CPAN
<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 = "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>
<tr><td class="h"><a name="22"></a>22</td><td></td><td></td><td></td><td></td><td class="s"> refs => 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 => 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 => 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("Unknown 'strict' tag(s) '@wrong'");</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 |= @_ ? &bits : all_bits | all_explicit_bits;<div class="ca...
<tr><td class="h"><a name="63"></a>63</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="64"></a>64</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="65"></a>65</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 149µs (73+76) within strict::unimport which was called 8 times, avg 19µs/call:
# once (28µs+23µs) by Time::HiRes::BEGIN@48 at <a href="Time-HiRes-pm-3-line.html#48">line 48 of Time/HiRes.pm</a>
# once (11µs+12µs) by Config::BEGIN@47 at <a href="Config-pm-7-line.html#47">line 47 of Config.pm</a>
# once (5µs+10µs) by constant::BEGIN@90 at <a href="constant-pm-19-line.html#90">line 90 of constant.pm</a>
# once (8µs+7µs) by Exporter::Heavy::BEGIN@4 at <a href="Exporter-Heavy-pm-11-line.html#4">line 4 of Exporter/Heavy.pm</a>
# once (6µs+7µs) by constant::BEGIN@40 at <a href="constant-pm-19-line.html#40">line 40 of constant.pm</a>
# once (5µs+6µs) by List::Util::BEGIN@31 at <a href="List-Util-pm-13-line.html#31">line 31 of List/Util.pm</a>
# once (5µs+6µs) by constant::BEGIN@65 at <a href="constant-pm-19-line.html#65">line 65 of constant.pm</a>
# once (5µs+5µs) by constant::BEGIN@141 at <a href="constant-pm-19-line.html#141">line 141 of constant.pm</a></div></div>sub unimport {</td></tr>
<tr><td class="h"><a name="66"></a>66</td><td class="c0">8</td><td class="c3"><span title="Avg 550ns">4µs</span></td><td></td><td></td><td class="s"> shift;</td></tr>
<tr><td class="h"><a name="67"></a>67</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="68"></a>68</td><td class="c0">8</td><td class="c0"><span title="Avg 4µs">36µs</span></td><td></td><td></td><td class="s"> if (@_) {</td></tr>
<tr><td class="h"><a name="69"></a>69</td><td class="c0">8</td><td class="c0"><span title="Avg 3µs">25µs</span></td><td class="c0">8</td><td class="c3">76µs</td><td class="s"> $^H &= ~&bits;<div class="calls"><div class="calls_out">...
<tr><td class="h"><a name="70"></a>70</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="71"></a>71</td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr>
<tr><td class="h"><a name="72"></a>72</td><td></td><td></td><td></td><td></td><td class="s"> $^H &= ~all_bits;</td></tr>
<tr><td class="h"><a name="73"></a>73</td><td></td><td></td><td></td><td></td><td class="s"> $^H |= all_explicit_bits;</td></tr>
<tr><td class="h"><a name="74"></a>74</td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h"><a name="75"></a>75</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h"><a name="76"></a>76</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="77"></a>77</td><td class="c3">1</td><td class="c1"><span title="Avg 15µs">15µs</span></td><td></td><td></td><td class="s">1;</td></tr>
<tr><td class="h"><a name="78"></a>78</td><td></td><td></td><td></td><td></td><td class="s">__END__</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="strict__CORE_match"></a></td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 14µs within strict::CORE:match which was called:
# once (14µs+0s) by strict::BEGIN@7 at <a href="strict-pm-4-line.html#11">line 11</a></div></div>sub strict::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' },
( run in 1.464 second using v1.01-cache-2.11-cpan-5c0b1e786e0 )