File Coverage

blib/lib/WebService/Bitly/Result/HTTPError.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 2 50.0
total 22 23 95.6


line stmt bran cond sub pod time code
1             package WebService::Bitly::Result::HTTPError;
2              
3 2     2   11 use warnings;
  2         3  
  2         67  
4 2     2   9 use strict;
  2         2  
  2         46  
5 2     2   9 use Carp;
  2         2  
  2         143  
6              
7 2     2   10 use base qw(WebService::Bitly::Result);
  2         2  
  2         917  
8              
9             sub new {
10 1     1 1 30 my ($class, $result_error) = @_;
11 1         15 my $self = $class->SUPER::new($result_error);
12             }
13              
14             sub is_error {
15 1     1 0 585 return 1;
16             }
17              
18             1;