use strict;
use warnings;
-use Test::More tests => 11 + 6;
+use Test::More tests => 12 + 6;
{
package Lexical::Types::Test::LTT;
is $x, __LINE__-1, 'as => string, with trailing ::';
}
+{
+ use Lexical::Types as => sub { return };
+ my LTT $x;
+ is $x, undef, 'as => code, returning nothing';
+}
+
{
use Lexical::Types as => sub { 'Lexical::Types::Test::LTT' };
my LTT $x;