blib/lib/WWW/Shorten/Bitly.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 6 | 124 | 4.8 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
55 | 0 | 0 | 0 | $url and &blessed($url) |
0 | 0 | 0 | $url and &blessed($url) and $url->isa('URI') | |
65 | 0 | 0 | 0 | $content_type and $content_type =~ m[application/json] |
76 | 0 | 0 | 0 | @_ == 1 and ref $_[0] |
0 | 0 | 0 | @_ == 1 and not ref $_[0] | |
105 | 0 | 2 | 0 | $path and $path->is_file |
113 | 0 | 0 | 0 | $line and $line =~ /=/ |
118 | 0 | 0 | 0 | $key and $val |
131 | 0 | 0 | 90 | defined $input and not ref $input |
0 | 0 | 90 | defined $input and not ref $input and length $input | |
140 | 2 | 0 | 0 | @_ == 1 and ref $_[0] |
273 | 0 | 0 | 0 | $res and ref $res->{'expand'} eq 'ARRAY' |
307 | 0 | 0 | 0 | $username and $password |
312 | 0 | 0 | 0 | $id and $secret |
334 | 0 | 0 | 0 | $content_type and $content_type =~ m[application/json] |
365 | 0 | 0 | 0 | $_[0] and &blessed($_[0]) |
0 | 0 | 0 | $_[0] and &blessed($_[0]) and $_[0]->isa('WWW::Shorten::Bitly') | |
376 | 0 | 0 | 0 | $_[0] and &blessed($_[0]) |
0 | 0 | 0 | $_[0] and &blessed($_[0]) and $_[0]->isa('WWW::Shorten::Bitly') | |
382 | 0 | 0 | 0 | ref $res eq 'HASH' and $res->{'long_url'} |
line | l | !l | condition |
---|---|---|---|
19 | 0 | 4 | $ENV{'BITLY_API_URL'} || 'https://api-ssl.bitly.com' |
24 | 90 | 0 | _trim(shift()) || '' |
110 | 0 | 0 | _trim($line) || '' |
116 | 0 | 0 | _trim($key) || '' |
172 | 0 | 0 | $args->{'domain'} || $args->{'url'} || $args->{'single_arg'} || '' |
195 | 0 | 0 | $args->{'link'} || $args->{'single_arg'} || '' |
209 | 0 | 0 | $args->{'unit'} || 'day' |
0 | 0 | $args->{'units'} || '-1' | |
0 | 0 | $args->{'timezone'} || 'America/New_York' | |
0 | 0 | $args->{'limit'} || 100 | |
0 | 0 | $args->{'unit_reference_ts'} || 'now' | |
220 | 0 | 0 | $args->{'link'} || $args->{'single_arg'} || '' |
235 | 0 | 0 | $args->{'link'} || $args->{'single_arg'} || '' |
248 | 0 | 0 | $args->{'unit'} || 'day' |
0 | 0 | $args->{'units'} || '-1' | |
0 | 0 | $args->{'timezone'} || 'America/New_York' | |
0 | 0 | $args->{'limit'} || 100 | |
0 | 0 | $args->{'unit_reference_ts'} || 'now' | |
259 | 0 | 0 | $args->{'shortUrl'} || $args->{'URL'} || $args->{'url'} || $args->{'single_arg'} || '' |
282 | 0 | 0 | $args->{'shortUrl'} || $args->{'single_arg'} || '' |
349 | 0 | 0 | $args->{'url'} || $args->{'single_arg'} || '' |
393 | 0 | 0 | $args->{'link'} || $args->{'single_arg'} || '' |
406 | 0 | 0 | $args->{'unit'} || 'day' |
0 | 0 | $args->{'units'} || -1 | |
0 | 0 | $args->{'timezone'} || 'America/New_York' | |
0 | 0 | $args->{'limit'} || 100 | |
0 | 0 | $args->{'unit_reference_ts'} || 'now' | |
417 | 0 | 0 | $args->{'longUrl'} || $args->{'single_arg'} || $args->{'URL'} || $args->{'url'} || '' |
418 | 0 | 0 | $args->{'domain'} || undef |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
369 | 0 | 0 | 0 | $self ||= 'WWW::Shorten::Bitly'->new(@_) |
380 | 0 | 0 | 0 | $self ||= 'WWW::Shorten::Bitly'->new(@_) |