Manpages - TAP_Parser_SourceHandler_Perl.3perl

NAME
VERSION
SYNOPSIS
DESCRIPTION
METHODS
- Class Methods
SUBCLASSING
- Example
SEE ALSO

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:

Figure out if the TAP::Parser::Source it’s given is actually a Perl

script (can_handle).

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. =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 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.

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(@_); }