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	## ------------------------------------------------------------------------
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