File Coverage

blib/lib/BBS/Perm/Config.pm

Criterion	Covered	Total	%
statement	40	43	93.0
branch	4	6	66.6
condition	1	3	33.3
subroutine	10	10	100.0
pod	5	5	100.0
total	60	67	89.5

package BBS::Perm::Config;

use warnings;
use strict;
use Carp;

BEGIN {
    local $@;
    eval { require YAML::Syck; };
    if ($@) {
        require YAML;
        *_LoadFile = *YAML::LoadFile;
        *_DumpFile = *YAML::DumpFile;
    }
    else {
        *_LoadFile = *YAML::Syck::LoadFile;
        *_DumpFile = *YAML::Syck::DumpFile;
    }
}

sub new {
    my $class = shift;
    my $self  = {};
    bless $self, ref $class || $class;
    my %opt = @_;
    if ( $opt{file} ) {
        $self->{file} = $opt{file};
        $self->load( $opt{file} );
    }
    return $self;
}

sub load {
    my $self = shift;
    $self->{config} = _LoadFile(shift);
    $self->_tidy;
}

sub _tidy {
    my $self = shift;
    for my $site ( grep { $_ ne 'global' } keys %{ $self->{config} } ) {
        for ( keys %{ $self->{config}{global} } ) {
            $self->{config}{$site}{$_} = $self->{config}{global}{$_}
              unless defined $self->{config}{$site}{$_};
        }
    }
}

sub sites {
    my $self = shift;
    return grep { $_ ne 'global' } keys %{ $self->{config} };
}

sub setting {
    my ( $self, $site ) = @_;
    return $self->{config}{$site};
}

sub file {
    return shift->{file};
}

1;

__END__