File Coverage

blib/lib/CGI/Application/Plugin/Phrasebook.pm

Criterion	Covered	Total	%
statement	38	38	100.0
branch	4	4	100.0
condition			n/a
subroutine	10	10	100.0
pod	2	2	100.0
total	54	54	100.0

package CGI::Application::Plugin::Phrasebook;

use strict;
use warnings;

use Carp         'confess';
use Scalar::Util 'blessed';

use CGI::Application;
use Data::Phrasebook;

our $VERSION = '0.02';

our @EXPORT = qw(
    config_phrasebook
    phrasebook
);

sub import {
    my $pkg  = shift;
    my $call = caller;
    no strict 'refs';
    foreach my $sym (@EXPORT) {
        *{"${call}::$sym"} = \&{$sym};
    }
}

sub config_phrasebook {
    my $self = shift;
    unless (ref($_[0])) {
        $self->{'__PHRASEBOOK'}{'pb'}{'__DEFAULT__'} = Data::Phrasebook->new(@_);
        return;
    }
    foreach my $name (keys %{$_[0]}) {
        $self->{'__PHRASEBOOK'}{'pb'}{$name} = Data::Phrasebook->new(%{$_[0]->{$name}});
    }
}

sub phrasebook {
    my $self = shift;
    return $self->{'__PHRASEBOOK'}{'pb'}{'__DEFAULT__'} unless @_;
    return $self->{'__PHRASEBOOK'}{'pb'}{$_[0]};
}

1;

__END__