The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More tests => 3;

BEGIN {
    use_ok( 'Variable::Strongly::Typed' );
}

diag( "Testing Variable::Strongly::Typed $Variable::Strongly::Typed::VERSION" );

my $zany :TYPE('zany');

eval {
    $zany = 'der heck?';
};
ok($@, "It's not a zany!");

$zany = bless \my($anon_scalar), 'zany';
ok($zany->isa('zany'));