Branch Coverage

blib/lib/WWW/SEOGears.pm
Criterion Covered Total %
branch 5 80 6.2


line true false branch
85 0 1 unless $$self{'brandname'} = delete $$opts{'brandname'}
86 0 1 unless $$self{'brandkey'} = delete $$opts{'brandkey'}
91 1 0 if (delete $$opts{'sandbox'}) { }
99 0 1 if (exists $$opts{'lwp'}) { }
1 0 elsif (exists $$opts{'http_opts'}) { }
152 0 0 unless $self->_sanitize_params('new', $params)
189 0 0 unless $self->_sanitize_params('statuscheck', $params)
216 0 0 unless $self->_sanitize_params('inactivate', $params)
243 0 0 unless $self->_sanitize_params('activate', $params)
279 0 0 unless $self->_sanitize_params('update', $params)
307 0 0 unless $self->_sanitize_params('auth', $params)
339 0 0 unless ($$params{'bzid'} and $$params{'authkey'})
341 0 0 unless ($$current_info{'success'})
348 0 0 unless ($$tempauth{'success'})
411 0 0 unless my $uri = $self->_get_apiurl($action)
415 0 0 if ($error)
420 0 0 if ($WWW::SEOGears::EVAL_ERROR)
453 0 0 if (not $res or $WWW::SEOGears::EVAL_ERROR or ref $res and $$res{'content'} =~ /^could not connect/i) { }
0 0 elsif ($$res{'success'}) { }
462 0 0 $WWW::SEOGears::EVAL_ERROR ? :
508 0 0 unless my $required_params = $self->_fetch_required_params($action)
511 0 0 if (my $check = _check_params($params, $required_params, $optional_params))
513 0 0 if (ref $check eq 'HASH') { }
0 0 elsif (not ref $check) { }
514 0 0 if $$check{'required_params'}
516 0 0 if $$check{'blank_params'}
580 0 0 if (not exists $$required_params{$param} || exists $$optional_params{$param}) { }
0 0 elsif (not length $$params_to_check{$param}) { }
586 0 0 if ($param eq 'months')
587 0 0 if (_valid_months($$params_to_check{'months'})) { }
594 0 0 if ($param eq 'pack' and not $$params_to_check{'price'})
600 0 0 unless (exists $$params_to_check{$required_param} and defined $$params_to_check{$required_param})
622 0 0 if ({1 => 'monthly', 12 => 'yearly', 24 => 'bi-yearly', 36 => 'tri-yearly'}->{$months})
662 0 0 unless (exists $$uri_map{$action})
683 0 0 if ($croak)
713 0 0 if ($opt eq 'default_headers' and ref $$lwp_opts{$opt} eq 'HTTP::Headers') { }
0 0 elsif ($opt eq 'ssl_opts') { }
0 0 elsif (defined $$lwp_opts{$opt}) { }
716 0 0 if exists $$lwp_opts{$opt}{'verify_hostname'}
717 0 0 if keys %{$$lwp_opts{$opt};}