File Coverage

blib/lib/Net/Disqus/Exception.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 20 21 95.2


line stmt bran cond sub pod time code
1 4     4   25 use strict;
  4         7  
  4         151  
2 4     4   21 use warnings;
  4         7  
  4         157  
3             package Net::Disqus::Exception;
4             BEGIN {
5 4     4   89 $Net::Disqus::Exception::VERSION = '1.19';
6             }
7 4     4   24 use base 'Class::Accessor';
  4         8  
  4         3889  
8 4     4   11196 use overload '""' => \&overload_text;
  4         1247  
  4         48  
9             __PACKAGE__->mk_accessors(qw(code text));
10              
11 2     2 0 2844 sub overload_text { return shift->text }
12             1;