| line |
true |
false |
branch |
|
82
|
0 |
1 |
unless $$self{'weebly_secret'} = $$opts{'weebly_secret'} |
|
85
|
0 |
1 |
if (defined $$opts{'tid_sub'} and ref $$opts{'tid_sub'} eq 'CODE') { } |
|
|
1 |
0 |
elsif (defined $$opts{'tid_seed'} and not ref $$opts{'tid_seed'}) { } |
|
98
|
1 |
0 |
if (defined $$opts{'weebly_url'}) { } |
|
106
|
0 |
1 |
unless (exists $$http_opts{'agent'} and defined $$http_opts{'agent'}) |
|
167
|
0 |
0 |
unless $self->_sanitize_params('login', $params) |
|
170
|
0 |
0 |
if ($$output{'success'}) |
|
197
|
0 |
0 |
unless $self->_sanitize_params('enableaccount', $params) |
|
225
|
0 |
0 |
unless $self->_sanitize_params('disableaccount', $params) |
|
253
|
0 |
0 |
unless $self->_sanitize_params('deleteaccount', $params) |
|
279
|
0 |
0 |
unless $self->_sanitize_params('undeleteaccount', $params) |
|
309
|
0 |
0 |
unless $self->_sanitize_params('upgradeaccount', $params) |
|
336
|
0 |
0 |
unless $self->_sanitize_params('downgradeaccount', $params) |
|
362
|
0 |
0 |
unless $self->_sanitize_params('hasservice', $params) |
|
435
|
0 |
0 |
unless my $uri = $self->_get_url($action) |
|
438
|
0 |
0 |
if ($params and ref $params eq 'HASH') |
|
446
|
0 |
0 |
if ($error) |
|
450
|
0 |
0 |
unless $output |
|
470
|
0 |
0 |
if ($k eq 'status') { } |
|
471
|
0 |
0 |
$v eq 'success' || $v eq 'true' ? : |
|
554
|
0 |
0 |
if (not $res or $WWW::Weebly::EVAL_ERROR or ref $res and $$res{'content'} =~ /^could not connect/i) { } |
|
|
0 |
0 |
elsif ($$res{'success'}) { } |
|
563
|
0 |
0 |
$WWW::Weebly::EVAL_ERROR ? : |
|
602
|
0 |
0 |
unless (exists $$required_keys{lc $action}) |
|
614
|
0 |
0 |
if (my $check = _check_required_keys($params, $$required_keys{lc $action})) |
|
616
|
0 |
0 |
if $$check{'missing_params'} |
|
618
|
0 |
0 |
if $$check{'blank_params'} |
|
631
|
0 |
0 |
if (first sub {
$key eq $_;
}
, 'property_name', 'upgrade_url', 'publish_upsell', 'price') |
|
685
|
0 |
0 |
if (not exists $$params_ref{$wanted_key} && defined $$params_ref{$wanted_key}) { } |
|
|
0 |
0 |
elsif (not length $$params_ref{$wanted_key}) { } |
|
716
|
0 |
0 |
unless ($$wanted_ref{$key}) |
|
745
|
0 |
0 |
if ($croak) |