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]';
+ @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )';
my $fh = select;
my $self = bless \$fh, $_[0];
select qualify($_[1], caller) if @_ > 1;