File Coverage

blib/lib/Perinci/Sub/Util/DepModule.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	6	6	100.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	36	36	100.0

package Perinci::Sub::Util::DepModule;

our $DATE = '2016-09-29'; # DATE
our $VERSION = '0.001'; # VERSION

use 5.010001;
use strict;
use warnings;

use Exporter qw(import);
our @EXPORT_OK = qw(
                       get_required_dep_modules
               );

sub _find {
    my ($deps, $res) = @_;

    return unless $deps;
    $res->{"Perinci::Sub::DepChecker"} = 0;
    for my $k (keys %$deps) {
        if ($k =~ /\A(any|all|none)\z/) {
            my $v = $deps->{$k};
            _find($_, $res) for @$v;
        } elsif ($k =~ /\A(env|code|prog|pkg|func|exec|tmp_dir|trash_dir|undo_trash_dir)\z/) {
            # skip builtin deps supported by Perinci::Sub::DepChecker
        } else {
            $res->{"Perinci::Sub::Dep::$k"} = 0;
        }
    }
}

sub get_required_dep_modules {
    my $meta = shift;

    my %res;
    _find($meta->{deps}, \%res);
    \%res;
}

1;
# ABSTRACT: Given a Rinci function metadata, find what dep modules are required

__END__