File: ErrorHandler.pm

package info (click to toggle)
libxml-atom-perl 0.41-2
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 512 kB
  • ctags: 302
  • sloc: perl: 2,790; xml: 673; makefile: 2
file content (21 lines) | stat: -rw-r--r-- 413 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
# $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;