0byt3m1n1

Path: /data/0/0/6/46/6861/user/7034/cgi-bin/extlib/XML/Atom/ [ Home ]

File: ErrorHandler.pm

# $Id: ErrorHandler.pm,v 1.2 2004/05/11 05:33:05 btrott Exp $

package XML::Atom::ErrorHandler;
use strict;

use vars qw( $ERROR );

sub new    { bless {}, shift }
sub error  {
    my $msg = $_[1] || '';
    $msg .= "\n" unless $msg =~ /\n$/;
    if (ref($_[0])) {
        $_[0]->{_errstr} = $msg;
    } else {
        $ERROR = $msg;
    }
    return;
 }
sub errstr { ref($_[0]) ? $_[0]->{_errstr} : $ERROR }

1;