home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Welt 2006 November (DVD)
/
PCWELT_11_2006.ISO
/
casper
/
filesystem.squashfs
/
usr
/
share
/
perl
/
5.8.8
/
SelectSaver.pm
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Perl POD Document
|
2006-07-07
|
340 b
|
23 lines
package SelectSaver;
our $VERSION = '1.01';
require 5.000;
use Carp;
use Symbol;
sub new {
@_ >= 1 && @_ <= 2 or croak 'usage: new SelectSaver [FILEHANDLE]';
my $fh = select;
my $self = bless \$fh, $_[0];
select qualify($_[1], caller) if @_ > 1;
$self;
}
sub DESTROY {
my $self = $_[0];
select $$self;
}
1;