|
3 | 3 | "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> |
4 | 4 | <html xmlns="http://www.w3.org/1999/xhtml"> |
5 | 5 | <!-- |
6 | | -This file was generated by Devel::Cover Version 1.33 |
7 | | -Devel::Cover is copyright 2001-2019, Paul Johnson (paul@pjcj.net) |
| 6 | +This file was generated by Devel::Cover Version 1.30 |
| 7 | +Devel::Cover is copyright 2001-2017, Paul Johnson (paul@pjcj.net) |
8 | 8 | Devel::Cover is free. It is licensed under the same terms as Perl itself. |
9 | 9 | The latest version of Devel::Cover should be available from my homepage: |
10 | 10 | http://www.pjcj.net |
|
20 | 20 | <h1>Branch Coverage</h1> |
21 | 21 | <table> |
22 | 22 | <tr><td class="h" align="right">File:</td><td align="left">blib/lib/WebService/Hexonet/Connector/APIClient.pm</td></tr> |
23 | | -<tr><td class="h" align="right">Coverage:</td><td align="left" class="c1">85.0%</td></tr> |
| 23 | +<tr><td class="h" align="right">Coverage:</td><td align="left" class="c1">85.9%</td></tr> |
24 | 24 | </table> |
25 | 25 | <div><br/></div> |
26 | 26 | <table> |
27 | 27 | <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> |
29 | | -<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> |
30 | | -<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> |
31 | | -<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> |
32 | | -<tr><td class="h"><a id="L96">96</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">unless (length $self->{'ua'})</td></tr> |
33 | | -<tr><td class="h"><a id="L118">118</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">if (exists $self->{'curlopts'}{'PROXY'})</td></tr> |
34 | | -<tr><td class="h"><a id="L127">127</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">if (length $proxy == 0) { }</td></tr> |
35 | | -<tr><td class="h"><a id="L138">138</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">if (exists $self->{'curlopts'}{'REFERER'})</td></tr> |
36 | | -<tr><td class="h"><a id="L147">147</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">if (length $referer == 0) { }</td></tr> |
37 | | -<tr><td class="h"><a id="L229">229</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">if ($rr->isSuccess)</td></tr> |
38 | | -<tr><td class="h"><a id="L232">232</a></td><td class="c0">50</td><td class="c3">T</td><td class="c0">F</td><td class="s">if (defined $col)</td></tr> |
39 | | -<tr><td class="h"><a id="L246">246</a></td><td class="c0">50</td><td class="c3">T</td><td class="c0">F</td><td class="s">unless (defined $otpc)</td></tr> |
40 | | -<tr><td class="h"><a id="L255">255</a></td><td class="c0">50</td><td class="c3">T</td><td class="c0">F</td><td class="s">if ($rr->isSuccess)</td></tr> |
41 | | -<tr><td class="h"><a id="L258">258</a></td><td class="c0">50</td><td class="c3">T</td><td class="c0">F</td><td class="s">if (defined $col)</td></tr> |
42 | | -<tr><td class="h"><a id="L271">271</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">if ($rr->isSuccess)</td></tr> |
43 | | -<tr><td class="h"><a id="L294">294</a></td><td class="c0">50</td><td class="c0">T</td><td class="c3">F</td><td class="s">if ($referer)</td></tr> |
44 | | -<tr><td class="h"><a id="L298">298</a></td><td class="c0">50</td><td class="c0">T</td><td class="c3">F</td><td class="s">if ($proxy)</td></tr> |
45 | | -<tr><td class="h"><a id="L304">304</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">if ($r->is_success) { }</td></tr> |
46 | | -<tr><td class="h"><a id="L306">306</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">if ($self->{'debugMode'})</td></tr> |
47 | | -<tr><td class="h"><a id="L314">314</a></td><td class="c0">50</td><td class="c0">T</td><td class="c3">F</td><td class="s">if ($self->{'debugMode'})</td></tr> |
48 | | -<tr><td class="h"><a id="L327">327</a></td><td class="c0">50</td><td class="c0">T</td><td class="c3">F</td><td class="s">if (defined $mycmd->{'LAST'})</td></tr> |
49 | | -<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> |
50 | | -<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> |
51 | | -<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> |
53 | | -<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> |
54 | | -<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> |
55 | | -<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> |
56 | | -<tr><td class="h"><a id="L450">450</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">if ($r->isSuccess)</td></tr> |
57 | | -<tr><td class="h"><a id="L452">452</a></td><td class="c0">50</td><td class="c3">T</td><td class="c0">F</td><td class="s">if ($col)</td></tr> |
| 28 | +<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 $secured and $secured == 1)</td></tr> |
| 29 | +<tr><td class="h"><a id="L63">63</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> |
| 30 | +<tr><td class="h"><a id="L65">65</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> |
| 31 | +<tr><td class="h"><a id="L74">74</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">if (defined $secured and $secured == 1)</td></tr> |
| 32 | +<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 (utf8::is_utf8($tmp))</td></tr> |
| 33 | +<tr><td class="h"><a id="L89">89</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> |
| 34 | +<tr><td class="h"><a id="L104">104</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">unless (length $self->{'ua'})</td></tr> |
| 35 | +<tr><td class="h"><a id="L126">126</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">if (exists $self->{'curlopts'}{'PROXY'})</td></tr> |
| 36 | +<tr><td class="h"><a id="L135">135</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">if (length $proxy == 0) { }</td></tr> |
| 37 | +<tr><td class="h"><a id="L146">146</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">if (exists $self->{'curlopts'}{'REFERER'})</td></tr> |
| 38 | +<tr><td class="h"><a id="L155">155</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">if (length $referer == 0) { }</td></tr> |
| 39 | +<tr><td class="h"><a id="L237">237</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">if ($rr->isSuccess)</td></tr> |
| 40 | +<tr><td class="h"><a id="L240">240</a></td><td class="c0">50</td><td class="c3">T</td><td class="c0">F</td><td class="s">if (defined $col)</td></tr> |
| 41 | +<tr><td class="h"><a id="L254">254</a></td><td class="c0">50</td><td class="c3">T</td><td class="c0">F</td><td class="s">unless (defined $otpc)</td></tr> |
| 42 | +<tr><td class="h"><a id="L263">263</a></td><td class="c0">50</td><td class="c3">T</td><td class="c0">F</td><td class="s">if ($rr->isSuccess)</td></tr> |
| 43 | +<tr><td class="h"><a id="L266">266</a></td><td class="c0">50</td><td class="c3">T</td><td class="c0">F</td><td class="s">if (defined $col)</td></tr> |
| 44 | +<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 ($rr->isSuccess)</td></tr> |
| 45 | +<tr><td class="h"><a id="L303">303</a></td><td class="c0">50</td><td class="c0">T</td><td class="c3">F</td><td class="s">if ($referer)</td></tr> |
| 46 | +<tr><td class="h"><a id="L307">307</a></td><td class="c0">50</td><td class="c0">T</td><td class="c3">F</td><td class="s">if ($proxy)</td></tr> |
| 47 | +<tr><td class="h"><a id="L312">312</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">if ($r->is_success) { }</td></tr> |
| 48 | +<tr><td class="h"><a id="L314">314</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">if ($self->{'debugMode'})</td></tr> |
| 49 | +<tr><td class="h"><a id="L322">322</a></td><td class="c0">50</td><td class="c0">T</td><td class="c3">F</td><td class="s">if ($self->{'debugMode'})</td></tr> |
| 50 | +<tr><td class="h"><a id="L335">335</a></td><td class="c0">50</td><td class="c0">T</td><td class="c3">F</td><td class="s">if (defined $mycmd->{'LAST'})</td></tr> |
| 51 | +<tr><td class="h"><a id="L339">339</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> |
| 52 | +<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 ($first < $total)</td></tr> |
| 53 | +<tr><td class="h"><a id="L417">417</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> |
| 54 | +<tr><td class="h"><a id="L420">420</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> |
| 55 | +<tr><td class="h"><a id="L437">437</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> |
| 56 | +<tr><td class="h"><a id="L441">441</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> |
| 57 | +<tr><td class="h"><a id="L448">448</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> |
| 58 | +<tr><td class="h"><a id="L458">458</a></td><td class="c3">100</td><td class="c3">T</td><td class="c3">F</td><td class="s">if ($r->isSuccess)</td></tr> |
| 59 | +<tr><td class="h"><a id="L460">460</a></td><td class="c0">50</td><td class="c3">T</td><td class="c0">F</td><td class="s">if ($col)</td></tr> |
58 | 60 | </table> |
59 | 61 | </body> |
60 | 62 | </html> |
0 commit comments