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