File Coverage

blib/lib/Net/iTMS/Error.pm

Criterion	Covered	Total	%
statement	12	21	57.1
branch	0	2	0.0
condition			n/a
subroutine	4	7	57.1
pod	1	1	100.0
total	17	31	54.8

package Net::iTMS::Error;
#
# Written by Thomas R. Sibley,
#
use warnings;
use strict;

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

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

=head1 NAME

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

=head1 DESCRIPTION

Error handling parts of the L distribution.

=head2 Methods

=over 12

=item C

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

=cut
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;
}

=back

=head1 LICENSE

Copyright 2004, Thomas R. Sibley.

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

=head1 AUTHOR

Thomas R. Sibley, L

=cut

42;