Mini Shell
Mini Shell
| Direktori : /home/rs/perl/5.10/lib/perl5/site_perl/5.10/XML/Atom/ |
| Current File : /home/rs/perl/5.10/lib/perl5/site_perl/5.10/XML/Atom/ErrorHandler.pm |
# $Id: ErrorHandler.pm,v 1.1 2003/09/08 00:00:50 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;