make filename a Path::Class::File

acme · Aug 5, 2009 · 14bfe4a · 14bfe4a
1 parent a4eb8b3
commit 14bfe4a
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/lib/Bisect/Perl/UsingGit.pm b/lib/Bisect/Perl/UsingGit.pm
@@ -1,11 +1,13 @@
 package Bisect::Perl::UsingGit;
 use Moose;
+use MooseX::Types::Path::Class;
 with 'MooseX::Getopt';
 use Capture::Tiny qw(tee);
 
-has 'action'   => ( is => 'rw', isa => 'Str',  required => 1 );
-has 'filename' => ( is => 'rw', isa => 'Str',  required => 1 );
-has 'verbose'  => ( is => 'rw', isa => 'Bool', default  => 0 );
+has 'action' => ( is => 'rw', isa => 'Str', required => 1 );
+has 'filename' =>
+    ( is => 'rw', isa => 'Path::Class::File', required => 1, coerce => 1, );
+has 'verbose' => ( is => 'rw', isa => 'Bool', default => 0 );
 
 sub run {
     my $self   = shift;