local-lib5/lib/perl5/XML/Atom/ErrorHandler.pm

   1 # $Id: ErrorHandler.pm,v 1.1 2003/09/08 00:00:50 btrott Exp $
   2
   3 package XML::Atom::ErrorHandler;
   4 use strict;
   5
   6 use vars qw( $ERROR );
   7
   8 sub new    { bless {}, shift }
   9 sub error  {
  10     my $msg = $_[1] || '';
  11     $msg .= "\n" unless $msg =~ /\n$/;
  12     if (ref($_[0])) {
  13         $_[0]->{_errstr} = $msg;
  14     } else {
  15         $ERROR = $msg;
  16     }
  17     return;
  18  }
  19 sub errstr { ref($_[0]) ? $_[0]->{_errstr} : $ERROR }
  20
  21 1;