Acme::Archive::Mbox::File - Archive::Mbox file

Acme-Archive-Mbox documentation Contained in the Acme-Archive-Mbox distribution.

Index

Code Index:

NAME

Top

Acme::Archive::Mbox::File - Archive::Mbox file

VERSION

Top

Version 0.01

SYNOPSIS

Top

No user-servicable parts inside.

    use Acme::Archive::Mbox::File;

    my $file = Acme::Archive::Mbox->new(name => 'file/name', contents => $contents, ...);

FUNCTIONS

Top

new

Create an Acme::Archive::Mbox::File object.

name

Returns the name of the file.

contents

Returns the contents of the file.

mode

Returns the mode of the file.

uid

Returns the owner's uid.

gid

Returns the gid of the group which owns the file.

mtime

Returns the mtime of the file as a unix timestamp.

AUTHOR

Top

Ian Kilgore, <iank at cpan.org>

BUGS

Top

This module is pretty much a hash. Don't expect it to be very robust.

NOTES

Top

No special precaution is made against storing files with absolute paths or directory traversals in their names; this is up to the extraction tool.

COPYRIGHT & LICENSE

Top

Copyright 2008 Ian Kilgore, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Acme-Archive-Mbox documentation Contained in the Acme-Archive-Mbox distribution. 
package Acme::Archive::Mbox::File;

use warnings;
use strict;


our $VERSION = '0.01';



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


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


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


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


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


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


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


1; # End of Acme::Archive::Mbox