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 ="L57 "> 57</ 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 ="L57 "> 57</ 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 ="L59 "> 59</ 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 ="L67 "> 67</ 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 ="L78 "> 78</ 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 >
@@ -43,7 +43,7 @@ <h1>Branch Coverage</h1>
4343< tr > < td class ="h "> < a id ="L279 "> 279</ 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 >
4444< tr > < td class ="h "> < a id ="L285 "> 285</ 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 >
4545< tr > < td class ="h "> < a id ="L345 "> 345</ 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 >
46- < tr > < td class ="h "> < a id ="L348 "> 348</ 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 >
46+ < tr > < td class ="h "> < a id ="L348 "> 348</ 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 >
4747< tr > < td class ="h "> < a id ="L365 "> 365</ 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 >
4848< tr > < td class ="h "> < a id ="L369 "> 369</ 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 >
4949< tr > < td class ="h "> < a id ="L376 "> 376</ 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