Net::iTMS::Error - Handles errors in Net::iTMS

Net-iTMS documentation Contained in the Net-iTMS distribution.

Index

Code Index:

NAME

Top

Net::iTMS::Error - Handles errors in Net::iTMS

DESCRIPTION

Top

Error handling parts of the Net::iTMS distribution.

Methods

error

Returns a string containing an error message (if there is one). Usually useful after a method has returned undef for finding out what went wrong.

LICENSE

Top

Copyright 2004, Thomas R. Sibley.

You may use, modify, and distribute this package under the same terms as Perl itself.

AUTHOR

Top

Thomas R. Sibley, http://zulutango.org:82/

Net-iTMS documentation Contained in the Net-iTMS distribution. 
package Net::iTMS::Error;
#
# Written by Thomas R. Sibley, <http://zulutango.org:82/>
#
use warnings;
use strict;

use vars qw($VERSION @EXPORT);
$VERSION = '0.13';

use Exporter::Lite;
@EXPORT = qw(error _debug _set_error);


sub error {
    my $self = shift;
    return $self->{error};
}

sub _debug {
    my $self = shift;
    print STDERR @_, "\n" if $self->{debug};
    return 1;
}

sub _set_error {
    my $self = shift;
    $self->{error} = join '', @_;
    $self->_debug($self->{error});
    return undef;
}


42;