📁
SKYSHELL MANAGER
PHP v8.1.34
Create
Create
Path:
root
/
home
/
terracebizon
/
public_html
/
wp-includes
/
js
/
tinymce
/
themes
/
Name
Size
Perm
Actions
📁
inlite
-
0755
🗑️
🏷️
🔒
📁
modern
-
0755
🗑️
🏷️
🔒
📄
config.php
6.83 KB
0444
🗑️
🏷️
⬇️
✏️
🔒
📄
error_log
40681.96 KB
0644
🗑️
🏷️
⬇️
✏️
🔒
Edit: Heuristic.pm
use 5.008; # utf8 use strict; use warnings; use utf8; package Path::IsDev::Role::Heuristic; our $VERSION = '1.001003'; # ABSTRACT: Base role for Heuristic things. our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY sub _blessed { require Scalar::Util; goto &Scalar::Util::blessed } use Role::Tiny qw( requires ); sub name { my $name = shift; $name = _blessed($name) if _blessed($name); $name =~ s/\APath::IsDev::Heuristic:/+ :/msx; return $name; } sub heuristic_type { return 'positive heuristic'; } requires 'matches'; 1; __END__ =pod =encoding UTF-8 =head1 NAME Path::IsDev::Role::Heuristic - Base role for Heuristic things. =head1 VERSION version 1.001003 =head1 ROLE REQUIRES =head2 C<matches> Implementing classes must provide this method. return : 1 / undef 1 -> this path is a development directory as far as this heuristic is concerned undef -> this path is not a development directory as far as this heuristic is concerned args : ( $class , $result_object ) $class -> method will be invoked on packages, not objects $result_object -> will be a Path::IsDev::Result Additionally, consuming classes B<should> set C<< $result_object->result( 1 ) >> prior to returning true. Composing roles B<should> also invoke C<< $result_object->add_reason( $self, $result_value, $descriptive_reason_for_result, \%contextinfo ) >>. See L<< C<Path::IsDev::Result> for details|Path::IsDev::Result >> =head1 METHODS =head2 C<name> Returns the name to use in debugging. By default, this is derived from the classes name with the C<PIDH> prefix removed: Path::IsDev::Heuristic::Tool::Dzil->name() → "+ ::Tool::Dzil" =head2 C<heuristic_type> Returns a description of the general heuristic type positive heuristic =begin MetaPOD::JSON v1.1.0 { "namespace":"Path::IsDev::Role::Heuristic", "interface":"role" } =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
Save