TAP::Pa...r::Perl(3pm)

🌸 NAME 🌸

Bestie, you're looking at the TAP::Parser::SourceHandler::Perl(3pm) page from the Perl Programmers Reference Guide 💖 and it's literally about one thing: Stream TAP from a Perl executable ✨

---

🎀 VERSION 🎀

Version 3.50 — iconic, no notes 💅

---

🦋 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 );

---

💜 DESCRIPTION 💜

Okay so this is a Perl TAP::Parser::SourceHandler, and it has exactly 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, bestie 🫶

---

✨ METHODS ✨

💖 Class Methods 💖

can_handle

my $vote = $class->can_handle( $source );

It only votes if $source looks like a file 👀 and it casts these exact 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. It assumes $source->raw contains a reference to the perl script. It 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 👑

---

🧚 SUBCLASSING 🧚

Please 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 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

---

Source/version says perl v5.42.3, dated 2026-11-03 — byeee, go stream some TAP 💋✨