File Coverage

blib/lib/SPOPS/Error.pm

Criterion	Covered	Total	%
statement	34	35	97.1
branch	1	2	50.0
condition	2	6	33.3
subroutine	9	9	100.0
pod	0	3	0.0
total	46	55	83.6

package SPOPS::Error;

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

use strict;
use vars         qw( @FIELDS );
use Data::Dumper qw( Dumper );

*_w    = *SPOPS::_w;
*DEBUG = *SPOPS::DEBUG;

$SPOPS::Error::VERSION  = sprintf("%d.%02d", q$Revision: 3.3 $ =~ /(\d+)\.(\d+)/);

@FIELDS   = qw( user_msg system_msg type extra
                package filename line method );

sub clear {
    my ( $class ) = @_;
    no strict 'refs';
    for ( @FIELDS ) { ${ $class . '::' . $_ } = undef }
}


sub get {
    my ( $class ) = @_;
    no strict 'refs';
    return { map { $_ => ${ $class . '::' . $_ } } @FIELDS };
}


sub set {
    my ( $class, $p ) = @_;
    $class->clear;
    {
        no strict 'refs';
        for ( @FIELDS ) { ${ $class . '::' . $_ } = $p->{ $_} }
    }

    # Set the caller information if the user didn't pass anything in

    unless ( $p->{package} and $p->{filename} and $p->{line} ) {
        ( $SPOPS::Error::package,
          $SPOPS::Error::filename,
          $SPOPS::Error::line,
          $SPOPS::Error::method ) = caller(0);
    }
    return $class->get;
}

1;

__END__