File manager - Edit - /usr/local/cpanel/3rdparty/perl/542/cpanel-lib/Path/IsDev/NegativeHeuristic/HomeDir.pm
Back
use 5.008; # utf8 use strict; use warnings; use utf8; package Path::IsDev::NegativeHeuristic::HomeDir; our $VERSION = '1.001003'; # ABSTRACT: User home directories are not development roots our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY ## no critic (RequireArgUnpacking, ProhibitSubroutinePrototypes) sub _uniq (@) { my %seen = (); return grep { not $seen{$_}++ } @_; } use Role::Tiny::With qw( with ); with 'Path::IsDev::Role::NegativeHeuristic', 'Path::IsDev::Role::Matcher::FullPath::Is::Any'; 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; } sub excludes { my ( $self, $result_object ) = @_; return unless $self->fullpath_is_any( $result_object, $self->paths ); return 1; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Path::IsDev::NegativeHeuristic::HomeDir - User home directories are not development roots =head1 VERSION 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 { "namespace":"Path::IsDev::NegativeHeuristic::HomeDir", "interface":"single_class", "does": [ "Path::IsDev::Role::NegativeHeuristic", "Path::IsDev::Role::Matcher::FullPath::Is::Any" ] } =end MetaPOD::JSON =head1 AUTHOR Kent Fredric <kentnl@cpan.org> =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2017 by Kent Fredric <kentfredric@gmail.com>. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut
| ver. 1.4 |
Github
|
.
| PHP 8.1.34 | Generation time: 0.02 |
proxy
|
phpinfo
|
Settings