File Coverage

blib/lib/DBIx/Poggy/Error.pm

Criterion	Covered	Total	%
statement	9	16	56.2
branch			n/a
condition	0	5	0.0
subroutine	3	5	60.0
pod	0	1	0.0
total	12	27	44.4

use strict;
use warnings;

package DBIx::Poggy::Error;

my @fields = qw(err errstr state);

sub new {
    my $proto = shift;
    my $dbh = shift || 'DBI';
    my $self = bless {}, ref($proto) || $proto;
    foreach my $f ( @fields ) {
        $self->{$f} = $dbh->$f();
    }
    return $self;
}

foreach my $f ( @fields ) {
    no strict 'refs';
    *{$f} = sub { return $_[0]->{$f} };
}

1;