view release on metacpan or  search on metacpan

t/06_invocant.t  view on Meta::CPAN

SKIP: {
	unless ( $ENV{AUTOMATED_TESTING} ) {
		skip("Skipping nasty test unless AUTOMATED_TESTING", 1);
	}
	ok( !! _INVOCANT($false_obj2), 'Testing null class as an invocant' );
}

package Params::SomeUtil::Test::_INVOCANT::Tied;
sub TIESCALAR {
  my ($class, $value) = @_;
  return bless \$value => $class;
}