Path::Class::File or ::Dir & Moose initialiazation and coercion

Question

Currently have: ``` package Local; use warnings; use Moose; use Method::Signatures::Simple; use Path::Class::File; use Path::Class::Dir; method _build_path_class { my $str = $self->pathstr; return Path::Class::Dir->new($str) if (-d $str); return Path::Class::File->new($str); } has 'pathstr' => (is => 'rw', isa => 'Str', required => 1); has 'path' => ( is => 'rw', lazy => 1, #isa => 'Path::Class::File|Path::Class::Dir', #this didn't work isa => 'Object', builder => '_build_path_class', ); no Moose; __PACKAGE__->meta->make_immutable(); 1; ``` It is working, so ``` my $d = Local->new(pathstr => '/tmp')->path; #is isa Path::Class::Dir my $f = Local->new(pathstr => "/etc/passwd)->path; #is isa Path::Class::File ``` Looking for a solution where instead of two attribues `pathstr` and `path` would be only one `path` a it should coerce from `Str` to: - Path::Class::Dir (if the `Str` is an directory) - Path::Class::File (in any other case) Something like: ``` package Local; use warnings; use Mo…

Accepted Answer

```
coerce 'Path::Class::Entity',  # Base class of ::Dir and ::File
   from Str,
      via {
         if (-d $_) {
            Path::Class::Dir->new($_)
         } else {
            Path::Class::File->new($_)
         }
      };

has 'path' => (
    is       => 'rw',
    lazy     => 1,
    isa      => 'Path::Class::Entity',
    required => 1,
    coerce   => 1,
);
```

The above assumes the path is a path to a file if path doesn't exist or if another error occurs.

Path::Class::File or ::Dir & Moose initialiazation and coercion

Solution

Problem