| 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'}) |