%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /var/www/pjc/public/1337_DATA/alfasymlink/root/usr/share/perl5/Archive/Cpio/
Upload File :
Create Path :
Current File : /var/www/pjc/public/1337_DATA/alfasymlink/root/usr/share/perl5/Archive/Cpio/File.pm

package Archive::Cpio::File;

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

    bless $val, $class;
}

sub name { my ($o) = @_; $o->{name} }
sub size { my ($o) = @_; length($o->{data}) }
sub get_content { my ($o) = @_; $o->{data} }

1;

Zerion Mini Shell 1.0