Select Code to Download

use Test::More 'tests' => 25;
use Scalar::Util qw( reftype blessed );
...
is( reftype $notrx, 'SCALAR', 'reftype $notrx eq "SCALAR"' );
ok( ! defined $$notrx, '$$notrx is not defined' );
ok( !('foo' =~ $notrx), '$notrx does not match "foo"' );