File Coverage

blib/lib/Linux/Perl/ParseFlags.pm

Criterion	Covered	Total	%
statement	13	14	92.8
branch	3	4	75.0
condition			n/a
subroutine	3	3	100.0
pod	0	1	0.0
total	19	22	86.3

package Linux::Perl::ParseFlags;

use strict;
use warnings;

sub parse {
    my ($arch_module, $flags_ar) = @_;

    my $flags = 0;
    if ( $flags_ar ) {
        for my $fl ( @$flags_ar ) {
            my $val_cr = $arch_module->can("_flag_$fl") or do {
                die "unknown flag: “$fl”";
            };
            $flags |= $val_cr->();
        }
    }

    return $flags;
}

1;