File Coverage

blib/lib/WWW/ORCID.pm

Criterion	Covered	Total	%
statement	15	24	62.5
branch	0	6	0.0
condition	0	3	0.0
subroutine	5	6	83.3
pod	0	1	0.0
total	20	40	50.0

package WWW::ORCID;

use strict;
use warnings;

our $VERSION = 0.02_01;

use Class::Load qw(try_load_class);
use Carp;
use namespace::clean;

my $DEFAULT_VERSION = '2.0';

sub new {
    my $self    = shift;
    my $opts    = ref $_[0] ? {%{$_[0]}} : {@_};
    my $version = $opts->{version} ||= $DEFAULT_VERSION;
    $version =~ s/\./_/g;
    $version .= '_public' if $opts->{public};
    my $class = "WWW::ORCID::API::v${version}";
    try_load_class($class) or croak("Could not load $class: $!");
    $class->new($opts);
}

1;

__END__