File Coverage

blib/lib/Module/cpmfile/Util.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	2	4	50.0
condition	2	3	66.6
subroutine	7	7	100.0
pod	0	1	0.0
total	43	47	91.4

package Module::cpmfile::Util;
use v5.24;
use warnings;
use experimental qw(lexical_subs signatures);

use CPAN::Meta::Requirements;

use Exporter 'import';
our @EXPORT_OK = qw(merge_version _yaml_hash);

my $TEST_PACKAGE = '__TEST_PACKAGE__';

sub merge_version ($v1, $v2) {
    my $r = CPAN::Meta::Requirements->new;
    $r->add_string_requirement($TEST_PACKAGE, $v1) if defined $v1;
    $r->add_string_requirement($TEST_PACKAGE, $v2) if defined $v2;
    $r->requirements_for_module($TEST_PACKAGE);
}

{
    my $YAML;
    sub _yaml_hash ($hash, $indent) {
        $YAML ||= do { require YAML::PP; YAML::PP->new(header => 0) };
        my @string = split /\n/, $YAML->dump_string($hash);
        map { "$indent$_" } @string;
    }
}

1;