File Coverage

blib/lib/Config/Frontend/Tie.pm

Criterion	Covered	Total	%
statement	28	34	82.3
branch			n/a
condition			n/a
subroutine	9	12	75.0
pod			n/a
total	37	46	80.4

package Config::Frontend::Tie;

use strict;
use Config::Frontend;

our $VERSION='0.02';

sub TIEHASH {
  my ($class,$conf)=@_;
  my $self;

  $self->{'conf'}=$conf;
  bless $self,$class;

return $self;
}

sub FETCH {
  my ($self,$key)=@_;
  return $self->{"conf"}->get($key);
}

sub STORE {
  my ($self,$key,$val)=@_;
  $self->{"conf"}->set($key,$val);
return $val;
}

sub DELETE {
  my ($self,$key)=@_;
  $self->{"conf"}->del($key);
}

sub EXISTS {
  my ($self,$key)=@_;
  return (defined $self->{"conf"}->get($key));
}

sub CLEAR {
  my ($self)=@_;
  my @vars=$self->{"conf"}->variables();
  for my $var (@vars) {
    $self->{"conf"}->del($var);
  }
}

sub FIRSTKEY {
  my ($self)=@_;
  my @vars=$self->{"conf"}->variables();
  $self->{"vars"}=\@vars;
return shift @{$self->{"vars"}};
}

sub NEXTKEY {
  my ($self)=@_;
return shift @{$self->{"vars"}};
}

sub UNTIE {
  # Nothing to do.
}

sub DESTROY {
  # Nothing to do.
}

1;
__END__