TAP::Parser::SourceHandler::Perl - Online Linux Manual PageSection : 3
Updated : 2022-01-21
Source : perl v5.34.0
Note : User Contributed Perl Documentation
NAMETAP::Parser::SourceHandler::Perl − Stream TAP from a Perl executable
VERSIONVersion 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 );
DESCRIPTIONThis 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 Methodscan_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. 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 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.
SUBCLASSINGPlease 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 ALSOTAP::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 0
Johanes Gumabo
Data Size : 13,018 byte
man-TAP::Parser::SourceHandler::Perl.3pmBuild : 2024-12-05, 20:55 :
Visitor Screen : x
Visitor Counter ( page / site ) : 5 / 165,042
Visitor ID : :
Visitor IP : 18.119.119.119 :
Visitor Provider : AMAZON-02 :
Provider Position ( lat x lon ) : 39.962500 x -83.006100 : x
Provider Accuracy Radius ( km ) : 1000 :
Provider City : Columbus :
Provider Province : Ohio , : ,
Provider Country : United States :
Provider Continent : North America :
Visitor Recorder : Version :
Visitor Recorder : Library :
Online Linux Manual Page : Version : Online Linux Manual Page - Fedora.40 - march=x86-64 - mtune=generic - 24.12.05
Online Linux Manual Page : Library : lib_c - 24.10.03 - march=x86-64 - mtune=generic - Fedora.40
Online Linux Manual Page : Library : lib_m - 24.10.03 - march=x86-64 - mtune=generic - Fedora.40
Data Base : Version : Online Linux Manual Page Database - 24.04.13 - march=x86-64 - mtune=generic - fedora-38
Data Base : Library : lib_c - 23.02.07 - march=x86-64 - mtune=generic - fedora.36
Very long time ago, I have the best tutor, Wenzel Svojanovsky . If someone knows the email address of Wenzel Svojanovsky , please send an email to johanes_gumabo@yahoo.co.id .
If error, please print screen and send to johanes_gumabo@yahoo.co.id
Under development. Support me via PayPal.
ERROR : Need New Coding : (parse_manual_page_|249|TAP::Parser::SourceHandler::Perl.3pm|36/37|el══─{─══.|.el══─{─══. ds -- \|\(em\|
) (htmlprn|149|TAP::Parser::SourceHandler::Perl.3pm|36/37|.el══─{─══. ds -- — |.el══─{─══. ds -- \|\(em\|
) (parse_manual_page_|249|TAP::Parser::SourceHandler::Perl.3pm|43|br══─}─══|'br══─}─══
) (htmlprn|149|TAP::Parser::SourceHandler::Perl.3pm|43|'br══─}─══ |'br══─}─══
)