33 "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
44< html xmlns ="http://www.w3.org/1999/xhtml ">
55<!--
6- This file was generated by Devel::Cover Version 1.30
7- Devel::Cover is copyright 2001-2017 , Paul Johnson (paul@pjcj.net)
6+ This file was generated by Devel::Cover Version 1.33
7+ Devel::Cover is copyright 2001-2019 , Paul Johnson (paul@pjcj.net)
88Devel::Cover is free. It is licensed under the same terms as Perl itself.
99The latest version of Devel::Cover should be available from my homepage:
1010http://www.pjcj.net
@@ -25,7 +25,7 @@ <h1>Branch Coverage</h1>
2525< div > < br /> </ div >
2626< table >
2727< tr > < th > line</ th > < th > %</ th > < th colspan ="2 "> coverage</ th > < th > branch</ th > </ tr >
28- < tr > < td class ="h "> < a id ="L60 "> 60</ a > </ td > < td class ="c3 "> 100</ td > < td class ="c3 "> T</ td > < td class ="c3 "> F</ td > < td class ="s "> if (ref $cmd eq ' ;HASH' ;)</ td > </ tr >
28+ < tr > < td class ="h "> < a id ="L60 "> 60</ a > </ td > < td class ="c3 "> 100</ td > < td class ="c3 "> T</ td > < td class ="c3 "> F</ td > < td class ="s "> if (ref $cmd eq " ;HASH" ;)</ td > </ tr >
2929< tr > < td class ="h "> < a id ="L62 "> 62</ a > </ td > < td class ="c3 "> 100</ td > < td class ="c3 "> T</ td > < td class ="c3 "> F</ td > < td class ="s "> if (defined $cmd->{$key})</ td > </ tr >
3030< tr > < td class ="h "> < a id ="L70 "> 70</ a > </ td > < td class ="c3 "> 100</ td > < td class ="c3 "> T</ td > < td class ="c3 "> F</ td > < td class ="s "> if (utf8::is_utf8($tmp))</ td > </ tr >
3131< tr > < td class ="h "> < a id ="L81 "> 81</ a > </ td > < td class ="c3 "> 100</ td > < td class ="c3 "> T</ td > < td class ="c3 "> F</ td > < td class ="s "> if (length $sessid)</ td > </ tr >
@@ -49,7 +49,7 @@ <h1>Branch Coverage</h1>
4949< tr > < td class ="h "> < a id ="L331 "> 331</ a > </ td > < td class ="c3 "> 100</ td > < td class ="c3 "> T</ td > < td class ="c3 "> F</ td > < td class ="s "> if (defined $mycmd->{'FIRST'})</ td > </ tr >
5050< tr > < td class ="h "> < a id ="L337 "> 337</ a > </ td > < td class ="c3 "> 100</ td > < td class ="c3 "> T</ td > < td class ="c3 "> F</ td > < td class ="s "> if ($first < $total)</ td > </ tr >
5151< tr > < td class ="h "> < a id ="L409 "> 409</ a > </ td > < td class ="c3 "> 100</ td > < td class ="c3 "> T</ td > < td class ="c3 "> F</ td > < td class ="s "> if ($newkey ne $key)</ td > </ tr >
52- < tr > < td class ="h "> < a id ="L412 "> 412</ a > </ td > < td class ="c3 "> 100</ td > < td class ="c3 "> T</ td > < td class ="c3 "> F</ td > < td class ="s "> if (ref $cmd->{$newkey} eq ' ;ARRAY' ;)</ td > </ tr >
52+ < tr > < td class ="h "> < a id ="L412 "> 412</ a > </ td > < td class ="c3 "> 100</ td > < td class ="c3 "> T</ td > < td class ="c3 "> F</ td > < td class ="s "> if (ref $cmd->{$newkey} eq " ;ARRAY" ;)</ td > </ tr >
5353< tr > < td class ="h "> < a id ="L429 "> 429</ a > </ td > < td class ="c3 "> 100</ td > < td class ="c3 "> T</ td > < td class ="c3 "> F</ td > < td class ="s "> if ($cmd->{'COMMAND'} =~ /^CONVERTIDN$/imsux)</ td > </ tr >
5454< tr > < td class ="h "> < a id ="L433 "> 433</ a > </ td > < td class ="c3 "> 100</ td > < td class ="c3 "> T</ td > < td class ="c3 "> F</ td > < td class ="s "> if (scalar @keys == 0)</ td > </ tr >
5555< tr > < td class ="h "> < a id ="L440 "> 440</ a > </ td > < td class ="c3 "> 100</ td > < td class ="c3 "> T</ td > < td class ="c3 "> F</ td > < td class ="s "> if ($val =~ /[^[:lower:]\d. -]/imsux)</ td > </ tr >
0 commit comments