File Coverage

blib/lib/Data/Phrasebook/Loader/ApacheFormat.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	6	8	75.0
condition	5	6	83.3
subroutine	8	8	100.0
pod	2	2	100.0
total	58	61	95.0

package Data::Phrasebook::Loader::ApacheFormat;

use 5.006;
use strict;
use warnings;

our $VERSION = '1.00';

use Config::ApacheFormat;
use Carp qw(croak);
use base qw( Data::Phrasebook::Loader::Base Data::Phrasebook::Debug );

sub load {
    my ($self, $file, $dict) = @_;
    croak "Missing required file option."
      unless defined $file;
    croak "Specified file '$file' cannot be read."
      unless -r $file;

    # load the file, looking in the cache first.  Caching is a
    # necessity here because Data::Phrasebook reloads every time
    # dict() is changed, which, for my use, is very common
    our %CACHE;
    my $mtime = (stat($file))[9];
    if ($CACHE{$file} and $CACHE{$file}{mtime} == $mtime) {
        # fetch from the cache
        $self->{conf} = $CACHE{$file}{conf};

    } else {
        # load a new file
        $self->{conf} = Config::ApacheFormat->new();
        $self->{conf}->read($file);
        $CACHE{$file}{conf}  = $self->{conf};
        $CACHE{$file}{mtime} = $mtime;
    }

    # store dict for use in get

    $self->{dict} = $dict;
}

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

    # look in dict block if set and available in the file
    if ($dict and my $block = eval { $conf->block($dict) }) {
        $conf = $block;
    }

    return $conf->get($key);
}

1;

__END__