Current Dir: /snap/core22/2437/usr/lib/x86_64-linux-gnu/perl-base/
[DIR] auto [ delete | rename ]
[DIR] Carp [ delete | rename ]
[DIR] Exporter [ delete | rename ]
[DIR] File [ delete | rename ]
[DIR] Getopt [ delete | rename ]
[DIR] Hash [ delete | rename ]
[DIR] IO [ delete | rename ]
[DIR] IPC [ delete | rename ]
[DIR] List [ delete | rename ]
[DIR] Scalar [ delete | rename ]
[DIR] Text [ delete | rename ]
[DIR] Tie [ delete | rename ]
[DIR] unicore [ delete | rename ]
[DIR] warnings [ delete | rename ]
[FILE] attributes.pm [ edit | delete | rename ]
[FILE] AutoLoader.pm [ edit | delete | rename ]
[FILE] base.pm [ edit | delete | rename ]
[FILE] bytes.pm [ edit | delete | rename ]
[FILE] bytes_heavy.pl [ edit | delete | rename ]
[FILE] Carp.pm [ edit | delete | rename ]
[FILE] Config.pm [ edit | delete | rename ]
[FILE] Config_git.pl [ edit | delete | rename ]
[FILE] Config_heavy.pl [ edit | delete | rename ]
[FILE] constant.pm [ edit | delete | rename ]
[FILE] Cwd.pm [ edit | delete | rename ]
[FILE] DynaLoader.pm [ edit | delete | rename ]
[FILE] Errno.pm [ edit | delete | rename ]
[FILE] Exporter.pm [ edit | delete | rename ]
[FILE] Fcntl.pm [ edit | delete | rename ]
[FILE] feature.pm [ edit | delete | rename ]
[FILE] fields.pm [ edit | delete | rename ]
[FILE] FileHandle.pm [ edit | delete | rename ]
[FILE] integer.pm [ edit | delete | rename ]
[FILE] IO.pm [ edit | delete | rename ]
[FILE] lib.pm [ edit | delete | rename ]
[FILE] locale.pm [ edit | delete | rename ]
[FILE] overload.pm [ edit | delete | rename ]
[FILE] overloading.pm [ edit | delete | rename ]
[FILE] parent.pm [ edit | delete | rename ]
[FILE] POSIX.pm [ edit | delete | rename ]
[FILE] re.pm [ edit | delete | rename ]
[FILE] SelectSaver.pm [ edit | delete | rename ]
[FILE] Socket.pm [ edit | delete | rename ]
[FILE] strict.pm [ edit | delete | rename ]
[FILE] Symbol.pm [ edit | delete | rename ]
[FILE] utf8.pm [ edit | delete | rename ]
[FILE] vars.pm [ edit | delete | rename ]
[FILE] warnings.pm [ edit | delete | rename ]
[FILE] XSLoader.pm [ edit | delete | rename ]
Viewing: /snap/core22/2437/usr/lib/x86_64-linux-gnu/perl-base/SelectSaver.pm
package SelectSaver;
our $VERSION = '1.02';
require 5.000;
use Carp;
use Symbol;
sub new {
@_ >= 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 $self = $_[0];
select $$self;
}
1;