File Coverage

blib/lib/Config/General/Hierarchical/Test.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	19	19	100.0

# Config::General::Hierarchical::Test.pm - Hierarchical Generic Config Test Module

package Config::General::Hierarchical::Test;

$Config::General::Hierarchical::Test::VERSION = 0.07;

use strict;
use warnings;

use base 'Config::General::Hierarchical';

sub syntax {
    my ($self) = @_;
    my %constraint = (
        array => 'aI',
        node  => {
            array => 'a',
            key   => 'u',
            value => '',
        },
        value => 'N',
    );
    return $self->merge_values( \%constraint, $self->SUPER::syntax );
}

our $count = 0;

sub DESTROY {
    $count++;
}

1;

__END__