File Manager

XYZ File Manager

Current Path: /usr/lib/x86_64-linux-gnu/perl-base

usr / lib / x86_64-linux-gnu / perl-base /

📁 ..
📄 AutoLoader.pm(5.36 KB)
📁 Carp
📄 Carp.pm(24.8 KB)
📄 Config.pm(3.14 KB)
📄 Config_git.pl(409 B)
📄 Config_heavy.pl(54.46 KB)
📄 Cwd.pm(16.62 KB)
📄 DynaLoader.pm(11 KB)
📄 Errno.pm(4.8 KB)
📁 Exporter
📄 Exporter.pm(2.28 KB)
📄 Fcntl.pm(2.05 KB)
📁 File
📄 FileHandle.pm(2.06 KB)
📁 Getopt
📁 Hash
📁 IO
📄 IO.pm(469 B)
📁 IPC
📁 List
📄 POSIX.pm(19.91 KB)
📁 Scalar
📄 SelectSaver.pm(344 B)
📄 Socket.pm(13.5 KB)
📄 Symbol.pm(2.15 KB)
📁 Text
📁 Tie
📄 XSLoader.pm(4.02 KB)
📄 attributes.pm(3 KB)
📁 auto
📄 base.pm(8.7 KB)
📄 builtin.pm(210 B)
📄 bytes.pm(489 B)
📄 bytes_heavy.pl(758 B)
📄 constant.pm(5.6 KB)
📄 feature.pm(7.38 KB)
📄 fields.pm(4.89 KB)
📄 integer.pm(172 B)
📄 lib.pm(2.23 KB)
📄 locale.pm(3.37 KB)
📄 overload.pm(4.39 KB)
📄 overloading.pm(964 B)
📄 parent.pm(460 B)
📄 re.pm(9.33 KB)
📄 strict.pm(1.57 KB)
📁 unicore
📄 utf8.pm(341 B)
📄 vars.pm(1.12 KB)
📁 warnings
📄 warnings.pm(28.97 KB)

Editing: strict.pm

package strict;

$strict::VERSION = "1.12";

my ( %bitmask, %explicit_bitmask );

BEGIN {
    # Verify that we're called correctly so that strictures will work.
    # Can't use Carp, since Carp uses us!
    # see also warnings.pm.
    die sprintf "Incorrect use of pragma '%s' at %s line %d.\n", __PACKAGE__, +(caller)[1,2]
        if __FILE__ !~ ( '(?x) \b     '.__PACKAGE__.'  \.pmc? \z' )
        && __FILE__ =~ ( '(?x) \b (?i:'.__PACKAGE__.') \.pmc? \z' );

%bitmask = (
        refs => 0x00000002,
        subs => 0x00000200,
        vars => 0x00000400,
    );

%explicit_bitmask = (
        refs => 0x00000020,
        subs => 0x00000040,
        vars => 0x00000080,
    );

my $bits = 0;
    $bits |= $_ for values %bitmask;

my $inline_all_bits = $bits;
    *all_bits = sub () { $inline_all_bits };

$bits = 0;
    $bits |= $_ for values %explicit_bitmask;

my $inline_all_explicit_bits = $bits;
    *all_explicit_bits = sub () { $inline_all_explicit_bits };
}

sub bits {
    my $bits = 0;
    my @wrong;
    foreach my $s (@_) {
        if (exists $bitmask{$s}) {
            $^H |= $explicit_bitmask{$s};

$bits |= $bitmask{$s};
        }
        else {
            push @wrong, $s;
        }
    }
    if (@wrong) {
        require Carp;
        Carp::croak("Unknown 'strict' tag(s) '@wrong'");
    }
    $bits;
}

sub import {
    shift;
    $^H |= @_ ? &bits : all_bits | all_explicit_bits;
}

sub unimport {
    shift;

if (@_) {
        $^H &= ~&bits;
    }
    else {
        $^H &= ~all_bits;
        $^H |= all_explicit_bits;
    }
}

1;
__END__

XYZ File Manager

Editing: strict.pm

Upload File

Create Folder