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   468 use strict;
  61         153  
  61         2212  
4              
5 61     61   372 use Rose::Object;
  61         136  
  61         5583  
6             our @ISA = qw(Rose::Object);
7              
8             our $VERSION = '0.01';
9              
10             use overload
11             (
12 220     220   671 '""' => sub { shift->message },
13 61         747 fallback => 1,
14 61     61   425 );
  61         159  
15              
16             use Rose::Object::MakeMethods::Generic
17             (
18 61         634 scalar =>
19             [
20             'message',
21             'code',
22             ],
23 61     61   5830 );
  61         200  
24              
25             sub init
26             {
27 55     55 1 413 my($self) = shift;
28 55 50       172 @_ = (message => @_) if(@_ == 1);
29 55         157 $self->SUPER::init(@_);
30             }
31              
32             package Rose::DB::Object::Exception::ClassNotReady;
33              
34             our @ISA = qw(Rose::DB::Object::Exception);
35              
36             1;