| line |
true |
false |
branch |
|
70
|
0 |
0 |
unless @symbols
|
|
83
|
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-Z]{4,6}(.*)/ and not $1) { }
|
|
89
|
0 |
0 |
if ($code_type ne "ISIN")
|
|
102
|
0 |
0 |
unless ($webdoc)
|
|
116
|
0 |
0 |
if ($webdoc =~ m[<td class="msDataText searchLink"><a href="(.*?)">(.*?)</a></td><td class="msDataText searchIsin"><span>[a-zA-Z]{2}[a-zA-Z0-9]{9}\d(.*)</span></td>])
|
|
124
|
0 |
0 |
unless (defined $name)
|
|
134
|
0 |
0 |
unless (defined $nexturl)
|
|
149
|
0 |
0 |
unless ($webdoc)
|
|
161
|
0 |
0 |
if ($webdoc =~ m[<td class="line heading">NAV<span class="heading"><br />([0-9]{2}/[0-9]{2}/[0-9]{4})</span>.*([A-Z]{3}).([0-9\.]+).*Day Change[^%]*>([0-9\.\-]+)])
|
|
171
|
0 |
0 |
unless (defined $pchange)
|
|
182
|
0 |
0 |
if (not defined $date) { }
|
|
196
|
0 |
0 |
unless (defined $price)
|
|
203
|
0 |
0 |
unless (defined $currency)
|
|
218
|
0 |
0 |
if ($currency eq "GBX")
|
|
244
|
0 |
0 |
wantarray ? :
|