perl_checker_fake_packages/packdrake.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

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) = @_;
}