Branch Coverage

blib/lib/Metabrik/Www/Shorten.pm
Criterion Covered Total %
branch 0 32 0.0


line true false branch
44 0 0 unless $self->brik_help_run_undef_arg('shorten_default', $uri)
48 0 0 unless my $cw = 'Metabrik::Client::Www'->new_from_brik_init($self)
49 0 0 unless $cw->post({'_url', $uri}, $service)
52 0 0 unless my $content = $cw->content
53 0 0 if (length $content)
64 0 0 unless $self->brik_help_run_undef_arg('shorten_tinyurl', $uri)
72 0 0 if ($@)
85 0 0 unless $self->brik_help_run_undef_arg('shorten', $uri)
88 0 0 if ($service eq 'default') { }
0 0 elsif ($service eq 'tinyurl') { }
89 0 0 unless $shorten = $self->shorten_default($uri)
92 0 0 unless $shorten = $self->shorten_tinyurl($uri)
105 0 0 unless $self->brik_help_run_undef_arg('unshorten', $uri)
107 0 0 unless my $cw = 'Metabrik::Client::Www'->new_from_brik_init($self)
108 0 0 unless my $trace = $cw->trace_redirect($uri)
111 0 0 if (@$trace > 0 and exists $trace->[-1]{'uri'})