Moving old tlperl prior to committing new one

git-svn-id: svn://tug.org/texlive/trunk@21422 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 0 insertions, 125 deletions

diff --git a/Master/tlpkg/tlperl/lib/TAP/Parser/SourceHandler/Handle.pm b/Master/tlpkg/tlperl/lib/TAP/Parser/SourceHandler/Handle.pm
deleted file mode 100755
index 30594fa1e75..00000000000
--- a/Master/tlpkg/tlperl/lib/TAP/Parser/SourceHandler/Handle.pm
+++ /dev/null
@@ -1,125 +0,0 @@
-package TAP::Parser::SourceHandler::Handle;
-
-use strict;
-use vars qw($VERSION @ISA);
-
-use TAP::Parser::SourceHandler    ();
-use TAP::Parser::IteratorFactory  ();
-use TAP::Parser::Iterator::Stream ();
-
-@ISA = qw(TAP::Parser::SourceHandler);
-
-TAP::Parser::IteratorFactory->register_handler(__PACKAGE__);
-
-=head1 NAME
-
-TAP::Parser::SourceHandler::Handle - Stream TAP from an IO::Handle or a GLOB.
-
-=head1 VERSION
-
-Version 3.20
-
-=cut
-
-$VERSION = '3.20';
-
-=head1 SYNOPSIS
-
-  use TAP::Parser::Source;
-  use TAP::Parser::SourceHandler::Executable;
-
-  my $source = TAP::Parser::Source->new->raw( \*TAP_FILE );
-  $source->assemble_meta;
-
-  my $class = 'TAP::Parser::SourceHandler::Handle';
-  my $vote  = $class->can_handle( $source );
-  my $iter  = $class->make_iterator( $source );
-
-=head1 DESCRIPTION
-
-This is a I<raw TAP stored in an IO Handle> L<TAP::Parser::SourceHandler> class.  It
-has 2 jobs:
-
-1. Figure out if the L<TAP::Parser::Source> it's given is an L<IO::Handle> or
-GLOB containing raw TAP output (L</can_handle>).
-
-2. Creates an iterator for IO::Handle's & globs (L</make_iterator>).
-
-Unless you're writing a plugin or subclassing L<TAP::Parser>, you probably
-won't need to use this module directly.
-
-=head1 METHODS
-
-=head2 Class Methods
-
-=head3 C<can_handle>
-
-  my $vote = $class->can_handle( $source );
-
-Casts the following votes:
-
-  0.9 if $source is an IO::Handle
-  0.8 if $source is a glob
-
-=cut
-
-sub can_handle {
-    my ( $class, $src ) = @_;
-    my $meta = $src->meta;
-
-    return 0.9
-      if $meta->{is_object}
-          && UNIVERSAL::isa( $src->raw, 'IO::Handle' );
-
-    return 0.8 if $meta->{is_glob};
-
-    return 0;
-}
-
-=head3 C<make_iterator>
-
-  my $iterator = $class->make_iterator( $source );
-
-Returns a new L<TAP::Parser::Iterator::Stream> for the source.
-
-=cut
-
-sub make_iterator {
-    my ( $class, $source ) = @_;
-
-    $class->_croak('$source->raw must be a glob ref or an IO::Handle')
-      unless $source->meta->{is_glob}
-          || UNIVERSAL::isa( $source->raw, 'IO::Handle' );
-
-    return $class->iterator_class->new( $source->raw );
-}
-
-=head3 C<iterator_class>
-
-The class of iterator to use, override if you're sub-classing.  Defaults
-to L<TAP::Parser::Iterator::Stream>.
-
-=cut
-
-use constant iterator_class => 'TAP::Parser::Iterator::Stream';
-
-1;
-
-=head1 SUBCLASSING
-
-Please see L<TAP::Parser/SUBCLASSING> for a subclassing overview.
-
-=head1 SEE ALSO
-
-L<TAP::Object>,
-L<TAP::Parser>,
-L<TAP::Parser::Iterator>,
-L<TAP::Parser::Iterator::Stream>,
-L<TAP::Parser::IteratorFactory>,
-L<TAP::Parser::SourceHandler>,
-L<TAP::Parser::SourceHandler::Executable>,
-L<TAP::Parser::SourceHandler::Perl>,
-L<TAP::Parser::SourceHandler::File>,
-L<TAP::Parser::SourceHandler::RawTAP>
-
-=cut