X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FScript%2FTest.pm;h=a17ec9891f2734209167f20319da7956acd71d19;hb=73e4f0f19c278740fa95796e30efb90a7b779713;hp=cd9ed0b1505f9ee7420a9b1d692d13e8ee3b442e;hpb=d6e8e6644ac3a1c182b957bb57c2f8b330ba9334;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Script/Test.pm b/lib/Catalyst/Script/Test.pm index cd9ed0b..a17ec98 100644 --- a/lib/Catalyst/Script/Test.pm +++ b/lib/Catalyst/Script/Test.pm @@ -4,20 +4,21 @@ use Pod::Usage; use FindBin; use lib "$FindBin::Bin/../lib"; with 'MooseX::Getopt'; +use MooseX::Types::Moose qw/Str Bool/; use namespace::autoclean; has _app => ( reader => 'app', init_arg => 'app', traits => [qw(NoGetopt)], - isa => 'Str', + isa => Str, is => 'ro', ); has help => ( traits => [qw(Getopt)], cmd_aliases => 'h', - isa => 'Bool', + isa => Bool, is => 'ro', documentation => qq{ display this help and exits }, ); @@ -34,6 +35,6 @@ sub run { } -no Moose; + __PACKAGE__->meta->make_immutable; 1;