| perfSONAR_PS-Base documentation | Contained in the perfSONAR_PS-Base distribution. |
perfSONAR_PS::Error_compat - A module that provides a transition between a full on exceptions framework for perfSONAR PS and having each service specify explicitly the eventType and description.
This module provides a simple method for throwing exceptions that look similar to how eventType/description messages used to be propogated.
# if an error occurs, perfSONAR_PS objects should throw an error eg
sub openDB {
my $handle = undef;
$handle = DBI->connect( ... )
or throw perfSONAR_PS::Error_compat( "error.common.storage", "Could not connect to database: " . $DBI::errstr . "\n" );
return $handle;
}
### script.pl ###
# in the calling code
my $dbh = undef;
try {
$dbh = &openDB();
}
catch perfSONAR_PS::Error_compat with {
# print the contents of the error object (the string)
print "An error occur: ".$@->eventType."/".$@->errorMessage."\n";
}
otherwise {
# some other error occured!
print "Some unknown error occurred! $@\n";
}
finally {
print "Done!\n"'
};
# don't forget the trailing ';'
perfSONAR_PS::Services::Base, perfSONAR_PS::Services::MA::General, perfSONAR_PS::Common, perfSONAR_PS::Messages, perfSONAR_PS::Transport, perfSONAR_PS::Client::Status::MA, perfSONAR_PS::Client::Topology::MA
To join the 'perfSONAR-PS' mailing list, please visit:
https://mail.internet2.edu/wws/info/i2-perfsonar
The perfSONAR-PS subversion repository is located at:
https://svn.internet2.edu/svn/perfSONAR-PS
Questions and comments can be directed to the author, or the mailing list.
$Id:$
Aaron Brown, aaron@internet2.edu
You should have received a copy of the Internet2 Intellectual Property Framework along with this software. If not, see <http://www.internet2.edu/membership/ip.html>
Copyright (c) 2004-2008, Internet2 and the University of Delaware
All rights reserved.
| perfSONAR_PS-Base documentation | Contained in the perfSONAR_PS-Base distribution. |
package perfSONAR_PS::Error_compat;
use strict; use warnings; our $VERSION = 0.09; use base 'Error'; my $debug = 0; sub new { my $self = shift; my $eventType = shift; my $text = shift; my @args = (); if ($debug) { local $Error::Debug = 1; } local $Error::Depth = $Error::Depth + 1; my $obj = $self->SUPER::new(-text => $text, @args); $obj->{EVENT_TYPE} = $eventType; return $obj; } sub eventType { my $self = shift; return $self->{EVENT_TYPE}; } sub errorMessage { my $self = shift; return $self->text(); } 1;
# vim: expandtab shiftwidth=4 tabstop=4