Gecko [ tsuru-no-tsurugi.tokyo ]

Name	Size	Permission	Date
Carp	[ DIR ]	drwxr-xr-x	2026-06-26 06:39
Exporter	[ DIR ]	drwxr-xr-x	2026-06-26 06:39
File	[ DIR ]	drwxr-xr-x	2026-06-26 06:39
Getopt	[ DIR ]	drwxr-xr-x	2026-06-26 06:39
Hash	[ DIR ]	drwxr-xr-x	2026-06-26 06:39
IO	[ DIR ]	drwxr-xr-x	2026-06-26 06:39
IPC	[ DIR ]	drwxr-xr-x	2026-06-26 06:39
List	[ DIR ]	drwxr-xr-x	2026-06-26 06:39
Scalar	[ DIR ]	drwxr-xr-x	2026-06-26 06:39
Text	[ DIR ]	drwxr-xr-x	2026-06-26 06:39
Tie	[ DIR ]	drwxr-xr-x	2026-06-26 06:39
auto	[ DIR ]	drwxr-xr-x	2022-02-06 20:02
unicore	[ DIR ]	drwxr-xr-x	2022-02-06 20:02
warnings	[ DIR ]	drwxr-xr-x	2026-06-26 06:39
AutoLoader.pm	5.36 KB	-rw-r--r--	2026-06-23 17:11
Carp.pm	24.8 KB	-rw-r--r--	2026-06-23 17:11
Config.pm	3.14 KB	-rw-r--r--	2026-06-23 17:11
Config_git.pl	409 B	-rw-r--r--	2026-06-23 17:11
Config_heavy.pl	54.04 KB	-rw-r--r--	2026-06-23 17:11
Cwd.pm	17.24 KB	-rw-r--r--	2026-06-23 17:11
DynaLoader.pm	10.25 KB	-rw-r--r--	2026-06-23 17:11
Errno.pm	4.82 KB	-rw-r--r--	2026-06-23 17:11
Exporter.pm	2.28 KB	-rw-r--r--	2026-06-23 17:11
Fcntl.pm	2.11 KB	-rw-r--r--	2026-06-23 17:11
FileHandle.pm	2.06 KB	-rw-r--r--	2026-06-23 17:11
IO.pm	469 B	-rw-r--r--	2026-06-23 17:11
POSIX.pm	19.91 KB	-rw-r--r--	2026-06-23 17:11
SelectSaver.pm	344 B	-rw-r--r--	2026-06-23 17:11
Socket.pm	13.5 KB	-rw-r--r--	2026-06-23 17:11
Symbol.pm	2.15 KB	-rw-r--r--	2026-06-23 17:11
XSLoader.pm	3.87 KB	-rw-r--r--	2026-06-23 17:11
attributes.pm	3 KB	-rw-r--r--	2026-06-23 17:11
base.pm	8.7 KB	-rw-r--r--	2026-06-23 17:11
bytes.pm	489 B	-rw-r--r--	2026-06-23 17:11
bytes_heavy.pl	758 B	-rw-r--r--	2026-06-23 17:11
constant.pm	5.6 KB	-rw-r--r--	2026-06-23 17:11
feature.pm	5.54 KB	-rw-r--r--	2026-06-23 17:11
fields.pm	4.89 KB	-rw-r--r--	2026-06-23 17:11
integer.pm	172 B	-rw-r--r--	2026-06-23 17:11
lib.pm	2.23 KB	-rw-r--r--	2026-06-23 17:11
locale.pm	3.37 KB	-rw-r--r--	2026-06-23 17:11
overload.pm	4.38 KB	-rw-r--r--	2026-06-23 17:11
overloading.pm	964 B	-rw-r--r--	2026-06-23 17:11
parent.pm	460 B	-rw-r--r--	2026-06-23 17:11
re.pm	9.48 KB	-rw-r--r--	2026-06-23 17:11
strict.pm	1.57 KB	-rw-r--r--	2026-06-23 17:11
utf8.pm	341 B	-rw-r--r--	2026-06-23 17:11
vars.pm	1.12 KB	-rw-r--r--	2026-06-23 17:11
warnings.pm	26.91 KB	-rw-r--r--	2026-06-23 17:11

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__