view release on metacpan or  search on metacpan

lib/Acme/Archive/Mbox.pm  view on Meta::CPAN

=head2 new ()

Create an Acme::Archive::Mbox object.

=cut

sub new {
    my $class = shift;
    my $self = { files => [] };
    return bless $self,$class;
}

=head2 add_data ($name, $contents, %attr)

Add a file given a filename and contents.  (File need not exist on disk)

=cut

sub add_data {
    my $self = shift;

lib/Acme/Archive/Mbox/File.pm  view on Meta::CPAN

=cut

sub new {
    my $class = shift;
    my $name = shift;
    my $contents = shift;
    my %attr = @_;

    my $self = { name => $name, contents => $contents, %attr };
    return unless ($self->{name} and $self->{contents});
    return bless $self, $class;
}

=head2 name

Returns the name of the file.

=cut

sub name {
    my $self = shift;