File Coverage

blib/lib/Template/Plugin/DBM/Deep.pm

Criterion	Covered	Total	%
statement	25	26	96.1
branch	6	8	75.0
condition	2	3	66.6
subroutine	6	6	100.0
pod	2	2	100.0
total	41	45	91.1

package Template::Plugin::DBM::Deep;

use 5.006;
use strict;
use warnings;

use base qw(Template::Plugin);

our $VERSION = '0.02';

sub new {
  my $class = shift;
  my $context = shift;		# passed by Template's USE

  my %ARGS;
  ## do we have any named args?
  if (ref $_[-1] and ref $_[-1] eq "HASH") {
    %ARGS = %{+pop};
  };
  ## do we have any positional args?
  if (@_) {
    $ARGS{"file"} = shift;
  }
  ## do we have too many?
  if (@_) {
    die "extra arguments to $class: @_";
  }

  die "$class: missing db file" unless $ARGS{"file"};

  ## now create the DBM::Deep object and return it:
  return $class->dbm_deep_class->new(%ARGS);
}

## lazy load DBM::Deep, and also return constant
## this permits overriding of the class
sub dbm_deep_class { require DBM::Deep; "DBM::Deep" }

1;
__END__