This is a Perl TAP::Parser::SourceHandler - it has 2 jobs:
1. Figure out if the TAP::Parser::Source its given is actually a Perl
2. Creates an iterator for Perl sources (make_iterator).
Unless youre writing a plugin or subclassing TAP::Parser, you probably
wont need to use this module directly.
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)
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:
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
Currently you need to write a plugin to get around this.
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 );
Gets the version of Perl currently running the test suite.