From c07a80fdfe3926b5eb0585b674aa5d1f57b32ade Mon Sep 17 00:00:00 2001 From: Perl 5 Porters Date: Fri, 2 Feb 1996 18:52:27 -0800 Subject: perl5.002beta3 [editor's note: no patch file was found for this release, so no fine-grained changes] I can't find the password for our ftp server, so I had to drop it into ftp://ftp.sems.com/pub/incoming/perl5.002b3.tar.gz, which is a drop directory you can't ls. The current plan is that Andy is gonna whack on this a little more, and then release a gamma in a few days when he's happy with it. So don't get carried away. This is now *late* beta. In other words, have less than the appropriate amount of fun. :-) Larry --- lib/SelectSaver.pm | 50 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 50 insertions(+) create mode 100644 lib/SelectSaver.pm (limited to 'lib/SelectSaver.pm') diff --git a/lib/SelectSaver.pm b/lib/SelectSaver.pm new file mode 100644 index 0000000000..4c764bedcf --- /dev/null +++ b/lib/SelectSaver.pm @@ -0,0 +1,50 @@ +package SelectSaver; + +=head1 NAME + +SelectSaver - save and restore selected file handle + +=head1 SYNOPSIS + + use SelectSaver; + + { + my $saver = new SelectSaver(FILEHANDLE); + # FILEHANDLE is selected + } + # previous handle is selected + + { + my $saver = new SelectSaver; + # new handle may be selected, or not + } + # previous handle is selected + +=head1 DESCRIPTION + +A C object contains a reference to the file handle that +was selected when it was created. If its C method gets an extra +parameter, then that parameter is selected; otherwise, the selected +file handle remains unchanged. + +When a C is destroyed, it re-selects the file handle +that was selected when it was created. + +=cut + +require 5.000; +use Carp; +use Symbol; + +sub new { + @_ >= 1 && @_ <= 2 or croak 'usage: new SelectSaver [FILEHANDLE]'; + my $fh = (@_ > 1) ? (select qualify($_[1], caller)) : select; + bless [$fh], $_[0]; +} + +sub DESTROY { + my $this = $_[0]; + select $$this[0]; +} + +1; -- cgit v1.2.1