File Coverage

blib/lib/WebService/UK/Parliament.pm

Criterion	Covered	Total	%
statement	14	30	46.6
branch	0	6	0.0
condition	0	3	0.0
subroutine	5	7	71.4
pod	1	1	100.0
total	20	47	42.5

package WebService::UK::Parliament;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.04';

use Mojo::Base -base;
use Module::Load qw/load/;

has instantiate => sub{ [qw/Bills CommonsVotes ErskineMay LordsVotes Members Now OralQuestions StatutoryInstruments Treaties WrittenQuestions/] };
has private => 0;

has instantiated => sub { {} };

sub new {
	my $class = shift;
	my $self = bless @_ ? @_ > 1 ? {@_} : {%{$_[0]}} : {}, ref $class || $class;
	for my $instant (@{ $self->instantiate }) {
		my $class = sprintf "WebService::UK::Parliament::%s", $instant;
		load $class;
		$self->instantiated->{$instant} = $class->new( private => $self->private );
	}
	return $self;
}

sub AUTOLOAD {
	my ($self) = shift;
	my $classname =  ref $self;
        my $validname = '[a-zA-Z][a-zA-Z0-9_]*';
        our $AUTOLOAD =~ /^${classname}::($validname)$/;
	my $key = $1;
        die "illegal key name, must be of $validname form\n$AUTOLOAD" unless $key;
	return $self->instantiated->{ucfirst($key)};
}

1;

__END__