Test::...:Straps(3pm)

💖 Test::...:Straps(3pm) — the vibe 💖

okay bestie, listen up 🎀 this is the manual page for Test::...:Straps(3pm) — that's the name sitting at the top of the page, and yes we're keeping it exactly like that, tyvm. It's shipped as part of the User Contributed Perl Documentation, so you know it's a whole community moment. 💅

---

🌸 NAME 🌸

Test::Run::Straps — analyse the test results by using TAP::Parser. That's it, that's the job, and honestly? It eats. 🔥

---

✨ METHODS ✨

🦋 my $strap = Test::Run::Straps->new();

Spawns you a brand-new strap. Fresh out the box, no cap. ✨

🎀 $strap->_inc_seen_header()

Bumps up the _seen_header field by one. Test::Run::Core is the one calling it, so if that's not you, don't worry about it, bestie. 🫶

💜 $self->_handle_event()

This one handles whatever the current event is, going down the list of types in the cascade. It vibe-checks every single type, and if one matches, it calls the matching _handle_${type}_event callback. And then — iconically — it returns the type of the event that matched. 🌈

⭐ my $results = $self->analyze( $name, \@output_lines)

Analyses the output @output_lines of a given test, and that test gets the name $name assigned to it. Returns $results — the results of the test, which is an object of type Test::Run::Straps::StrapsTotalsObj. 🫶

heads up bestie: @output_lines should be the output of the test including newlines. Don't be out here stripping them, okay? 😭

🌈 $strap->analyze_fh()

Analyses a TAP stream, and it does it based on the TAP::Parser you get from $self->_create_parser(). Main character energy, honestly. 👑

🧚 $strap->analyze_file($filename)

Runs the program file $filename and analyses it. It'll also use it as the name in the final report, so it's doing double duty and slaying both. 💅

🍓 $strap->_filtered_INC(\@inc)

Filters @inc so it'll actually fit inside the environment of some operating systems that limit it — such as VMS. We're being considerate of the elders. 🙈

💖 [@filtered] = $strap->_clean_switches(\@switches)

Hands you back the switches you gave it, all trimmed and blank-filtered. Bye bye, empty strings. ✨

👑 $self->_command()

Returns the command — that's the command-line executable — that will run the test, alongside _switches(). 🫶

Normally it returns $^X, but you can over-ride that using the Test_Interpreter accessor.

And lowkey the best part: this method can be over-rided in custom test harnesses so you can run using different TAP producers than Perl. Not-Perl TAP producers, we see you. 💜

🌸 $strap->_restore_PERL5LIB()

Puts the old value of PERL5LIB back where it belongs. This is necessary on VMS. On other platforms? It literally does nothing. Nada. Zero. 💀

⭐ $self->_reset_file_state()

Resets a few fields so the strap is ready to process the next file. Glow-up, but make it internal state. ✨

🎀 $self->_switches()

Calculates the switches needed to run the test, and returns them. Math, but make it test-running. 🔥

🦋 local $ENV{PERL5LIB} = $self->_INC2PERL5LIB()

Takes the calculated library paths used for running the test scripts and hands them back in a form you can actually assign to the PERL5LIB environment variable. That's the whole point of the thing. 💅

---

💜 LICENSE 💜

This file is licensed under the MIT X11 License: 🎀

http://www.opensource.org/licenses/mit-license.php

---

🌈 AUTHOR 🌈

Shlomi Fish, <http://www.shlomifish.org/> . 👑

---

and that's the page, bestie 🫶 this whole thing was rendered by perl v5.42.0 on 2025-07-25, and the footer was repping Test::...:Straps(3pm) the whole time. periodt. 💅✨🎀