package packdrake;

sub new {
    my ($_class, $_file, %_options) = @_;
}

sub extract_archive {
    my ($_pack, $_dir, @_files) = @_;
}

sub extract_all_archive {
    my ($_pack, $_dir) = @_;
}

sub list_archive {
    my (@_files) = @_;
}

sub build_archive {
    my ($_listh, $_dir, $_archive, $_size, $_compress, $_uncompress) = @_;
}

sub cat_archive {
    my (@_files) = @_;
}