File Coverage

blib/lib/App/ygeo/yaml.pm

Criterion	Covered	Total	%
statement	9	27	33.3
branch	4	10	40.0
condition	3	3	100.0
subroutine	2	4	50.0
pod	0	3	0.0
total	18	47	38.3

# ABSTRACT: Set of functions for working with yaml config files

package App::ygeo::yaml;
$App::ygeo::yaml::VERSION = '0.02';


use YAML::Tiny;

require Exporter;
our @ISA       = qw(Exporter);
our @EXPORT_OK = qw(data_from_first_valid_cfg create_cfg keys_exists_no_empty);
our %EXPORT_TAGS = ( 'ALL' => [@EXPORT_OK] );


sub data_from_first_valid_cfg {
    my ( $config_files, $required_keys ) = @_;

    for my $file (@$config_files) {

        if ( -e $file ) {

            my $cfg = YAML::Tiny->read($file)->[0];

            return $cfg if keys_exists_no_empty( $cfg, $required_keys );
            next;

        }

    }

    return;
}


sub keys_exists_no_empty {
    my ( $hash, $required_keys ) = @_;

    my $i = 0;

    for my $k (@$required_keys) {
        if ( defined $hash->{$k} && length $hash->{$k} ) {
            $i++;
        }
    }

    $i == scalar @$required_keys ? 1 : 0;
}


sub create_cfg {

    my ( $cfg, @required_keys ) = @_;

    open( FILE, ">", $cfg ) || die "cannot open file $cfg: " . $!;
    print FILE "";
    close FILE;

    my $cfg_values = {};
    for my $k (@required_keys) {
        print "$k: ";
        chomp( $cfg_values->{$k} =  );
    }

    my $yaml = YAML::Tiny->new($cfg_values);
    $yaml->write($cfg);

    return $cfg_values;
}

1;

__END__