view release on metacpan or  search on metacpan

t/01gay.t  view on Meta::CPAN

#!perl -w
use Test::More tests => 1;

use Acme::USIG;
use strict is gay;

eval { $foo = 1; $foo = 2 };

is ($@, '', 'no pesky error');