| line |
true |
false |
branch |
|
131
|
0 |
0 |
unless defined $amount and defined $from and defined $to |
|
132
|
0 |
0 |
unless exists $Finance::Currency::Convert::Yahoo::currencies{$from} |
|
133
|
0 |
0 |
unless exists $Finance::Currency::Convert::Yahoo::currencies{$to} |
|
134
|
0 |
0 |
if $amount < 0 |
|
135
|
0 |
0 |
if $Finance::Currency::Convert::Yahoo::CHAT |
|
138
|
0 |
0 |
if $Finance::Currency::Convert::Yahoo::CHAT |
|
141
|
0 |
0 |
if defined $value |
|
159
|
0 |
0 |
unless 'HTML::TokeParser'->VERSION |
|
160
|
0 |
0 |
unless defined $amount and defined $from and defined $to |
|
161
|
0 |
0 |
unless exists $Finance::Currency::Convert::Yahoo::currencies{$from} |
|
162
|
0 |
0 |
unless exists $Finance::Currency::Convert::Yahoo::currencies{$to} |
|
163
|
0 |
0 |
if $amount < 0 |
|
164
|
0 |
0 |
if $Finance::Currency::Convert::Yahoo::CHAT |
|
167
|
0 |
0 |
if $Finance::Currency::Convert::Yahoo::CHAT |
|
171
|
0 |
0 |
if defined $doc |
|
173
|
0 |
0 |
if (defined $doc) |
|
174
|
0 |
0 |
if ($result = _extract_data($doc)) |
|
175
|
0 |
0 |
if defined $Finance::Currency::Convert::Yahoo::CHAT |
|
178
|
0 |
0 |
if (defined $doc and defined $result) { } |
|
|
0 |
0 |
elsif (defined $doc and not defined $result) { } |
|
179
|
0 |
0 |
if defined $result and defined $Finance::Currency::Convert::Yahoo::CHAT |
|
182
|
0 |
0 |
if defined $Finance::Currency::Convert::Yahoo::CHAT |
|
185
|
0 |
0 |
if defined $Finance::Currency::Convert::Yahoo::CHAT |
|
198
|
0 |
0 |
unless defined $amount and defined $to and defined $from |
|
208
|
0 |
0 |
if $Finance::Currency::Convert::Yahoo::CHAT |
|
211
|
0 |
0 |
unless my $req = 'HTTP::Request'->new('GET', $url) |
|
213
|
0 |
0 |
unless ($res->is_success) |
|
217
|
0 |
0 |
if $Finance::Currency::Convert::Yahoo::CHAT |
|
221
|
0 |
0 |
if ($r eq '') |
|
238
|
0 |
0 |
unless defined $amount and defined $to and defined $from |
|
250
|
0 |
0 |
if $Finance::Currency::Convert::Yahoo::CHAT |
|
253
|
0 |
0 |
unless my $req = 'HTTP::Request'->new('GET', $url) |
|
255
|
0 |
0 |
unless ($res->is_success) |
|
256
|
0 |
0 |
if $Finance::Currency::Convert::Yahoo::CHAT |
|
259
|
0 |
0 |
if $Finance::Currency::Convert::Yahoo::CHAT |
|
278
|
0 |
0 |
unless my $p = 'HTML::TokeParser'->new(\$doc) |
|
287
|
0 |
0 |
unless $token = $p->get_token |
|
288
|
0 |
0 |
if @$token[0] ne 'S' and @$token[1] ne 'b' |
|
290
|
0 |
0 |
unless $token = $p->get_token |
|
291
|
0 |
0 |
if @$token[0] ne 'T' |
|
293
|
0 |
0 |
@$token[1] =~ /^[\d.,]+$/ ? : |