| line |
true |
false |
branch |
|
59
|
0 |
0 |
if ('US' eq uc $country) { } |
|
67
|
1 |
11 |
if (not $$self{'patent'}{'doc_type'} and length $$self{'patent'}{'number'} == 11) { } |
|
|
7 |
4 |
elsif ($$self{'patent'}{'doc_type'}) { } |
|
81
|
1 |
18 |
if ($url =~ /$$self{'patent'}{'number'}/ and $text =~ /$$self{'patent'}{'number'}/) |
|
112
|
12 |
0 |
if ($response->is_success) { } |
|
119
|
10 |
2 |
if ($entry = $p->header('Refresh')) |
|
125
|
0 |
10 |
unless $request = 'HTTP::Request'->new('GET', "$entry") |
|
131
|
1 |
11 |
if ($html =~ /No patents have matched your query/) |
|
139
|
0 |
11 |
unless ($html =~ s[.*?.*?][\n\nUS ]is) </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#145">145</a>
</td>
<td class="c0"> 0 </td>
<td class="c3"> 11 </td>
<td class="s"> unless ($html =~ s[<head>.*(<title>)\D+][<head><!-- Modified by perl module WWW::Patent::Page from information provided by http://www.uspto.gov ; dedicated to public ; use at own risk -->\n<title>US ]is) </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#151">151</a>
</td>
<td class="c0"> 0 </td>
<td class="c3"> 11 </td>
<td class="s"> unless ($html =~ s/<title>\D+/<title>US /is) </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#156">156</a>
</td>
<td class="c0"> 0 </td>
<td class="c3"> 11 </td>
<td class="s"> unless ($html =~ s/<body.*?<hr>/<body><HR>/is) </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#159">159</a>
</td>
<td class="c0"> 0 </td>
<td class="c3"> 11 </td>
<td class="s"> unless ($html =~ s[(.*)<hr>(.*)body>][$1</body>]is) </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#179">179</a>
</td>
<td class="c0"> 0 </td>
<td class="c3"> 1 </td>
<td class="s"> if ($$self{'patent'}{'number'} =~ /(0|1|2|3|4)\d$/) { } </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#188">188</a>
</td>
<td class="c0"> 0 </td>
<td class="c3"> 1 </td>
<td class="s"> if ($$self{'patent'}{'doc_type'}) { } </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#205">205</a>
</td>
<td class="c3"> 1 </td>
<td class="c0"> 0 </td>
<td class="s"> if ($html =~ /NumPages=(\d+)/) { } </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#"></a>
</td>
<td class="c0"> 0 </td>
<td class="c0"> 0 </td>
<td class="s"> elsif ($html =~ /(\d+)\s+of\s+(\d+)\s+pages/) { } </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#224">224</a>
</td>
<td class="c3"> 1 </td>
<td class="c3"> 1 </td>
<td class="s"> if ($url =~ /$$self{'patent'}{'number'}/) </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#235">235</a>
</td>
<td class="c0"> 0 </td>
<td class="c3"> 1 </td>
<td class="s"> unless $request = 'HTTP::Request'->new('GET', "$url") </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#244">244</a>
</td>
<td class="c0"> 0 </td>
<td class="c0"> 0 </td>
<td class="s"> if ($url =~ m[image/tiff]) </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#249">249</a>
</td>
<td class="c0"> 0 </td>
<td class="c3"> 1 </td>
<td class="s"> unless $request = 'HTTP::Request'->new('GET', "$url") </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#263">263</a>
</td>
<td class="c0"> 0 </td>
<td class="c3"> 1 </td>
<td class="s"> if $$self{'patent'}{'tempdir'} </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#299">299</a>
</td>
<td class="c0"> 0 </td>
<td class="c3"> 1 </td>
<td class="s"> if ($$self{'patent'}{'number'} =~ /(0|1|2|3|4)\d$/) { } </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#307">307</a>
</td>
<td class="c0"> 0 </td>
<td class="c3"> 1 </td>
<td class="s"> if ($$self{'patent'}{'doc_type'}) { } </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#323">323</a>
</td>
<td class="c3"> 1 </td>
<td class="c0"> 0 </td>
<td class="s"> if ($html =~ /NumPages=(\d+)/) { } </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#"></a>
</td>
<td class="c0"> 0 </td>
<td class="c0"> 0 </td>
<td class="s"> elsif ($html =~ /(\d+)\s+of\s+(\d+)\s+pages/) { } </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#341">341</a>
</td>
<td class="c3"> 1 </td>
<td class="c3"> 1 </td>
<td class="s"> if ($url =~ /$$self{'patent'}{'number'}/) </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#346">346</a>
</td>
<td class="c3"> 1 </td>
<td class="c0"> 0 </td>
<td class="s"> if (defined $$self{'patent'}{'page'}) </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#353">353</a>
</td>
<td class="c0"> 0 </td>
<td class="c3"> 1 </td>
<td class="s"> unless $request = 'HTTP::Request'->new('GET', "$url") </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#355">355</a>
</td>
<td class="c0"> 0 </td>
<td class="c3"> 1 </td>
<td class="s"> unless $response = $self->request($request) </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#368">368</a>
</td>
<td class="c3"> 1 </td>
<td class="c3"> 9 </td>
<td class="s"> if ($url =~ /View\+first\+page/) </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#373">373</a>
</td>
<td class="c0"> 0 </td>
<td class="c3"> 1 </td>
<td class="s"> unless $request = 'HTTP::Request'->new('GET', "$url") </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#375">375</a>
</td>
<td class="c0"> 0 </td>
<td class="c3"> 1 </td>
<td class="s"> unless $response = $self->request($request) </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#385">385</a>
</td>
<td class="c0"> 0 </td>
<td class="c3"> 1 </td>
<td class="s"> if ($url =~ /tif$/) </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#390">390</a>
</td>
<td class="c3"> 1 </td>
<td class="c0"> 0 </td>
<td class="s"> if (defined $$self{'patent'}{'page'}) </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#396">396</a>
</td>
<td class="c0"> 0 </td>
<td class="c3"> 1 </td>
<td class="s"> unless $request = 'HTTP::Request'->new('GET', "$url") </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#402">402</a>
</td>
<td class="c3"> 1 </td>
<td class="c0"> 0 </td>
<td class="s"> if (defined $$self{'patent'}{'page'}) </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#419">419</a>
</td>
<td class="c3"> 1 </td>
<td class="c0"> 0 </td>
<td class="s"> if (not $done and $trys < 5) { } </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#422">422</a>
</td>
<td class="c0"> 0 </td>
<td class="c0"> 0 </td>
<td class="s"> if ($response->is_success and $response->content) { } </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#443">443</a>
</td>
<td class="c0"> 0 </td>
<td class="c0"> 0 </td>
<td class="s"> if ($$self{'patent'}{'page'}) </td>
</tr>
<a name=""> </a>
<tr>
<td class="h">
<a href="blib-lib-WWW-Patent-Page-USPTO-pm.html#452">452</a>
</td>
<td class="c0"> 0 </td>
<td class="c0"> 0 </td>
<td class="s"> unless $request = 'HTTP::Request'->new('GET', "$tif_url") </td>
</tr>
</table>
</body>
</html>
|