Branch Coverage

blib/lib/Metabrik/Www/Google.pm
Criterion Covered Total %
branch 0 38 0.0


line true false branch
53 0 0 if (@args <= 0)
54 0 0 unless $self->brik_help_run_undef_arg('search', undef)
63 0 0 unless my $si = 'Metabrik::String::Uri'->new_from_brik_init($self)
64 0 0 unless $keywords = $si->encode($keywords)
66 0 0 if ($language eq 'fr' or $language eq 'uk' or $language eq 'de' or $language eq 'ch') { }
81 0 0 if ($language eq 'uk')
86 0 0 if ($start < 0)
94 0 0 unless my $get = $self->get($search)
95 0 0 if ($get->{'code'} == 200)
96 0 0 unless my $tree = $self->parse($get->{'content'})
108 0 0 if ($_->{'title'} =~ /^@{[$cache->{$language}];}/i) { }
134 0 0 if (ref $this eq 'HTML::Element')
136 0 0 if ($tag eq 'a')
138 0 0 if ($h and keys %$h > 0)
163 0 0 if ($href =~ m[^/url\?q=]) { }
169 0 0 if (ref $_ eq 'HTML::Element') { }
170 0 0 if (defined $_->content) { }
187 0 0 unless my $sh = 'Metabrik::String::Html'->new_from_brik_init($self)
188 0 0 unless my $si = 'Metabrik::String::Uri'->new_from_brik_init($self)