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;