File Coverage

blib/lib/SPOPS/Exception/DBI.pm

Criterion	Covered	Total	%
statement	16	19	84.2
branch	3	8	37.5
condition			n/a
subroutine	5	6	83.3
pod	0	3	0.0
total	24	36	66.6

package SPOPS::Exception::DBI;

# $Id: DBI.pm,v 3.3 2004/06/02 00:48:22 lachoy Exp $

use strict;
use base qw( SPOPS::Exception );

$SPOPS::Exception::DBI::VERSION   = sprintf("%d.%02d", q$Revision: 3.3 $ =~ /(\d+)\.(\d+)/);
@SPOPS::Exception::DBI::EXPORT_OK = qw( spops_dbi_error );

my @FIELDS = qw( sql bound_value action );
SPOPS::Exception::DBI->mk_accessors( @FIELDS );

sub get_fields {
    return ( $_[0]->SUPER::get_fields, @FIELDS );
}

sub spops_dbi_error {
    goto &SPOPS::Exception::throw( 'SPOPS::Exception::DBI', @_ );
}

sub to_string   {
    my ( $self ) = @_;
    my $class = ref $self;
    return "Invalid -- not called from object."  unless ( $class );

    no strict 'refs';
    if ( $self->sql ) {
        return ( ${ $class . '::ShowTrace' } )
                 ? join( "\n", $self->message, $self->sql, $self->trace->as_string )
                 : join( "\n", $self->message(), $self->sql );
    }
    else {
        return ( ${ $class . '::ShowTrace' } )
                 ? join( "\n", $self->message, $self->trace->as_string )
                 : $self->message();
    }
}

1;

__END__