File Coverage

blib/lib/Mock/Data/Generator.pm

Criterion	Covered	Total	%
statement	9	15	60.0
branch	1	4	25.0
condition			n/a
subroutine	4	7	57.1
pod	3	3	100.0
total	17	29	58.6

package Mock::Data::Generator;
use strict;
use warnings;
require MRO::Compat if "$]" < '5.009005';
require mro;
mro::set_mro(__PACKAGE__, 'c3');
require Scalar::Util;
require Carp;
our @CARP_NOT= qw( Mock::Data Mock::Data::Util );

# ABSTRACT: Utilities and optional base class for authoring generators
our $VERSION = '0.01'; # VERSION


sub generate { Carp::croak "Unimplemented" }


sub compile {
	my ($self, @default_params)= @_;
	# If no arguments, add a simple wrapper around ->generate
	return sub { $self->generate(shift) } unless @default_params > 1;
	return sub { $self->generate(shift, @default_params) };
}


our $_try_reverse;
sub combine_generator {
	# if already recursed, return the original default combination
	return Mock::Data::Set->new_uniform($_[1], $_[0]) if $_try_reverse;
	# Call the peer's combine_generator in case it is overridden
	local $_try_reverse= 1;
	return $_[1]->combine_generator($_[0]);
}


require Mock::Data::Set;
1;

__END__