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══─}─══ )