File Coverage

blib/lib/CGI/Application/Plugin/Config/IniFiles.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	2	2	100.0
condition			n/a
subroutine	9	9	100.0
pod	2	3	66.6
total	39	40	97.5

#! perl
# $Id:$

package CGI::Application::Plugin::Config::IniFiles;

use 5.008;
use strict;
use warnings;

use CGI::Application;
use Config::IniFiles;

use base "Exporter";

our @EXPORT = qw( config_file config cfg );
our $VERSION = (qw$Revision: $)[1];

sub config_file {
  my($self,$file,%opt) = @_;
  if ( ref($file) eq 'Config::IniFiles' ) {
	# it's not a file after all, it's a Config::IniFiles object
    # useful for persistent environments like FastCGI
    $self->{'__CONFIG_INIFILES'}->{'__CONFIG'} = $file;
  } else {
    $self->{'__CONFIG_INIFILES'}->{'__FILE_NAME'} = $file;
    $self->{'__CONFIG_INIFILES'}->{'__CONFIG'} = Config::IniFiles->new('-file' => $file,%opt);
  }
  return $file;
}

sub config {
  return $_[0]->{'__CONFIG_INIFILES'}->{'__CONFIG'};
}

sub cfg {
  return $_[0]->{'__CONFIG_INIFILES'}->{'__CONFIG'};
}

1;

__END__