File Coverage

blib/lib/WebService/Upcoming/Object.pm

Criterion	Covered	Total	%
statement	0	21	0.0
branch	0	2	0.0
condition	0	2	0.0
subroutine	0	5	0.0
pod	0	1	0.0
total	0	31	0.0

# *****************************************************************************
# *                                                                           *
# * WebService::Upcoming::Object                                              *
# *                                                                           *
# *****************************************************************************


# Package *********************************************************************
package WebService::Upcoming::Object;


# Exports *********************************************************************
our $VERSION = '0.05';


# Code ************************************************************************
sub new
{
	my $clas;
	my $args;
	my $vers;
	my $self;

	($clas,$args,$vers) = @_;
	$self = {};
	bless($self,$clas);
	$self->{'version'} = $vers || '1.0';
	foreach (keys(%{$args}))
	{
		$self->{$_} = $args->{$_};
	}
	foreach ('version',$self->_list($self->{'version'}))
	{
		my $meth;

		# Duuuude!
		$meth = $_;
		*{$clas.'::'.$meth} = sub { return shift->{$meth}; }
			if (!defined(*{$clas.'::'.$meth}));
	}

	return $self;
}
sub _name { return ''; }
sub _list { return (); }
sub _fill { return;    }
1;
__END__