/usr/share/perl5/Mail/MboxParser/Base.pm is in libmail-mboxparser-perl 0.55-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | # 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 <<USAGE;
$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__
=head1 NAME
Mail::MboxParser::Base - base clase for all other classes
=head1 DESCRIPTION
Nothing to describe nor to document here. Read L<Mail::MboxParser> on how to use the module.
=head1 VERSION
This is version 0.55.
=head1 AUTHOR AND COPYRIGHT
Tassilo von Parseval <tassilo.von.parseval@rwth-aachen.de>
Copyright (c) 2001-2005 Tassilo von Parseval.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
=cut
|