| line |
true |
false |
branch |
|
48
|
0 |
0 |
unless ($$self{'mech'}->success) |
|
59
|
0 |
0 |
if $$self{'logged_in'} |
|
74
|
0 |
0 |
if ($$self{'mech'}->base =~ /errormessage=/) |
|
95
|
0 |
0 |
unless ($$self{'mech'}->content =~ /gratis sms'en/) |
|
100
|
0 |
0 |
unless my $form = $$self{'mech'}->form_number(1) |
|
107
|
0 |
0 |
unless ($$self{'mech'}->success) |
|
116
|
0 |
0 |
ref $_[0] ? : |
|
118
|
0 |
0 |
unless (defined $login and not ref $login and length $login) |
|
125
|
0 |
0 |
ref $_[0] ? : |
|
127
|
0 |
0 |
unless (defined $password and not ref $password and length $password) |
|
130
|
0 |
0 |
unless (length $password >= 6) |
|
133
|
0 |
0 |
unless ($password =~ /[a-zA-Z]/) |
|
136
|
0 |
0 |
unless ($password =~ /[0-9]/) |
|
139
|
0 |
0 |
unless (not $password =~ /[^a-zA-Z0-9]/) |
|
146
|
0 |
0 |
ref $_[0] ? : |
|
148
|
0 |
0 |
unless (length $message <= 125) |
|
155
|
0 |
0 |
ref $_[0] ? : |
|
160
|
0 |
0 |
if ($to =~ /(?:(?:0|(?:00|\+)31))6(\d{8})/) { } |