File Coverage

blib/lib/Concierge/Auth.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	6	6	100.0
condition			n/a
subroutine	3	3	100.0
pod	1	1	100.0
total	23	23	100.0

package Concierge::Auth v0.5.0;
use v5.36;

# ABSTRACT: Factory/dispatcher for Concierge::Auth backends

use Carp qw/croak/;

sub new {
    my ($class, %args) = @_;
    my $backend_class = delete $args{backend}
        or croak "Concierge::Auth->new requires a 'backend' class name";

    eval "require $backend_class; 1"
        or croak "Cannot load Auth backend $backend_class: $@";

    my $backend;
    eval { $backend = $backend_class->new(%args); };
    croak "Failed to initialize backend $backend_class: $@" if $@;

    return $backend;
}

1;

__END__