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

package SubExporterCompatibility; {
    
    use MooseX::Types::Moose qw(Str);
    use MooseX::Types -declare => [qw(MyStr)];
    use Sub::Exporter -setup => { exports => [ qw(something MyStr) ] };
    
    subtype MyStr,
     as Str;
     
    sub something {
        return 1;
    }    
    
} 1;
Commit	Line	Data
6974ed90	1	package SubExporterCompatibility; {
	2
	3	use MooseX::Types::Moose qw(Str);
	4	use MooseX::Types -declare => [qw(MyStr)];
077ac262	5	use Sub::Exporter -setup => { exports => [ qw(something MyStr) ] };
6974ed90	6
	7	subtype MyStr,
	8	as Str;
	9
	10	sub something {
	11	return 1;
	12	}
	13
	14	} 1;