Gecko [ betsfootball.net ]

Name	Size	Permission	Date
Carp	[ DIR ]	drwxr-xr-x	2025-04-07 20:15
Exporter	[ DIR ]	drwxr-xr-x	2025-04-07 20:15
File	[ DIR ]	drwxr-xr-x	2025-04-07 20:15
Getopt	[ DIR ]	drwxr-xr-x	2025-04-07 20:15
Hash	[ DIR ]	drwxr-xr-x	2025-04-07 20:15
IO	[ DIR ]	drwxr-xr-x	2025-04-07 20:15
IPC	[ DIR ]	drwxr-xr-x	2025-04-07 20:15
List	[ DIR ]	drwxr-xr-x	2025-04-07 20:15
Scalar	[ DIR ]	drwxr-xr-x	2025-04-07 20:15
Text	[ DIR ]	drwxr-xr-x	2025-04-07 20:15
Tie	[ DIR ]	drwxr-xr-x	2025-04-07 20:15
auto	[ DIR ]	drwxr-xr-x	2023-07-12 09:37
unicore	[ DIR ]	drwxr-xr-x	2023-07-12 09:37
warnings	[ DIR ]	drwxr-xr-x	2025-04-07 20:15
AutoLoader.pm	5.36 KB	-rw-r--r--	2023-11-25 20:59
Carp.pm	24.8 KB	-rw-r--r--	2023-11-25 20:59
Config.pm	3.14 KB	-rw-r--r--	2023-11-25 20:59
Config_git.pl	409 B	-rw-r--r--	2023-11-25 20:59
Config_heavy.pl	54.46 KB	-rw-r--r--	2023-11-25 20:59
Cwd.pm	16.62 KB	-rw-r--r--	2023-11-25 20:59
DynaLoader.pm	11 KB	-rw-r--r--	2023-11-25 20:59
Errno.pm	4.8 KB	-rw-r--r--	2023-11-25 20:59
Exporter.pm	2.28 KB	-rw-r--r--	2023-11-25 20:59
Fcntl.pm	2.05 KB	-rw-r--r--	2023-11-25 20:59
FileHandle.pm	2.06 KB	-rw-r--r--	2023-11-25 20:59
IO.pm	469 B	-rw-r--r--	2023-11-25 20:59
POSIX.pm	19.91 KB	-rw-r--r--	2023-11-25 20:59
SelectSaver.pm	344 B	-rw-r--r--	2023-11-25 20:59
Socket.pm	13.5 KB	-rw-r--r--	2023-11-25 20:59
Symbol.pm	2.15 KB	-rw-r--r--	2023-11-25 20:59
XSLoader.pm	4.02 KB	-rw-r--r--	2023-11-25 20:59
attributes.pm	3 KB	-rw-r--r--	2023-11-25 20:59
base.pm	8.7 KB	-rw-r--r--	2023-11-25 20:59
builtin.pm	210 B	-rw-r--r--	2023-11-25 20:59
bytes.pm	489 B	-rw-r--r--	2023-11-25 20:59
bytes_heavy.pl	758 B	-rw-r--r--	2023-11-25 20:59
constant.pm	5.6 KB	-rw-r--r--	2023-11-25 20:59
feature.pm	7.38 KB	-rw-r--r--	2023-11-25 20:59
fields.pm	4.89 KB	-rw-r--r--	2023-11-25 20:59
integer.pm	172 B	-rw-r--r--	2023-11-25 20:59
lib.pm	2.23 KB	-rw-r--r--	2023-11-25 20:59
locale.pm	3.37 KB	-rw-r--r--	2023-11-25 20:59
overload.pm	4.39 KB	-rw-r--r--	2023-11-25 20:59
overloading.pm	964 B	-rw-r--r--	2023-11-25 20:59
parent.pm	460 B	-rw-r--r--	2023-11-25 20:59
re.pm	9.33 KB	-rw-r--r--	2023-11-25 20:59
strict.pm	1.57 KB	-rw-r--r--	2023-11-25 20:59
utf8.pm	341 B	-rw-r--r--	2023-11-25 20:59
vars.pm	1.12 KB	-rw-r--r--	2023-11-25 20:59
warnings.pm	28.97 KB	-rw-r--r--	2023-11-25 20:59

Rename

package FileHandle;

use 5.006;
use strict;
our($VERSION, @ISA, @EXPORT, @EXPORT_OK);

$VERSION = "2.03";

require IO::File;
@ISA = qw(IO::File);

@EXPORT = qw(_IOFBF _IOLBF _IONBF);

@EXPORT_OK = qw(
    pipe

autoflush
    output_field_separator
    output_record_separator
    input_record_separator
    input_line_number
    format_page_number
    format_lines_per_page
    format_lines_left
    format_name
    format_top_name
    format_line_break_characters
    format_formfeed

print
    printf
    getline
    getlines
);

#
# Everything we're willing to export, we must first import.
#
IO::Handle->import( grep { !defined(&$_) } @EXPORT, @EXPORT_OK );

#
# Some people call "FileHandle::function", so all the functions
# that were in the old FileHandle class must be imported, too.
#
{
    no strict 'refs';

my %import = (
	'IO::Handle' =>
	    [qw(DESTROY new_from_fd fdopen close fileno getc ungetc gets
		eof flush error clearerr setbuf setvbuf _open_mode_string)],
	'IO::Seekable' =>
	    [qw(seek tell getpos setpos)],
	'IO::File' =>
	    [qw(new new_tmpfile open)]
    );
    for my $pkg (keys %import) {
	for my $func (@{$import{$pkg}}) {
	    my $c = *{"${pkg}::$func"}{CODE}
		or die "${pkg}::$func missing";
	    *$func = $c;
	}
    }
}

#
# Specialized importer for Fcntl magic.
#
sub import {
    my $pkg = shift;
    my $callpkg = caller;
    require Exporter;
    Exporter::export($pkg, $callpkg, @_);

#
    # If the Fcntl extension is available,
    #  export its constants.
    #
    eval {
	require Fcntl;
	Exporter::export('Fcntl', $callpkg);
    };
}

################################################
# This is the only exported function we define;
# the rest come from other classes.
#

sub pipe {
    my $r = IO::Handle->new;
    my $w = IO::Handle->new;
    CORE::pipe($r, $w) or return undef;
    ($r, $w);
}

# Rebless standard file handles
bless *STDIN{IO},  "FileHandle" if ref *STDIN{IO}  eq "IO::Handle";
bless *STDOUT{IO}, "FileHandle" if ref *STDOUT{IO} eq "IO::Handle";
bless *STDERR{IO}, "FileHandle" if ref *STDERR{IO} eq "IO::Handle";

__END__