Gecko [ paroquia-rio-de-mouro.pt ]

Name	Size	Permission	Date
Carp	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Exporter	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
File	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Getopt	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Hash	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
IO	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
IPC	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
List	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Scalar	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Text	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Tie	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
auto	[ DIR ]	drwxr-xr-x	2016-03-13 12:54
unicore	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
warnings	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
AutoLoader.pm	5.36 KB	-rw-r--r--	2020-10-19 12:57
Carp.pm	19.6 KB	-rw-r--r--	2020-10-19 12:57
Config.pm	3.25 KB	-rw-r--r--	2020-10-19 12:57
Config_git.pl	409 B	-rw-r--r--	2020-10-19 12:57
Config_heavy.pl	48.62 KB	-rw-r--r--	2020-10-19 12:57
Cwd.pm	18.27 KB	-rw-r--r--	2020-10-19 12:57
DynaLoader.pm	10.5 KB	-rw-r--r--	2020-10-19 12:57
Errno.pm	4.77 KB	-rw-r--r--	2020-10-19 12:57
Exporter.pm	2.31 KB	-rw-r--r--	2020-10-19 12:57
Fcntl.pm	2.11 KB	-rw-r--r--	2020-10-19 12:57
FileHandle.pm	2.06 KB	-rw-r--r--	2020-10-19 12:57
IO.pm	413 B	-rw-r--r--	2020-10-19 12:57
POSIX.pm	17.58 KB	-rw-r--r--	2020-10-19 12:57
SelectSaver.pm	344 B	-rw-r--r--	2020-10-19 12:57
Socket.pm	13.15 KB	-rw-r--r--	2020-10-19 12:57
Symbol.pm	2.05 KB	-rw-r--r--	2020-10-19 12:57
XSLoader.pm	3.95 KB	-rw-r--r--	2020-10-19 12:57
attributes.pm	2.95 KB	-rw-r--r--	2020-10-19 12:57
base.pm	5.21 KB	-rw-r--r--	2020-10-19 12:57
bytes.pm	447 B	-rw-r--r--	2020-10-19 12:57
bytes_heavy.pl	758 B	-rw-r--r--	2020-10-19 12:57
constant.pm	5.6 KB	-rw-r--r--	2020-10-19 12:57
feature.pm	4.08 KB	-rw-r--r--	2020-10-19 12:57
fields.pm	4.87 KB	-rw-r--r--	2020-10-19 12:57
integer.pm	172 B	-rw-r--r--	2020-10-19 12:57
lib.pm	2.23 KB	-rw-r--r--	2020-10-19 12:57
locale.pm	2.81 KB	-rw-r--r--	2020-10-19 12:57
overload.pm	4.36 KB	-rw-r--r--	2020-10-19 12:57
overloading.pm	964 B	-rw-r--r--	2020-10-19 12:57
parent.pm	607 B	-rw-r--r--	2020-10-19 12:57
re.pm	8.44 KB	-rw-r--r--	2020-10-19 12:57
strict.pm	1.48 KB	-rw-r--r--	2020-10-19 12:57
utf8.pm	342 B	-rw-r--r--	2020-10-19 12:57
utf8_heavy.pl	31.25 KB	-rw-r--r--	2020-10-19 12:57
vars.pm	1.12 KB	-rw-r--r--	2020-10-19 12:57
warnings.pm	21.49 KB	-rw-r--r--	2020-10-19 12:57

Rename

package FileHandle;

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

$VERSION = "2.02";

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.
#
import IO::Handle 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 = new IO::Handle;
    my $w = new IO::Handle;
    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__