home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / xampp / xampp-perl-addon-1.4.9-installer.exe / tee.pm < prev    next >
Encoding:
Perl POD Document  |  2003-09-17  |  911 b   |  51 lines
  1. package Filter::tee ;
  2.  
  3. require 5.002;
  4. require DynaLoader;
  5. use strict;
  6. use warnings;
  7. use vars qw( @ISA $VERSION);
  8. @ISA = qw(DynaLoader);
  9. $VERSION = "1.02" ;
  10.  
  11. bootstrap Filter::tee ;
  12.  
  13. 1;
  14. __END__
  15.  
  16. =head1 NAME
  17.  
  18. Filter::tee - tee source filter
  19.  
  20. =head1 SYNOPSIS
  21.  
  22.     use Filter::tee 'filename' ;
  23.     use Filter::tee '>filename' ;
  24.     use Filter::tee '>>filename' ;
  25.  
  26. =head1 DESCRIPTION
  27.  
  28. This filter copies all text from the line after the C<use> in the
  29. current source file to the file specified by the parameter
  30. C<filename>.
  31.  
  32. By default and when the filename is prefixed with a '>' the output file
  33. will be emptied first if it already exists.
  34.  
  35. If the output filename is prefixed with '>>' it will be opened for
  36. appending.
  37.  
  38. This filter is useful as a debugging aid when developing other source
  39. filters.
  40.  
  41. =head1 AUTHOR
  42.  
  43. Paul Marquess
  44.  
  45. =head1 DATE
  46.  
  47. 20th June 1995.
  48.  
  49. =cut
  50.  
  51.