table of contents
other versions
- wheezy 5.14.2-21+deb7u3
- jessie 5.20.2-3+deb8u6
- testing 5.24.1-3
- unstable 5.24.1-3
- experimental 5.26.0-1
other sections
TAP::Parser::SourceHandler::Perl(3perl) | Perl Programmers Reference Guide | TAP::Parser::SourceHandler::Perl(3perl) |
NAME¶
TAP::Parser::SourceHandler::Perl - Stream TAP from a Perl executableVERSION¶
Version 3.23SYNOPSIS¶
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_argsThe 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 shebangNote: 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 -wCurrently 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 vars '@ISA'; use TAP::Parser::SourceHandler::Perl; @ISA = qw( 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::RawTAP2011-09-19 | perl v5.14.2 |