libs/DesignPattern/Exception.pm

## ------------------------------------------------------------------------
##  $Id: Object.pm,v 1.3 2003/02/18 18:33:59 joko Exp $
## ------------------------------------------------------------------------
##  $Log: Object.pm,v $
## ------------------------------------------------------------------------


package DesignPattern::Exception;

use strict;
use warnings;

sub checkExceptions {
  my $self = shift;

  # behaviour A: die on error
    #die ($@) if $@;

  # behaviour B: log the error message as a warning
    if ($@) {
      $self->log($@, 'warning');
    }
  
}

1;
__END__
1	joko	1.1	## ------------------------------------------------------------------------
2			## $Id: Object.pm,v 1.3 2003/02/18 18:33:59 joko Exp $
3			## ------------------------------------------------------------------------
4			## $Log: Object.pm,v $
5			## ------------------------------------------------------------------------
6
7
8			package DesignPattern::Exception;
9
10			use strict;
11			use warnings;
12
13			sub checkExceptions {
14			my $self = shift;
15
16			# behaviour A: die on error
17			#die ($@) if $@;
18
19			# behaviour B: log the error message as a warning
20			if ($@) {
21			$self->log($@, 'warning');
22			}
23
24			}
25
26			1;
27			__END__
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26