Test2::...egatable(3)

okay so bestie, welcome to the Test2::Compare::Negatable page — you might see it tagged as Test2::...egatable(3) in the User Contributed Perl Documentation, and we are so here for it ✨

🌸 NAME 🌸

Test2::Compare::Negatable — literally “Poor mans 'role' for compare objects that can be negated.” 💅

🦋 DESCRIPTION 🦋

Using this package inside a Test2::Compare::Base subclass will overload "!$obj" and import clone_negate() and toggle_negate(). no cap, that's the whole move 🫶

😭 WHY? 😭

Until perl 5.18 the 'fallback' parameter to overload would not be inherited, so we cannot use inheritance for the behavior we actually want. This module works around the problem by emulating the use overload call we want for each consumer class.

it's giving “old perl said no inheritance for this vibe, so we emulated it per class,” and honestly? iconic problem-solving 🔥

🎀 ATTRIBUTES 🎀

• $bool = $obj->negate — the negate accessor signature, right here bestie 💖
• $obj->set_negate($bool) — the setter signature for that same negate bool ✨
• $attr = NEGATE() — the NEGATE attribute will be added via Test2::Util::HashBase. periodt 🧚

👑 METHODS 👑

• $clone = $obj->clone_negate() — Create a shallow copy of the object, and call "toggle_negate" on it. shallow copy slay, but it's a shallow copy, okay? 💅
• $obj->toggle_negate() — Toggle the negate attribute. If the attribute was on it will now be off, if it was off it will now be on. flip-flop main character energy 🔁

🌈 SOURCE 🌈

The source code repository for Test2-Suite can be found at https://github.com/Test-More/test-more/. go off, repo 🫶

💜 MAINTAINERS 💜

Chad Granum <exodist@cpan.org>

⭐ AUTHORS ⭐

Chad Granum <exodist@cpan.org>

🍓 COPYRIGHT 🍓

Copyright Chad Granum <exodist@cpan.org>.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

See http://dev.perl.org/licenses/

---

that's the whole page, bestie 💖 cute little sign-off: perl v5.42.0, 2025-07-28, and the page tag Test2::...egatable(3) — mwah 🌈👑