File Coverage

blib/lib/Config/Backend/INIREG.pm

Criterion	Covered	Total	%
statement	26	29	89.6
branch	3	6	50.0
condition			n/a
subroutine	8	8	100.0
pod	1	5	20.0
total	38	48	79.1

package Config::Backend::INIREG;

use 5.006;
use strict;

use Config;
our $VERSION='0.02';

if ($Config{'osname'} eq "MSWin32") {
  require Config::Backend::Registry;
}
else {
  require Config::Backend::INI;
}

sub new {
  my $class=shift;
  my $appname=shift;
  my $self;

  if ($Config{'osname'} eq "MSWin32") {
    $self->{"cfg"}=new Config::Backend::Registry($appname);
  }
  else {
    my $home=$ENV{'HOME'};
    if (not defined $home) { $home="."; }
    elsif ($home eq "") { $home="."; }
    $self->{"cfg"}=new Config::Backend::INI("$home/.$appname.ini");
  }

  bless $self,$class;

return $self;
}

sub set {
  my $self=shift;
  $self->{"cfg"}->set(@_);
}

sub get {
  my $self=shift;
  $self->{"cfg"}->get(@_);
}

sub del {
  my $self=shift;
  $self->{"cfg"}->del(@_);
}

sub variables {
  my $self=shift;
  $self->{"cfg"}->variables(@_);
}



1;
__END__