File Coverage

blib/lib/Config/INI/Reader/LibIni.pm

Criterion	Covered	Total	%
statement	22	24	91.6
branch	4	6	66.6
condition			n/a
subroutine	6	7	85.7
pod	4	4	100.0
total	36	41	87.8

package Config::INI::Reader::LibIni;
{
  $Config::INI::Reader::LibIni::VERSION = '0.002';
}

use strict;
use warnings;

use base 'Config::INI::Reader';

sub new {
    my ($class) = @_;
    return bless { data => [] }, $class;
}

sub change_section {
    my ($self, $section) = @_;
    push @{ $self->{data} }, [ $section => {} ];
}

sub set_value {
    my ($self, $name, $value) = @_;

    if ( exists $self->{data}[-1][1]{$name} ) {
        my $existing = $self->{data}[-1][1]{$name};

        if (ref $existing eq 'ARRAY') {
            push @{ $self->{data}[-1][1]{$name} }, $value;
        } else {
            $self->{data}[-1][1]{$name} = [$existing, $value];
        }
    } else {
        $self->{data}[-1][1]{$name} = $value;
    }
}

sub current_section {
    my ($self) = @_;
    exists $self->{data}[-1] ? $self->{data}[-1][0] : $self->starting_section;
}

1;

__END__