File Coverage

blib/lib/Config/Maker/Option/Meta.pm

Criterion	Covered	Total	%
statement	36	36	100.0
branch	3	4	75.0
condition			n/a
subroutine	8	8	100.0
pod	0	2	0.0
total	47	50	94.0

package Config::Maker::Option::Meta;

use utf8;
use warnings;
use strict;

use Carp;

use Config::Maker::Option;
use Config::Maker::Type;
our @ISA = qw(Config::Maker::Option);

sub set {
    my ($self, $value) = @_;
    if(UNIVERSAL::isa($value, 'Config::Maker::Option')) {
	$self->{-value} = $value->{-value};
	$self->{-children} = $value->{-children};
	$self->{-parent} = $value->{-parent};
    } else {
	$self->{-value} = $value;
	$self->{-children} = [];
	$self->{-parent} = undef; # FIXME This is a bit bogus...
    }
    $self;
}

sub set_child {
    my ($self, $name, $value) = @_;
    my $child = $self->get($name);
    unless(defined $child) { # No, we don't have that child...
	my $type = Config::Maker::Type->meta->get($name);
	$child = ref($self)->new(-type => $type, -value => $value);
	push @{$self->{-children}}, $child;
	$child->{-parent} = $self;
    }
    $child->set($value);
}

1;

__END__