File Manager

X7ROOT File Manager

Current Path: /usr/share/perl5

usr / share / perl5 /

?? ..
?? AnyDBM_File.pm(2.56 KB)
?? Attribute
?? AutoLoader.pm(15.43 KB)
?? AutoSplit.pm(19.18 KB)
?? B
?? Benchmark.pm(30.3 KB)
?? CORE.pod(3.11 KB)
?? CPAN
?? Class
?? Compress
?? Config
?? DB.pm(18.48 KB)
?? DBM_Filter
?? DBM_Filter.pm(14.05 KB)
?? Devel
?? DirHandle.pm(1.52 KB)
?? Dumpvalue.pm(17.14 KB)
?? English.pm(4.65 KB)
?? ExtUtils
?? File
?? FileCache.pm(5.44 KB)
?? FileHandle.pm(6.63 KB)
?? FindBin.pm(4.45 KB)
?? Getopt
?? I18N
?? IO
?? IPC
?? Internals.pod(2.52 KB)
?? Locale
?? Math
?? Memoize
?? Memoize.pm(35.34 KB)
?? Module
?? NEXT.pm(18.4 KB)
?? Net
?? PerlIO.pm(10.21 KB)
?? Pod
?? Safe.pm(24.49 KB)
?? Search
?? SelectSaver.pm(1.05 KB)
?? SelfLoader.pm(17.28 KB)
?? Symbol.pm(4.69 KB)
?? Term
?? Test.pm(29.35 KB)
?? Text
?? Thread
?? Thread.pm(8.09 KB)
?? Tie
?? Time
?? UNIVERSAL.pm(6.44 KB)
?? URI
?? URI.pm(33.97 KB)
?? Unicode
?? User
?? XSLoader.pm(11 KB)
?? _charnames.pm(32.39 KB)
?? autouse.pm(4.14 KB)
?? base.pm(10.72 KB)
?? blib.pm(2.04 KB)
?? bytes.pm(3.67 KB)
?? bytes_heavy.pl(758 B)
?? charnames.pm(20.38 KB)
?? deprecate.pm(3.01 KB)
?? diagnostics.pm(18.59 KB)
?? dumpvar.pl(15.19 KB)
?? encoding
?? feature.pm(16.68 KB)
?? fields.pm(9.27 KB)
?? filetest.pm(3.91 KB)
?? if.pm(3.26 KB)
?? integer.pm(3.18 KB)
?? less.pm(3.13 KB)
?? locale.pm(4.74 KB)
?? meta_notation.pm(2.07 KB)
?? open.pm(7.83 KB)
?? overload
?? overload.pm(52.06 KB)
?? overloading.pm(1.77 KB)
?? perl5db.pl(309 KB)
?? pod
?? sigtrap.pm(7.43 KB)
?? sort.pm(5.94 KB)
?? strict.pm(4.63 KB)
?? subs.pm(848 B)
?? unicore
?? utf8.pm(8.9 KB)
?? utf8_heavy.pl(30.87 KB)
?? vars.pm(2.36 KB)
?? vendor_perl
?? vmsish.pm(4.21 KB)
?? warnings
?? warnings.pm(43.71 KB)

Editing: overloading.pm

package overloading;
use warnings;

our $VERSION = '0.02';

my $HINT_NO_AMAGIC = 0x01000000; # see perl.h

require 5.010001;

sub _ops_to_nums {
    require overload::numbers;

map { exists $overload::numbers::names{"($_"}
	? $overload::numbers::names{"($_"}
	: do { require Carp; Carp::croak("'$_' is not a valid overload") }
    } @_;
}

sub import {
    my ( $class, @ops ) = @_;

if ( @ops ) {
	if ( $^H{overloading} ) {
	    vec($^H{overloading} , $_, 1) = 0 for _ops_to_nums(@ops);
	}

if ( $^H{overloading} !~ /[^\0]/ ) {
	    delete $^H{overloading};
	    $^H &= ~$HINT_NO_AMAGIC;
	}
    } else {
	delete $^H{overloading};
	$^H &= ~$HINT_NO_AMAGIC;
    }
}

sub unimport {
    my ( $class, @ops ) = @_;

if ( exists $^H{overloading} or not $^H & $HINT_NO_AMAGIC ) {
	if ( @ops ) {
	    vec($^H{overloading} ||= '', $_, 1) = 1 for _ops_to_nums(@ops);
	} else {
	    delete $^H{overloading};
	}
    }

$^H |= $HINT_NO_AMAGIC;
}

1;
__END__

=head1 NAME

overloading - perl pragma to lexically control overloading

=head1 SYNOPSIS

{
	no overloading;
	my $str = "$object"; # doesn't call stringification overload
    }

# it's lexical, so this stringifies:
    warn "$object";

# it can be enabled per op
    no overloading qw("");
    warn "$object";

# and also reenabled
    use overloading;

=head1 DESCRIPTION

This pragma allows you to lexically disable or enable overloading.

=over 6

=item C<no overloading>

Disables overloading entirely in the current lexical scope.

=item C<no overloading @ops>

Disables only specific overloads in the current lexical scope.

=item C<use overloading>

Reenables overloading in the current lexical scope.

=item C<use overloading @ops>

Reenables overloading only for specific ops in the current lexical scope.

=back

=cut

X7ROOT File Manager

Editing: overloading.pm

Upload File

Create Folder