# TAP::Parser::SourceHandler::Perl - phpMan

## NAME
    [TAP::Parser::SourceHandler::Perl] - Stream TAP from a Perl executable

## VERSION
    Version 3.43

## SYNOPSIS
      use [TAP::Parser::Source];
      use [TAP::Parser::SourceHandler::Perl];

      my $source = [TAP::Parser::Source]->new->raw( \'script.pl' );
      $source->assemble_meta;

      my $class = '[TAP::Parser::SourceHandler::Perl]';
      my $vote  = $class->can_handle( $source );
      my $iter  = $class->make_iterator( $source );

## DESCRIPTION
    This is a *Perl* [TAP::Parser::SourceHandler] - it has 2 jobs:

    1. Figure out if the [TAP::Parser::Source] it's given is actually a Perl
    script ("can_handle").

    2. Creates an iterator for Perl sources ("make_iterator").

    Unless you're writing a plugin or subclassing [TAP::Parser], you probably
    won't need to use this module directly.

## METHODS
  Class Methods
   "can_handle"
      my $vote = $class->can_handle( $source );

    Only votes if $source looks like a file. Casts the following votes:

      0.9  if it has a shebang ala "#!...perl"
      0.75 if it has any shebang
      0.8  if it's a .t file
      0.9  if it's a .pl file
      0.75 if it's in a 't' directory
      0.25 by default (backwards compat)

   "make_iterator"
      my $iterator = $class->make_iterator( $source );

    Constructs & returns a new [TAP::Parser::Iterator::Process] for the
    source. Assumes "$source->raw" contains a reference to the perl script.
    "croak"s if the file could not be found.

    The command to run is built as follows:

      $perl @switches $perl_script @test_args

    The perl command to use is determined by "get_perl". The command
    generated is guaranteed to preserve:

      PERL5LIB
      PERL5OPT
      Taint Mode, if set in the script's shebang

    *Note:* the command generated will *not* respect any shebang line
    defined in your Perl script. This is only a problem if you have compiled
    a custom version of Perl or if you want to use a specific version of
    Perl for one test and a different version for another, for example:

      #!/path/to/a/custom_perl --some --args
      #!/usr/local/perl-5.6/bin/perl -w

    Currently you need to write a plugin to get around this.

   "get_taint"
    Decode any taint switches from a Perl shebang line.

      # $taint will be 't'
      my $taint = [TAP::Parser::SourceHandler::Perl]->get_taint( '#!/usr/bin/perl -t' );

      # $untaint will be undefined
      my $untaint = [TAP::Parser::SourceHandler::Perl]->get_taint( '#!/usr/bin/perl' );

   "get_perl"
    Gets the version of Perl currently running the test suite.

## SUBCLASSING
    Please see "SUBCLASSING" in [TAP::Parser] for a subclassing overview.

  Example
      package MyPerlSourceHandler;

      use strict;

      use [TAP::Parser::SourceHandler::Perl];

      use base '[TAP::Parser::SourceHandler::Perl]';

      # use the version of perl from the shebang line in the test file
      sub get_perl {
          my $self = shift;
          if (my $shebang = $self->shebang( $self->{file} )) {
              $shebang =~ /^#!(.*\bperl.*?)(?:(?:\s)|(?:$))/;
              return $1 if $1;
          }
          return $self->[SUPER::get_perl](@_);
      }

## SEE ALSO
    [TAP::Object], [TAP::Parser], [TAP::Parser::IteratorFactory],
    [TAP::Parser::SourceHandler], [TAP::Parser::SourceHandler::Executable],
    [TAP::Parser::SourceHandler::File], [TAP::Parser::SourceHandler::Handle],
    [TAP::Parser::SourceHandler::RawTAP]