lib/XML/Feed/ErrorHandler.pm

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