File Coverage

blib/lib/Refinements.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	3	6	50.0
condition	2	5	40.0
subroutine	9	9	100.0
pod			n/a
total	47	53	88.6

use 5.010;
use strict;
use warnings;

{
	package Refinements;

	use Exporter::Tiny ();
	use Module::Runtime qw( module_notional_filename );

	our $AUTHORITY = 'cpan:TOBYINK';
	our $VERSION   = '0.001';
	our @EXPORT    = qw( refine );
	our @ISA       = qw( Exporter::Tiny );

	sub _exporter_validate_opts
	{
		my $class = shift;
		my ($opt) = @_;

		defined($opt->{into}) && !ref($opt->{into})
			or Exporter::Tiny::_croak('Cannot set up %s as a Refinements::Package', $opt->{into});

		$INC{module_notional_filename($opt->{into})} ||= __FILE__;

		require Refinements::Package;
		no strict 'refs';
		push @{ $opt->{into} . '::ISA' }, 'Refinements::Package';
	}

	sub _generate_refine
	{
		my $class = shift;
		my ($name, $value, $opt) = @_;

		my $collection = $opt->{into};

		return sub {
			@_ >= 2
				or Exporter::Tiny::_croak('Expected at least 2 arguments to refine(); got %d', scalar @_);
			my $coderef = pop;
			$collection->add_refinement($_, $coderef) for map { ref($_) ? @$_ : $_ } @_;
		};
	}
}

1;

__END__