-
-my $count;
-sub Int::TYPEDSCALAR { return ++$count }
-
-{ package INT; }
-
-{
- use Lexical::Types as => sub { $_[0] eq 'Int' ? @_ : () };
-
- my Int ($x, $y);
- is $x, 1, 'successive padany 1';
- is $y, 2, 'successive padany 2';
-
- my INT ($z, $t);
- is $z, undef, 'successive padany 3';
- is $t, undef, 'successive padany 4';
-}