git.maemo.org Git - pkg-perl/blob - deb-src/libfilter-perl/libfilter-perl-1.34/tee/tee.pm

   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