File Coverage

blib/lib/Module/Setup/Path/Config.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod	0	3	0.0
total	36	39	92.3

package Module::Setup::Path::Config;
use strict;
use warnings;
use base 'Module::Setup::Path::Base';

use YAML ();

use Module::Setup;
use Module::Setup::Path::File;

sub new {
    my($class, @path) = @_;
    my $self = $class->SUPER::new(@path);
    $self->{path} = Module::Setup::Path::File->new(@path);
    $self;
}

sub dump {
    my($self, $config) = @_;
    Module::Setup::log($self, "Dump config " . $self->path);
    YAML::DumpFile($self->path, $config);
}

sub load {
    my $self = shift;
    YAML::LoadFile( $self->path );
}

1;