File Coverage

blib/lib/WebService/LiveJournal.pm
Criterion Covered Total %
statement 11 14 78.5
branch n/a
condition n/a
subroutine 4 5 80.0
pod n/a
total 15 19 78.9


line stmt bran cond sub pod time code
1             package WebService::LiveJournal;
2              
3 9     9   112803 use strict;
  9         12  
  9         222  
4 9     9   28 use warnings;
  9         9  
  9         187  
5 9     9   79 use v5.10;
  9         21  
6 9     9   28 use base qw( WebService::LiveJournal::Client );
  9         23  
  9         4034  
7              
8             # ABSTRACT: Interface to the LiveJournal API
9             our $VERSION = '0.08'; # VERSION
10              
11             sub _set_error
12             {
13 0     0     my($self, $message) = @_;
14 0           $self->SUPER::_set_error($message);
15 0           die $message;
16             }
17              
18             1;
19              
20             __END__