view release on metacpan or  search on metacpan

lib/Path/IsDev/NegativeHeuristic/HomeDir.pm  view on Meta::CPAN

sub paths {
  my @sources;
  require File::HomeDir;
  push @sources, File::HomeDir->my_home;
  for my $method (qw( my_home my_desktop my_music my_pictures my_videos my_data )) {
    if ( $File::HomeDir::IMPLEMENTED_BY->can($method) ) {
      push @sources, File::HomeDir->$method();
    }
  }
  return _uniq grep { defined and length } @sources;
}

lib/Path/IsDev/NegativeHeuristic/HomeDir.pm  view on Meta::CPAN

version 1.001003

=head1 METHODS

=head2 C<paths>

Excludes any values returned by L<< C<File::HomeDir>|File::HomeDir >>

    uniq grep { defined and length }
      File::HomeDir->my_home,
      File::HomeDir->my_desktop,
      File::HomeDir->my_music,
      File::HomeDir->my_pictures,
      File::HomeDir->my_videos,
      File::HomeDir->my_data;

=head2 C<excludes>

Excludes any path that matches a C<realpath> of a L<< C<File::HomeDir> path|File::HomeDir >>

=begin MetaPOD::JSON v1.1.0