use strict;
use Path::Class ();
-# TODO: export dir() and file() from Path::Class? (maybe)
use MooseX::Types
- -declare => [qw( Dir File ExistingDir ExistingFile NonExistingDir NonExistingFile )];
+ -declare => [qw( Dir File )];
use MooseX::Types::Moose qw(Str ArrayRef);
subtype Dir, as 'Path::Class::Dir';
subtype File, as 'Path::Class::File';
-subtype ExistingFile, as File, where { -e $_->stringify },
- message { "File '$_' must exist." };
-
-subtype NonExistingFile, as File, where { !-e $_->stringify },
- message { "File '$_' must not exist." };
-
-subtype ExistingDir, as Dir,
- where { -e $_->stringify && -d $_->stringify },
- message { "Directory '$_' must exist" };
-
-subtype NonExistingDir, as Dir,
- where { !-e $_->stringify },
- message { "Directory '$_' not must exist" };
-
-for my $type ( 'Path::Class::Dir', Dir, ExistingDir, NonExistingDir ) {
+for my $type ( 'Path::Class::Dir', Dir ) {
coerce $type,
from Str, via { Path::Class::Dir->new($_) },
from ArrayRef, via { Path::Class::Dir->new(@$_) };
}
-for my $type ( 'Path::Class::File', File, ExistingFile, NonExistingFile ) {
+for my $type ( 'Path::Class::File', File ) {
coerce $type,
from Str, via { Path::Class::File->new($_) },
from ArrayRef, via { Path::Class::File->new(@$_) };
eval { require MooseX::Getopt; };
if ( !$@ ) {
MooseX::Getopt::OptionTypeMap->add_option_type_to_map( $_, '=s', )
- for (
- 'Path::Class::Dir', 'Path::Class::File',
- Dir, File,
- ExistingDir, ExistingFile,
- NonExistingFile, NonExistingDir,
- );
+ for ( 'Path::Class::Dir', 'Path::Class::File', Dir, File, );
}
1;
Note that there are no quotes around Dir or File.
-=item ExistingDir, ExistingFile
-
-Like File and Dir, but the files or directories must exist on disk
-when the type is checked, and the object on disk must be a file (for
-ExistingFile) or directory (for ExistingDir).
-
-At no point will this library attempt to coerce a path into existence
-by creating directories or files. The coercions for ExistingDir and ExistingFile
-simply coerce 'Str' and 'ArrayRef' to L<Path::Class> objects.
-
-These types do rely on I/O. The case could be made that this makes them not
-suitable to be called "types". Consider a file that gets removed after the
-ExistingFile type is checked. This can be a source of difficult to find bugs
-(you've been warned). Often, you're going to check (either explicitly or implicitly)
-whether a path exists at the point where you're actually going to use it
-anyway. In such cases you may be better off using the Dir or File type and then
-later (say, in some method) check for existence yourself instead of using these types
-constraints that you can't really trust to remain true indefinitely.
-
-
-=item NonExistingDir, NonExistingFile
-
-Like File and Dir, but the path must not exist on disk
-when the type is checked.
-
-At no point will this library attempt to coerce a path into non-existence
-by removing directories or files. The coercions for NonExistingDir and NonExistingFile
-simply coerce 'Str' and 'ArrayRef' to L<Path::Class> objects.
-
-The same caveats regarding I/O for the Existing* types above apply here as well.
-
-=item is_$type($value)
+=item is_Dir($value), is_File($value)
-Returns true or false based on whether $value passes the constraint for $type.
+Returns true or false based on whether $value is a valid Dir or File.
-=item to_$type($value)
+=item to_Dir($value), to_File($value)
-Attempts to coerce $value to the given $type. Returns the coerced value
+Attempts to coerce $value to a Dir or File. Returns the coerced value
or false if the coercion failed.
=back
=head1 SEE ALSO
-L<MooseX::Types::Path::Class::MoreCoercions>
+L<MooseX::Types::Path::Class::MoreCoercions>, L<MooseX::FileAttribute>, L<MooseX::Types::URI>
=head1 DEPENDENCIES