File Coverage

blib/lib/WebService/Bitly/Result/Info.pm
Criterion Covered Total %
statement 21 21 100.0
branch 1 2 50.0
condition n/a
subroutine 7 7 100.0
pod 1 2 50.0
total 30 32 93.7


line stmt bran cond sub pod time code
1             package WebService::Bitly::Result::Info;
2              
3 1     1   35 use warnings;
  1         2  
  1         32  
4 1     1   5 use strict;
  1         1  
  1         32  
5 1     1   6 use Carp;
  1         2  
  1         209  
6              
7 1     1   6 use base qw(WebService::Bitly::Result);
  1         2  
  1         88  
8              
9 1     1   4 use WebService::Bitly::Util;
  1         2  
  1         9  
10              
11             sub new {
12 1     1 1 2 my ($class, $result_info) = @_;
13 1         11 my $self = $class->SUPER::new($result_info);
14              
15 1         18 $self->{results}
16             = WebService::Bitly::Util->make_entries($self->data->{info});
17              
18 1         20 return $self;
19             }
20              
21             sub results {
22 1     1 0 868 my $results = shift->{results};
23 1 50       14 return wantarray ? @$results : $results;
24             }
25              
26             1;