Gecko [ www.jobworksschool.com ]

Name	Size	Permission	Date
Carp	[ DIR ]	drwxr-xr-x	2026-06-26 06:22
Exporter	[ DIR ]	drwxr-xr-x	2026-06-26 06:22
File	[ DIR ]	drwxr-xr-x	2026-06-26 06:22
Getopt	[ DIR ]	drwxr-xr-x	2026-06-26 06:22
Hash	[ DIR ]	drwxr-xr-x	2026-06-26 06:22
IO	[ DIR ]	drwxr-xr-x	2026-06-26 06:22
IPC	[ DIR ]	drwxr-xr-x	2026-06-26 06:22
List	[ DIR ]	drwxr-xr-x	2026-06-26 06:22
Scalar	[ DIR ]	drwxr-xr-x	2026-06-26 06:22
Text	[ DIR ]	drwxr-xr-x	2026-06-26 06:22
Tie	[ DIR ]	drwxr-xr-x	2026-06-26 06:22
auto	[ DIR ]	drwxr-xr-x	2024-04-05 19:57
unicore	[ DIR ]	drwxr-xr-x	2024-04-05 19:57
warnings	[ DIR ]	drwxr-xr-x	2026-06-26 06:22
AutoLoader.pm	5.36 KB	-rw-r--r--	2026-06-12 13:42
Carp.pm	24.8 KB	-rw-r--r--	2026-06-12 13:42
Config.pm	3.2 KB	-rw-r--r--	2026-06-12 13:42
Config_git.pl	409 B	-rw-r--r--	2026-06-12 13:42
Config_heavy.pl	57.06 KB	-rw-r--r--	2026-06-12 13:42
Cwd.pm	16.95 KB	-rw-r--r--	2026-06-12 13:42
DynaLoader.pm	11 KB	-rw-r--r--	2026-06-12 13:42
Errno.pm	4.8 KB	-rw-r--r--	2026-06-12 13:42
Exporter.pm	2.28 KB	-rw-r--r--	2026-06-12 13:42
Fcntl.pm	2.05 KB	-rw-r--r--	2026-06-12 13:42
FileHandle.pm	2.06 KB	-rw-r--r--	2026-06-12 13:42
IO.pm	469 B	-rw-r--r--	2026-06-12 13:42
POSIX.pm	19.96 KB	-rw-r--r--	2026-06-12 13:42
SelectSaver.pm	344 B	-rw-r--r--	2026-06-12 13:42
Socket.pm	13.54 KB	-rw-r--r--	2026-06-12 13:42
Symbol.pm	2.15 KB	-rw-r--r--	2026-06-12 13:42
XSLoader.pm	4.02 KB	-rw-r--r--	2026-06-12 13:42
attributes.pm	3 KB	-rw-r--r--	2026-06-12 13:42
base.pm	8.7 KB	-rw-r--r--	2026-06-12 13:42
builtin.pm	210 B	-rw-r--r--	2026-06-12 13:42
bytes.pm	489 B	-rw-r--r--	2026-06-12 13:42
bytes_heavy.pl	758 B	-rw-r--r--	2026-06-12 13:42
constant.pm	5.6 KB	-rw-r--r--	2026-06-12 13:42
feature.pm	7.71 KB	-rw-r--r--	2026-06-12 13:42
fields.pm	4.89 KB	-rw-r--r--	2026-06-12 13:42
integer.pm	172 B	-rw-r--r--	2026-06-12 13:42
lib.pm	2.23 KB	-rw-r--r--	2026-06-12 13:42
locale.pm	3.37 KB	-rw-r--r--	2026-06-12 13:42
overload.pm	4.74 KB	-rw-r--r--	2026-06-12 13:42
overloading.pm	964 B	-rw-r--r--	2026-06-12 13:42
parent.pm	460 B	-rw-r--r--	2026-06-12 13:42
re.pm	9.33 KB	-rw-r--r--	2026-06-12 13:42
strict.pm	1.57 KB	-rw-r--r--	2026-06-12 13:42
utf8.pm	341 B	-rw-r--r--	2026-06-12 13:42
vars.pm	1.12 KB	-rw-r--r--	2026-06-12 13:42
warnings.pm	29.79 KB	-rw-r--r--	2026-06-12 13:42

Rename

package FileHandle;

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

$VERSION = "2.05";

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__