File Coverage

blib/lib/Lexical/TypeTiny.pm

Criterion	Covered	Total	%
statement	46	49	93.8
branch	4	6	66.6
condition	1	2	50.0
subroutine	14	15	93.3
pod	0	2	0.0
total	65	74	87.8

use 5.008006;
use strict;
use warnings;

package Lexical::TypeTiny;

our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION   = '0.002';

use Types::Standard qw(Any);
use Lexical::Types qw();
use Type::Registry qw();
use Import::Into qw();
use Variable::Magic qw(wizard cast);
use Carp qw();

sub import {
	my $me = shift;
	my $caller = caller;
	$me->setup_for($caller, @_);
}

sub setup_for {
	my $me = shift;
	my ($caller, @args) = @_;
	my %args = map { $_ => 1 } @args;

	my $reg = Type::Registry->for_class($caller);
	/\W/ or eval "package $_" for keys %$reg;

	if ($args{-nocheck}) {
		Lexical::Types->import::into($caller, as => sub { Any });
	}
	else {
		Lexical::Types->import::into($caller, as => sub { $reg->lookup($_[0]) });
	}
}

sub Type::Tiny::TYPEDSCALAR {
	my $type  =  $_[0];

	return if $type == Any;

	my $var   = \$_[1];
	my $check = $type->compiled_check;
	my $wiz   = wizard(
		set => sub {
			package # hide from PAUSE
				Type::Tiny;
			$check->(${$_[0]}) or Carp::croak($type->get_message(${$_[0]}));
		},
	);
	cast $_[1], $wiz;
}

1;

__END__