File Coverage

blib/lib/WebService/Bitly/Result.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 2 50.0
total 23 24 95.8


line stmt bran cond sub pod time code
1             package WebService::Bitly::Result;
2              
3 2     2   11 use warnings;
  2         4  
  2         55  
4 2     2   10 use strict;
  2         3  
  2         45  
5 2     2   9 use Carp;
  2         3  
  2         113  
6              
7 2     2   10 use base qw(Class::Accessor::Fast);
  2         3  
  2         1592  
8              
9             __PACKAGE__->mk_accessors(qw(
10             data
11             status_code
12             status_txt
13             ));
14              
15             sub new {
16 12     12 1 34 my ($class, $result) = @_;
17 12         117 my $self = $class->SUPER::new($result);
18             }
19              
20             sub is_error {
21 8     8 0 1266 my $self = shift;
22              
23 8         61 return $self->status_code >= 400;
24             }
25              
26             1;