File Coverage

blib/lib/WebService/Bitly/Util.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 22 23 95.6


line stmt bran cond sub pod time code
1             package WebService::Bitly::Util;
2              
3 1     1   7 use warnings;
  1         3  
  1         31  
4 1     1   6 use strict;
  1         2  
  1         38  
5 1     1   5 use Carp;
  1         2  
  1         112  
6              
7 1     1   528 use WebService::Bitly::Entry;
  1         3  
  1         8  
8              
9             sub make_entries {
10 10     10 0 172 my ($class, $entries) = @_;
11 10         13 my $results;
12              
13 10         26 for my $entry (@$entries) {
14 18         207 push @$results, WebService::Bitly::Entry->new($entry);
15             }
16              
17 10         123 return $results;
18             }
19              
20             1;