| line |
true |
false |
branch |
|
62
|
0 |
6 |
unless $self->{'ua'} = 'LWP::UserAgent'->new |
|
84
|
5 |
0 |
if ($simulate) |
|
93
|
0 |
0 |
unless ($response->is_success) |
|
101
|
0 |
0 |
unless my $p = 'HTML::TokeParser'->new(\$response->content) |
|
107
|
0 |
0 |
unless $token->[1]{'id'} eq 'ind-dia' |
|
110
|
0 |
0 |
unless $token2->[1]{'class'} eq 'published-date' |
|
114
|
0 |
0 |
unless $token2->[1]{'id'} eq 'Lbl_fecha' |
|
120
|
0 |
0 |
unless $token2->[1]{'id'} eq 'RptListado_ctl03_lbl_valo' |
|
126
|
0 |
0 |
unless $dolar and $fecha |
|
127
|
0 |
0 |
unless $dolar =~ /^\d+[,.]{0,1}\d+$/ |
|
176
|
0 |
2 |
unless $valor |
|
177
|
0 |
2 |
unless $valor =~ /^\d+[,.]{0,1}\d+$/ |
|
179
|
0 |
2 |
unless $valor >= 0 |
|
196
|
0 |
1 |
unless ($pesos =~ /^\d+$/) |
|
202
|
0 |
1 |
unless $rate >= 0 |
|
219
|
0 |
1 |
unless ($dolares =~ /^\d+(\.\d{0,2}){0,1}$/) |
|
229
|
0 |
1 |
unless $valor >= 0 |