5 use Data::Dump qw( pp );
6 use Test::More tests => 1;
9 use lib "$FindBin::Bin/lib";
12 package IntrospectionTest;
13 use IntrospectTypeExports __PACKAGE__, qw( TwentyThree NonEmptyStr MyNonEmptyStr );
14 use TestLibrary qw( TwentyThree );
15 use IntrospectTypeExports __PACKAGE__, qw( TwentyThree NonEmptyStr MyNonEmptyStr );
16 use TestLibrary NonEmptyStr => { -as => 'MyNonEmptyStr' };
17 use IntrospectTypeExports __PACKAGE__, qw( TwentyThree NonEmptyStr MyNonEmptyStr );
20 delete ${'IntrospectionTest::'}{TwentyThree};
24 use IntrospectTypeExports IntrospectionTest => qw( TwentyThree NonEmptyStr MyNonEmptyStr );
26 my $P = 'IntrospectionTest';
28 is_deeply(IntrospectTypeExports->get_memory, [
30 [$P, TwentyThree => undef],
31 [$P, NonEmptyStr => undef],
32 [$P, MyNonEmptyStr => undef],
34 [$P, TwentyThree => 'TestLibrary::TwentyThree'],
35 [$P, NonEmptyStr => undef],
36 [$P, MyNonEmptyStr => undef],
38 [$P, TwentyThree => 'TestLibrary::TwentyThree'],
39 [$P, NonEmptyStr => undef],
40 [$P, MyNonEmptyStr => 'TestLibrary::NonEmptyStr'],
42 [$P, TwentyThree => undef],
43 [$P, NonEmptyStr => undef],
44 [$P, MyNonEmptyStr => 'TestLibrary::NonEmptyStr'],
46 ], 'all calls to has_available_type_export returned correct results');