File Coverage

blib/lib/DBIx/ParseException.pm

Criterion	Covered	Total	%
statement	25	33	75.7
branch	4	10	40.0
condition	2	6	33.3
subroutine	7	8	87.5
pod	0	2	0.0
total	38	59	64.4

package DBIx::ParseException;
BEGIN {
  $DBIx::ParseException::VERSION = '0.001000_03';
}

use strict;
use warnings;
use DBI;
use Carp 'croak';

sub _get_driver {
  return do {
      if (my $dbh = $_[1]->{dbh}) {
      $dbh->{Driver}{Name};
    } else {
      ( DBI->parse_dsn($_[1]->{dsn}) )[1];
    }
  }
}

DRIVERS: {
   my %DRIVERS;

   sub handler {
      my $self = shift;
      my $params = shift or croak 'params are required for DBIx::ParseException!';
      my $driver = $self->_get_driver($params);
      return $DRIVERS{$driver} ||= do {
         my $parser = __PACKAGE__ . "::$driver";
         eval "require $parser";
         die $@ if $@;
         $parser->can('error_handler');
      };
   }
}

CAPABILITIES: {
   my %CAPABILITIES;

   sub capabilities {
      my $self = shift;
      my $params = shift or croak 'params are required for DBIx::ParseException!';
      my $driver = $self->_get_driver($params);
      return $CAPABILITIES{$driver} ||= do {
         my $parser = __PACKAGE__ . "::$driver";
         eval "require $parser";
         die $@ if $@;
         $parser->can('capabilities')->($parser);
      };
   }
}

1;

# vim: ts=2 tw=2 expandtab

__END__