File Coverage

blib/lib/Linux/Perl/EasyPack.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	4	4	100.0
condition			n/a
subroutine	3	3	100.0
pod	0	1	0.0
total	23	24	95.8

package Linux::Perl::EasyPack;

use strict;
use warnings;

#Do not use in external code. This interface may change.
sub split_pack_list {
    my (@array) = @_;

    my $pack = q<>;
    my @keys;

    for my $i (0 .. $#array) {
        if ($i % 2) {
            if (index($array[$i], 'x') == 0) {
                pop @keys;
            }

            $pack .= $array[$i];
        }
        else {
            push @keys, $array[$i];
        }
    }

    return \@keys, $pack;
}

1;