PAR Cross-Platform Packaging and Deployment with PAR #22

Accessing packed files

    my $zip = PAR::par_handle($0);    # an Archive::Zip object
    my $content = $zip->contents('MANIFEST');
    my $content = PAR::read_file('MANIFEST');
    use PAR '/home/mylibs/*.par';
    while (my ($filename, $zip) = each %PAR::LibCache) {
        print "[$filename - MANIFEST]\n";
        print $zip->contents('MANIFEST');
    }
Copyright © 2005 Autrijus Tang