File Coverage

blib/lib/Class/Component/Component/Plaggerize/ConfigLoader.pm

Criterion	Covered	Total	%
statement	14	18	77.7
branch	1	4	25.0
condition	1	2	50.0
subroutine	4	4	100.0
pod	0	1	0.0
total	20	29	68.9

package Class::Component::Component::Plaggerize::ConfigLoader;
use strict;
use warnings;

use YAML ();

sub setup_config {
    my $class = shift;
    my($config_file) = @_;

    my $config = $class->NEXT( setup_config => @_ );
    $config_file = $config || $config_file || {};
    return $config_file if ref($config_file);

    open my $fh, '<:utf8', $config_file or die $!;
    $config = YAML::LoadFile($fh);
    close $fh;

    $config;
}

1;