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

\$\^H.*=.*{

Game-Collisions

view release on metacpan or search on metacpan

nytprof/strict-pm-4-line.html view on Meta::CPAN

<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>

nytprof/vars-pm-8-lin view on Meta::CPAN

<tr><td class="h"><a name="13"></a>13</td><td class="c3&q <tr><td class="h"><a name="14"></a>14</td><td class="c3">1</td><td class="c3"><span title="Avg 7Âµ <tr><td class="h"><a name="15"></a>15</td><td class="c3">2</td><td class="c0"><span title="Avg 17Âµ <tr><td class="h"><a name="16"></a>16</td><td class="c3">2</td><td class="c3"><span title="Avg 4Âµ <tr><td class="h"><a name="17"></a>17</td><td></td><td></td><td></td><td></td><td class="s"> <tr><td class="h"><a name="18"></a>18</td><td></td><td></td><td></td><td></td><td class="s"> <tr><td class="h"><a name="19"></a>19</td><td></td><td></td><td></td><td></td><td class="s"> <tr><td class="h"><a name="20"></a>20</td><td></td><td></td><td></td><td></td><td class="s"> <tr><td class="h"><a name="21"></a>21</td><td></td><td></td><td></td><td></td><td class="s"> <tr><td class="h"><a name="22"></a>22</td><td></td><td></td><td></td><td></td><td class="s"> <tr><td class="h"><a name="23"></a>23</td><td></td><td></td><td></td><td></td><td class="s"> <tr><td class="h"><a name="24"></a>24</td><td></td><td></td><td></td><td></td><td class="s"> <tr><td class="h"><a name="25"></a>25</td><td></td><td></td><td></td><td></td><td class="s"> <tr><td class="h"><a name="26"></a>26</td><td></td><td></td><td></td><td></td><td class="s"> <tr><td class="h"><a name="27"></a>27</td><td></td><td></td><td></td><td></td><td class="s"> <tr><td class="h"><a name="28"></a>28</td><td class="c3">2</td><td class="c3"><span title="Avg 5Âµ <tr><td class="h"><a name="29"></a>29</td><td></td><td></td><td></td><td></td><td class="s"> <tr><td class="h"><a name="30"></a>30</td><td></td><td></td><td></td><td></td><td class="s"> <tr><td class="h"><a name="31"></a>31</td><td></td><td></td><td></td><td></td><td class="s"> <tr><td class="h"><a name="32"></a>32</td><td></td><td></td><td></td><td></td><td class="s"> <tr><td class="h"><a name="33"></a>33</td><td></td><td></td><td></td><td></td><td class="s">

e.html uot;>1</td><td class="c3"><span title="Avg 500ns">500ns</span></td><td></td><td></td><td class="s"> my ($sym, $ch);</td></tr> s">7Âµs</span></td><td></td><td></td><td class="s"> foreach (@imports) {</td></tr> ;s">34Âµs</span></td><td class="c3">2</td><td class="c3">10Âµs</td><td class="s"> if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) {<div class="calls... 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"> ... # time for a more-detailed check-up</td></tr> if ($sym =~ /^\w+[[{].*[]}]$/) {</td></tr> require Carp;</td></tr> Carp::croak("Can't declare individual elements of hash or array");</td></tr> } elsif (warnings::enabled() and length($sym) == 1 and $sym !~ tr/a-zA-Z//) {</td></tr> warnings::warn("No need to declare built-in vars");</td></tr> } elsif (($^H &= strict::bits('vars'))) {</td></tr> require Carp;</td></tr> Carp::croak("'$_' is not a valid variable name under strict vars");</td></tr> }</td></tr> }</td></tr> s">9Âµs</span></td><td class="c3">2</td><td class="c3">2Âµs</td><td class="s"> $sym = "${callpack}::$sym" unless $sym =~ /::/;<div ... *$sym =</td></tr> ( $ch eq "\$" ? \$$sym</td></tr> : $ch eq "\@" ? \@$sym</td></tr> : $ch eq "\%" ? \%$sym</td></tr> : $ch eq "\*" ? \*$sym</td></tr>

( run in 0.940 second using v1.01-cache-2.11-cpan-49f99fa48dc )