| line |
true |
false |
branch |
|
89
|
0 |
0 |
unless @symbols
|
|
102
|
0 |
0 |
if ($code =~ /^[a-zA-Z]{2}[a-zA-Z0-9]{9}\d(.*)/ and not $1) { }
|
|
|
0 |
0 |
elsif ($code =~ /^[a-zA-Z0-9]{6}\d(.*)/ and not $1) { }
|
|
|
0 |
0 |
elsif ($code =~ /^[a-zA-Z0-9]{4,6}(.*)/ and not $1) { }
|
|
108
|
0 |
0 |
if ($code_type ne "ISIN")
|
|
123
|
0 |
0 |
unless ($webdoc->is_success)
|
|
141
|
0 |
0 |
if ($webdoc->content =~ m[<h2>(0 results)</h2>])
|
|
146
|
0 |
0 |
unless ($webdoc->is_success)
|
|
167
|
0 |
0 |
if ($webdoc->content =~ /<title>(.*) [Ss]ummary - FT.com/)
|
|
172
|
0 |
0 |
unless (defined $name)
|
|
184
|
0 |
0 |
if ($webdoc->content =~ m[<span class="mod-ui-data-list__label"[^>]*>Price [(]([A-Z]{3})[)]</span><span class="mod-ui-data-list__value">([\.\,0-9]*)</span>])
|
|
190
|
0 |
0 |
unless (defined $currency)
|
|
196
|
0 |
0 |
unless (defined $price)
|
|
202
|
0 |
0 |
if ($price =~ /([0-9]*),([\.0-9]*)/)
|
|
210
|
0 |
0 |
if ($webdoc->content =~ m[<span class="mod-ui-data-list__label">Today's Change</span><span class="mod-ui-data-list__value"><span [^>]*><i [^>]*></i>(-?[\.0-9]*) / (-?[\.0-9]*)%</span>])
|
|
216
|
0 |
0 |
unless (defined $net)
|
|
224
|
0 |
0 |
unless (defined $pchange)
|
|
232
|
0 |
0 |
if ($net =~ /([0-9]*),([\.0-9]*)/)
|
|
236
|
0 |
0 |
if ($pchange =~ /([0-9]*),([\.0-9]*)/)
|
|
242
|
0 |
0 |
if ($currency eq "GBX")
|
|
264
|
0 |
0 |
if ($webdoc->content =~ /......... some string that will identify the time ............/)
|
|
266
|
0 |
0 |
if ($1 =~ /(\d\d:\d\d)/)
|
|
271
|
0 |
0 |
unless (defined $time)
|
|
286
|
0 |
0 |
if ($webdoc->content =~ /([A-Za-z]{3}) ([0-9]{2}) ([0-9]{4})/)
|
|
291
|
0 |
0 |
if (not defined $date) { }
|
|
310
|
0 |
0 |
wantarray ? :
|