Commit | Line | Data |
---|---|---|
5885c4f4 | 1 | package IntrospectTypeExports; |
2 | use strict; | |
3 | use warnings; | |
4 | ||
5 | use MooseX::Types::Util qw( has_available_type_export ); | |
6 | ||
7 | my @Memory; | |
8 | ||
9 | sub import { | |
10 | my ($class, $package, @types) = @_; | |
11 | ||
12 | for my $type (@types) { | |
13 | my $tc = has_available_type_export($package, $type); | |
14 | push @Memory, [$package, $type, $tc ? $tc->name : undef]; | |
15 | } | |
16 | } | |
17 | ||
18 | sub get_memory { \@Memory } | |
19 | ||
20 | 1; |