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   455 use strict;
  61         177  
  61         2220  
4              
5 61     61   397 use Rose::Object;
  61         165  
  61         4597  
6             our @ISA = qw(Rose::Object);
7              
8             our $VERSION = '0.01';
9              
10             use overload
11             (
12 220     220   858 '""' => sub { shift->message },
13 61         639 fallback => 1,
14 61     61   452 );
  61         172  
15              
16             use Rose::Object::MakeMethods::Generic
17             (
18 61         542 scalar =>
19             [
20             'message',
21             'code',
22             ],
23 61     61   5673 );
  61         168  
24              
25             sub init
26             {
27 55     55 1 482 my($self) = shift;
28 55 50       197 @_ = (message => @_) if(@_ == 1);
29 55         189 $self->SUPER::init(@_);
30             }
31              
32             package Rose::DB::Object::Exception::ClassNotReady;
33              
34             our @ISA = qw(Rose::DB::Object::Exception);
35              
36             1;