NAME
TAP::Parser::SourceHandler::Perl - Stream TAP from a Perl executable
VERSION
Version 3.50
SYNOPSIS
use
TAP::Parser::Source;
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.3
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 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