File Coverage

blib/lib/Class/ConfigMgr.pm

Criterion	Covered	Total	%
statement	21	60	35.0
branch	0	16	0.0
condition	0	6	0.0
subroutine	7	17	41.1
pod	4	7	57.1
total	32	106	30.1

# Copyright (c) 2005 Timothy Appnel
# http://www.timaoutloud.org/
# This code is released under the Artistic License.
#
# Class::ConfigMgr - A base class for implementing a
# singleton object configuration manager.
#

package Class::ConfigMgr;
use strict;
use warnings;

use vars qw( $VERSION );
$VERSION = 0.1;

use Class::ErrorHandler;
@Class::ConfigMgr::ISA = qw( Class::ErrorHandler );

sub instance {
    my $class = shift;
    no strict 'refs';
    return ${"${class}::cfg"} if ${"${class}::cfg"};
    ${"${class}::cfg"} = $class->new;
}

sub new {
    my $mgr = bless { __directive => {} }, $_[0];
    $mgr->init;
    $mgr;
}

sub init { die "'init' must be overloaded." }

sub define {
    my $mgr = shift;
    my ( $dir, %param ) = @_;
    $mgr->{__directive}{$dir} = undef;
    $mgr->set( $dir, $param{Default} ) if exists $param{Default};
}

sub read_config {
    my ( $class, $cfg_file ) = @_;
    my $mgr = $class->instance;
    local ( *FH, $_, $/ );
    $/ = "\n";
    open FH, $cfg_file
      or return $class->error("Error opening file '$cfg_file': $!");
    while () {
        chomp;
        next if !/\S/ || /^#/;
        my ( $dir, $val ) = $_ =~ /^\s*(\S+)\s+(.+)$/;
        $val =~ s/\s*$//;
        next unless $dir && defined($val);
        return $class->error("$cfg_file: $.: directive $dir")
          unless exists $mgr->{__directive}->{$dir};
        $mgr->set( $dir, $val );
    }
    close FH;
    1;
}

sub get { $_[0]->{__directive}{ $_[1] } }
sub set { $_[0]->{__directive}{ $_[1] } = $_[2] }

sub DESTROY { }

use vars qw( $AUTOLOAD );

sub AUTOLOAD {
    my $mgr = $_[0];
    ( my $dir = $AUTOLOAD ) =~ s!.+::!!;
    die("No such configuration directive '$dir'")
      unless exists $mgr->{__directive}->{$dir};
    no strict 'refs';
    *$AUTOLOAD = sub {
        my $mgr = shift;
        @_ ? $mgr->set( $dir, $_[0] ) : $mgr->get($dir);
    };
    goto &$AUTOLOAD;
}

1;

__END__