File Coverage

blib/lib/Rose/DB/Object/Exception.pm
Criterion Covered Total %
statement 16 16 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 24 25 96.0


line stmt bran cond sub pod time code
1             package Rose::DB::Object::Exception;
2              
3 61     61   460 use strict;
  61         172  
  61         3040  
4              
5 61     61   477 use Rose::Object;
  61         143  
  61         6370  
6             our @ISA = qw(Rose::Object);
7              
8             our $VERSION = '0.01';
9              
10             use overload
11             (
12 220     220   1112 '""' => sub { shift->message },
13 61         813 fallback => 1,
14 61     61   464 );
  61         135  
15              
16             use Rose::Object::MakeMethods::Generic
17             (
18 61         710 scalar =>
19             [
20             'message',
21             'code',
22             ],
23 61     61   7715 );
  61         174  
24              
25             sub init
26             {
27 55     55 1 904 my($self) = shift;
28 55 50       369 @_ = (message => @_) if(@_ == 1);
29 55         399 $self->SUPER::init(@_);
30             }
31              
32             package Rose::DB::Object::Exception::ClassNotReady;
33              
34             our @ISA = qw(Rose::DB::Object::Exception);
35              
36             1;