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

Name	Size	Permission	Date
App	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Archive	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Attribute	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
B	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
CPAN	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Carp	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Class	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Compress	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Config	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
DBM_Filter	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Devel	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Digest	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Encode	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Exporter	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
ExtUtils	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
File	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Filter	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Getopt	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
HTTP	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
I18N	[ 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
JSON	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Locale	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Math	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Memoize	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Module	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Net	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Params	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Parse	[ DIR ]	drwxr-xr-x	2016-11-15 15:18
Perl	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
PerlIO	[ DIR ]	drwxr-xr-x	2016-11-15 15:18
Pod	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Search	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
TAP	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Term	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Test	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Text	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Thread	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Tie	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Time	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
Unicode	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
User	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
autodie	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
encoding	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
overload	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
pod	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
unicore	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
version	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
warnings	[ DIR ]	drwxr-xr-x	2020-10-27 07:29
AnyDBM_File.pm	2.56 KB	-rw-r--r--	2020-10-19 12:57
AutoLoader.pm	5.36 KB	-rw-r--r--	2020-10-19 12:57
AutoSplit.pm	19.18 KB	-rw-r--r--	2020-10-19 12:57
Benchmark.pm	29.64 KB	-rw-r--r--	2020-10-19 12:57
CORE.pod	3.19 KB	-rw-r--r--	2020-10-19 12:57
CPAN.pm	136.68 KB	-rw-r--r--	2020-10-19 12:57
Carp.pm	19.6 KB	-rw-r--r--	2020-10-19 12:57
DB.pm	18.48 KB	-rw-r--r--	2020-10-19 12:57
DBM_Filter.pm	14.05 KB	-rw-r--r--	2020-10-19 12:57
Digest.pm	10.35 KB	-rw-r--r--	2020-10-19 12:57
DirHandle.pm	1.52 KB	-rw-r--r--	2020-10-19 12:57
Dumpvalue.pm	16.5 KB	-rw-r--r--	2020-10-19 12:57
English.pm	4.64 KB	-rw-r--r--	2020-10-19 12:57
Env.pm	5.39 KB	-rw-r--r--	2020-10-19 12:57
Exporter.pm	2.31 KB	-rw-r--r--	2020-10-19 12:57
Fatal.pm	59.2 KB	-rw-r--r--	2020-10-19 12:57
FileCache.pm	5.44 KB	-rw-r--r--	2020-10-19 12:57
FileHandle.pm	2.06 KB	-rw-r--r--	2020-10-19 12:57
FindBin.pm	4.45 KB	-rw-r--r--	2020-10-19 12:57
Memoize.pm	35.28 KB	-rw-r--r--	2020-10-19 12:57
NEXT.pm	18.05 KB	-rw-r--r--	2020-10-19 12:57
PerlIO.pm	10.21 KB	-rw-r--r--	2020-10-19 12:57
Safe.pm	24.4 KB	-rw-r--r--	2020-10-19 12:57
SelectSaver.pm	344 B	-rw-r--r--	2020-10-19 12:57
SelfLoader.pm	17.41 KB	-rw-r--r--	2020-10-19 12:57
Symbol.pm	2.05 KB	-rw-r--r--	2020-10-19 12:57
Test.pm	28.12 KB	-rw-r--r--	2020-10-19 12:57
Thread.pm	8.09 KB	-rw-r--r--	2020-10-19 12:57
UNIVERSAL.pm	6.44 KB	-rw-r--r--	2020-10-19 12:57
XSLoader.pm	3.95 KB	-rw-r--r--	2020-10-19 12:57
_charnames.pm	32.7 KB	-rw-r--r--	2020-10-19 12:57
autodie.pm	12.58 KB	-rw-r--r--	2020-10-19 12:57
autouse.pm	4.14 KB	-rw-r--r--	2020-10-19 12:57
base.pm	5.21 KB	-rw-r--r--	2020-10-19 12:57
bigint.pm	18.9 KB	-rw-r--r--	2020-10-19 12:57
bignum.pm	18.34 KB	-rw-r--r--	2020-10-19 12:57
bigrat.pm	14.23 KB	-rw-r--r--	2020-10-19 12:57
blib.pm	2.04 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
charnames.pm	20.5 KB	-rw-r--r--	2020-10-19 12:57
constant.pm	5.6 KB	-rw-r--r--	2020-10-19 12:57
deprecate.pm	3.43 KB	-rw-r--r--	2020-10-19 12:57
diagnostics.pm	18.26 KB	-rw-r--r--	2020-10-19 12:57
dumpvar.pl	15.19 KB	-rw-r--r--	2020-10-19 12:57
experimental.pm	5.39 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
filetest.pm	3.91 KB	-rw-r--r--	2020-10-19 12:57
if.pm	2.98 KB	-rw-r--r--	2020-10-19 12:57
integer.pm	172 B	-rw-r--r--	2020-10-19 12:57
less.pm	3.13 KB	-rw-r--r--	2020-10-19 12:57
locale.pm	2.81 KB	-rw-r--r--	2020-10-19 12:57
meta_notation.pm	2.17 KB	-rw-r--r--	2020-10-19 12:57
ok.pm	968 B	-rw-r--r--	2020-10-19 12:57
open.pm	7.83 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
perl5db.pl	308.3 KB	-rw-r--r--	2020-10-19 12:57
perlfaq.pm	78 B	-rw-r--r--	2020-10-19 12:57
sigtrap.pm	7.43 KB	-rw-r--r--	2020-10-19 12:57
sort.pm	5.94 KB	-rw-r--r--	2020-10-19 12:57
strict.pm	1.48 KB	-rw-r--r--	2020-10-19 12:57
subs.pm	848 B	-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
version.pm	1.58 KB	-rw-r--r--	2020-10-19 12:57
version.pod	9.62 KB	-rw-r--r--	2020-10-19 12:57
vmsish.pm	4.21 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__