File Coverage

blib/lib/OpenStack/MetaAPI/API.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch	3	6	50.0
condition			n/a
subroutine	3	3	100.0
pod	0	1	0.0
total	20	24	83.3

package OpenStack::MetaAPI::API;

use strict;
use warnings;

#use Moo::Role;
#use Moo;

sub get_service {
    my (%opts) = @_;

    my $name = $opts{name}      or die "name required";
    my $auth = ref($opts{auth}) or die "auth required";

    my $pkg = ucfirst $name;
    $pkg = __PACKAGE__ . "::$pkg";

    eval qq{ require $pkg; 1 } or die "Failed to load $pkg: $@";

    delete $opts{name};

    return $pkg->new(%opts);
}

1;

__END__