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   471 use strict;
  61         237  
  61         2304  
4              
5 61     61   399 use Rose::Object;
  61         156  
  61         4617  
6             our @ISA = qw(Rose::Object);
7              
8             our $VERSION = '0.01';
9              
10             use overload
11             (
12 220     220   886 '""' => sub { shift->message },
13 61         675 fallback => 1,
14 61     61   439 );
  61         143  
15              
16             use Rose::Object::MakeMethods::Generic
17             (
18 61         609 scalar =>
19             [
20             'message',
21             'code',
22             ],
23 61     61   5696 );
  61         175  
24              
25             sub init
26             {
27 55     55 1 476 my($self) = shift;
28 55 50       208 @_ = (message => @_) if(@_ == 1);
29 55         174 $self->SUPER::init(@_);
30             }
31              
32             package Rose::DB::Object::Exception::ClassNotReady;
33              
34             our @ISA = qw(Rose::DB::Object::Exception);
35              
36             1;