t/lib/IntrospectTypeExports.pm

   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;