perfSONAR_PS::Error_compat - A module that provides a transition between a full


perfSONAR_PS-Base documentation Contained in the perfSONAR_PS-Base distribution.

Index


Code Index:

NAME

Top

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.

DESCRIPTION

Top

This module provides a simple method for throwing exceptions that look similar to how eventType/description messages used to be propogated.

SYNOPSIS

Top

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

SEE ALSO

Top

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.

VERSION

Top

$Id:$

AUTHOR

Top

Aaron Brown, aaron@internet2.edu

LICENSE

Top

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

Top


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