package SelectSaver;
+our $VERSION = '1.01';
+
=head1 NAME
SelectSaver - save and restore selected file handle
use SelectSaver;
{
- my $saver = new SelectSaver(FILEHANDLE);
+ my $saver = SelectSaver->new(FILEHANDLE);
# FILEHANDLE is selected
}
# previous handle is selected
{
- my $saver = new SelectSaver;
+ my $saver = SelectSaver->new;
# new handle may be selected, or not
}
# previous handle is selected
use Symbol;
sub new {
- @_ >= 1 && @_ <= 2 or croak 'usage: new SelectSaver [FILEHANDLE]';
- my $fh = (@_ > 1) ? (select qualify($_[1], caller)) : select;
- bless [$fh], $_[0];
+ @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )';
+ my $fh = select;
+ my $self = bless \$fh, $_[0];
+ select qualify($_[1], caller) if @_ > 1;
+ $self;
}
sub DESTROY {
- my $this = $_[0];
- select $$this[0];
+ my $self = $_[0];
+ select $$self;
}
1;