File Coverage

blib/lib/Mail/MboxParser/Base.pm

Criterion	Covered	Total	%
statement	16	19	84.2
branch	1	2	50.0
condition			n/a
subroutine	6	7	85.7
pod	0	4	0.0
total	23	32	71.8

# Mail::MboxParser - object-oriented access to UNIX-mailboxes
# base-class for all other classes in Mail::MboxParser
#
# Copyright (C) 2001  Tassilo v. Parseval
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.

# Version: $Id: Base.pm,v 1.6 2002/02/21 09:06:14 parkerpine Exp $

package Mail::MboxParser::Base;

require 5.004;

use strict;
use vars qw($VERSION);
$VERSION = "0.07";

sub new(@) {
    my ($class, @args) = @_;

    if ($class eq __PACKAGE__) {
	use Carp;
	my $package = __PACKAGE__;
	croak <
$package should not really be instantiated directly.
Instead, create one of its derived subclasses such as Mail::MboxParser.
USAGE
    }
    my $self = bless {}, $class;
    $self->init(@args);
}

sub error() { shift->{LAST_ERR} }

sub log() { shift->{LAST_LOG} }

sub reset_last {
    my $self = shift;
    ($self->{LAST_ERR}, $self->{LAST_LOG}) = (undef, undef);
}

1;

__END__