[gitmo/MooseX-Types.git] / t / lib / IntrospectTypeExports.pm

package IntrospectTypeExports;
use strict;
use warnings;

use MooseX::Types::Util qw( has_available_type_export );

my @Memory;

sub import {
    my ($class, $package, @types) = @_;

    for my $type (@types) {
        my $tc     = has_available_type_export($package, $type);
        push @Memory, [$package, $type, $tc ? $tc->name : undef];
    }
}

sub get_memory { \@Memory }

1;
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;