File Coverage

blib/lib/Module/cpmfile/Util.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	2	4	50.0
condition	2	3	66.6
subroutine	6	6	100.0
pod	0	1	0.0
total	34	38	89.4

package Module::cpmfile::Util;
use strict;
use warnings;

use CPAN::Meta::Requirements;

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

my $TEST_PACKAGE = '__TEST_PACKAGE__';

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

1;