File Coverage

blib/lib/File/KeePass/Agent/KDBX.pm

Criterion	Covered	Total	%
statement	25	27	92.5
branch	2	4	50.0
condition	4	12	33.3
subroutine	9	10	90.0
pod	3	4	75.0
total	43	57	75.4

package File::KeePass::Agent::KDBX;
# ABSTRACT: A KeePass 2 agent

use utf8;
use warnings;
use strict;

use Module::Load;
use namespace::clean;

use parent 'File::KeePass::Agent';

our $VERSION = '0.902'; # VERSION

our $KEEPASS_CLASS;

sub new {
    my $class = shift;
    my %args  = @_ == 1 && (ref $_[0] eq 'HASH') ? %{$_[0]} : @_;
    return bless \%args, $class;
}

sub run { __PACKAGE__->new->SUPER::run(@_) }


sub keepass_class {
    (ref $_[0] eq 'HASH') && $_[0]->{keepass_class}
        || $KEEPASS_CLASS || $ENV{PERL_FILE_KEEPASS_CLASS} || 'File::KeePass::KDBX';
}

sub load_keepass {
    my $self = shift;
    load $self->keepass_class;
    return $self->SUPER::load_keepass(@_);
}

1;

__END__