libs/DesignPattern/Exception.pm

## ------------------------------------------------------------------------
##  $Id: Exception.pm,v 1.1 2003/02/19 00:35:09 joko Exp $
## ------------------------------------------------------------------------
##  $Log: Exception.pm,v $
##  Revision 1.1  2003/02/19 00:35:09  joko
##  + initial commit
##
## ------------------------------------------------------------------------


package DesignPattern::Exception;

use strict;
use warnings;


use base qw( DesignPattern::Object );

sub checkExceptions {
  my $self = shift;

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

  # behaviour B: log the error message as a warning
    if ($@) {
      if ($self->can('log')) {
        $self->log($@, 'warning');
      } else {
        #print "warning: ", $@, "\n";
        #print "warning: ", $@, "\n";
        $self->log_basic($@, 'warning');
      }
    }
  
}

1;
__END__
1	joko	1.1	## ------------------------------------------------------------------------
2	joko	1.2	## $Id: Exception.pm,v 1.1 2003/02/19 00:35:09 joko Exp $
3	joko	1.1	## ------------------------------------------------------------------------
4	joko	1.2	## $Log: Exception.pm,v $
5			## Revision 1.1 2003/02/19 00:35:09 joko
6			## + initial commit
7			##
8	joko	1.1	## ------------------------------------------------------------------------
9
10
11			package DesignPattern::Exception;
12
13			use strict;
14			use warnings;
15
16	joko	1.2
17			use base qw( DesignPattern::Object );
18
19	joko	1.1	sub checkExceptions {
20			my $self = shift;
21
22			# behaviour A: die on error
23			#die ($@) if $@;
24
25			# behaviour B: log the error message as a warning
26			if ($@) {
27	joko	1.2	if ($self->can('log')) {
28			$self->log($@, 'warning');
29			} else {
30			#print "warning: ", $@, "\n";
31			#print "warning: ", $@, "\n";
32			$self->log_basic($@, 'warning');
33			}
34	joko	1.1	}
35
36			}
37
38			1;
39			__END__
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26