File Coverage

blib/lib/OpenInteract2/Exception.pm

Criterion	Covered	Total	%
statement	9	27	33.3
branch	0	2	0.0
condition			n/a
subroutine	3	10	30.0
pod			n/a
total	12	39	30.7

package OpenInteract2::Exception;

# $Id: Exception.pm,v 1.12 2005/03/17 14:57:58 sjn Exp $

use strict;
use Carp qw( carp );

$OpenInteract2::Exception::VERSION   = sprintf("%d.%02d", q$Revision: 1.12 $ =~ /(\d+)\.(\d+)/);

# Declare some of our exceptions

use Exception::Class (
   'OpenInteract2::Exception::Application' => {
      isa         => 'OpenInteract2::Exception',
      description => 'Generic application errors',
      fields      => [ 'oi_package' ],
   },
   'OpenInteract2::Exception::Datasource' => {
      isa         => 'OpenInteract2::Exception',
      description => 'Datasource errors',
      fields      => [ 'datasource_name', 'datasource_type', 'connect_params' ],
   },
);

@OpenInteract2::Exception::ISA = qw( Exporter Exception::Class::Base );
@OpenInteract2::Exception::EXPORT_OK = qw(
    oi_error oi_app_error oi_datasource_error oi_param_error oi_security_error
);

require OpenInteract2::Exception::Parameter;
require OpenInteract2::Exception::Security;

# Exported shortcuts

sub oi_error {
#    carp "throwing oi_error...";
    my ( $msg, %params ) = _massage( @_ );
    goto &Exception::Class::Base::throw( __PACKAGE__,
                                         message => $msg, %params );
}

sub oi_app_error {
#    carp "throwing oi_app_error...";
    my ( $msg, %params ) = _massage( @_ );
    goto &Exception::Class::Base::throw( 'OpenInteract2::Exception::Application',
                                         message => $msg, %params );
}

sub oi_datasource_error {
#    carp "throwing oi_datasource_error...";
    my ( $msg, %params ) = _massage( @_ );
    goto &Exception::Class::Base::throw( 'OpenInteract2::Exception::Datasource',
                                         message => $msg, %params );
}

sub oi_param_error {
#    carp "throwing oi_param_error...";
    my ( $msg, %params ) = _massage( @_ );
    goto &Exception::Class::Base::throw( 'OpenInteract2::Exception::Parameter',
                                         message => $msg, %params );
}

sub oi_security_error {
#    carp "throwing oi_security_error...";
    my ( $msg, %params ) = _massage( @_ );
    goto &Exception::Class::Base::throw( 'OpenInteract2::Exception::Security',
                                         message => $msg, %params );
}

# Override 'throw' so we can massage the message and parameters into
# the right format for E::C

sub throw {
    my $class = shift @_;
    my ( $msg, %params ) = _massage( @_ );
    goto &Exception::Class::Base::throw( $class, message => $msg, %params );
}

sub _massage {
    my @items = @_;
    my %params = ( ref $items[-1] eq 'HASH' )
                   ? %{ pop( @items ) } : ();
    my $msg    = join( '', @items );
    return ( $msg, %params );
}

1;

__END__