| line |
true |
false |
branch |
|
24
|
0 |
2 |
if @_ % 2 |
|
27
|
1 |
1 |
if (@_ == 2) |
|
30
|
0 |
2 |
if $value =~ /\A(\d{10})\z/ |
|
31
|
0 |
2 |
if $value =~ /\A(\d{4})\z/ |
|
35
|
1 |
1 |
if exists $arg{'login'} |
|
36
|
2 |
0 |
if exists $arg{'defer'} |
|
37
|
0 |
2 |
if exists $arg{'cache_dir'} |
|
40
|
0 |
2 |
if exists $arg{'password'} |
|
41
|
1 |
1 |
if exists $arg{'pin'} |
|
44
|
0 |
4 |
unless (exists $$self{$key} or $$self{'defer'}) |
|
49
|
0 |
2 |
unless ($$self{'mech'} = 'WWW::Mechanize'->new) |
|
57
|
2 |
0 |
if ($$self{'defer'}) { } |
|
58
|
0 |
2 |
if $arg{'myaccount'} |
|
59
|
0 |
2 |
if $arg{'month'} |
|
71
|
0 |
3 |
unless (open IN, $file) |
|
90
|
0 |
0 |
if ($out) |
|
112
|
0 |
0 |
if ($$self{'cache_dir'} and -d $$self{'cache_dir'}) |
|
121
|
1 |
0 |
if (defined(my $file = shift())) { } |
|
126
|
0 |
0 |
unless $$self{'connected'} |
|
129
|
0 |
0 |
if ($$self{'cache_dir'} and -d $$self{'cache_dir'}) |
|
149
|
0 |
1 |
unless defined $month_detail |
|
158
|
1 |
0 |
if (my(@match) = $month_detail =~ /$detail_re/g) |
|
183
|
2 |
0 |
if ($html =~ /$solde_re/) |
|
197
|
2 |
0 |
if ($html =~ /$abo_re/) { } |
|
198
|
0 |
2 |
if (not $$self{'balance'} and defined $1) |
|
204
|
1 |
1 |
$4 eq 'avez un' ? : |
|
226
|
2 |
0 |
if ($html =~ /$conso_re/) { } |
|
290
|
0 |
1 |
unless $$self{'trip'} |
|
298
|
0 |
0 |
unless $$self{'trip'} |
|
300
|
0 |
0 |
unless (exists $$self{'trip_day'} and exists $$self{'trip_day_n'}) |
|
305
|
0 |
0 |
if (++$$self{'trip_day_n'} <= $#{$$self{'trip'}{$$self{'trip_day'}[0]};}) |
|
310
|
0 |
0 |
unless scalar @{$$self{'trip_day'};} |
|
318
|
0 |
0 |
unless $$self{'trip'} |