GSP
Quick Navigator

Search Site

Unix VPS
A - Starter
B - Basic
C - Preferred
D - Commercial
MPS - Dedicated
Previous VPSs
* Sign Up! *

Support
Contact Us
Online Help
Handbooks
Domain Status
Man Pages

FAQ
Virtual Servers
Pricing
Billing
Technical

Network
Facilities
Connectivity
Topology Map

Miscellaneous
Server Agreement
Year 2038
Credits
 

USA Flag

 

 

Man Pages


Manual Reference Pages  -  TAP::PARSER::SOURCEHANDLER::PERL (3)

.ds Aq ’

NAME

TAP::Parser::SourceHandler::Perl - Stream TAP from a Perl executable

CONTENTS

VERSION

Version 3.36

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 its a .t file
  0.9  if its a .pl file
  0.75 if its 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. croaks 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 scripts 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
Search for    or go to Top of page |  Section 3 |  Main Index


perl v5.20.3 TAP::PARSER::SOURCEHANDLER::PERL (3) 2015-12-30

Powered by GSP Visit the GSP FreeBSD Man Page Interface.
Output converted with manServer 1.07.