1use strict; 2use warnings; 3use Archive::Zip qw( :ERROR_CODES ); 4 5my $zip = Archive::Zip->new(); 6exit($zip->addTree("t/data", "") == AZ_OK 7 && $zip->writeToFileNamed("t/hello.par") == AZ_OK ? 0 : 1); 8