Mason:...::Moose(3pm)

💖 Mason::Component::Moose — perl v5.34.0, you're gonna eat this up 💖

okay bestie, so this is Mason::Component::Moose, which lives in the Perl 5 user-contributed docs (that's the 3pm situation — module docs, iykyk). Buckle up, it's short and it slaps.

---

✨ NAME ✨

Mason::Component::Moose — Moose policies and exports for Mason components. 🎀

---

🦋 DESCRIPTION 🦋

So here's the tea: this module gets automatically included in every single generated Mason component class. You don't have to do anything. It just shows up. Main character energy fr fr.

And it's equivalent to writing all of this yourself:

use CLASS;
use Moose;
use MooseX::HasDefaults::RW;
use Method::Signatures::Simple;

That's it. That's the whole vibe. Four lines of pure slay, done for you every time. 💅

---

👑 OVERRIDING 👑

Now if you're feeling ✨extra✨ and you want to change the default behavior? Totally valid. You just subclass this class and pass it as base_component_moose_class to Mason::Interp.

Like, for example, if you wanted MooseX::StrictConstructor in every single component, you'd do this:

package My::Mason::Component::Moose;
use Moose::Exporter;
use MooseX::StrictConstructor ();
use base qw(Mason::Component::Moose);

sub init_meta {
    my $class = shift;
    $class->SUPER::init_meta(@_);
    MooseX::StrictConstructor->init_meta(@_);
}

...

my $interp = Mason::Interp->new(..., base_component_moose_class => 'My::Mason::Component::Moose');

Not me being obsessed with the SUPER:: call — don't skip it, bestie, or you'll lose the base behavior and that's a whole tragedy. 😭

---

🌸 SEE ALSO 🌸

• Mason — go read it, it's the parent situation

---

🫶 AUTHOR 🫶

Jonathan Swartz <swartz@pobox.com> — thank you for your service, king 👑

---

💜 COPYRIGHT AND LICENSE 💜

This software is copyright (c) 2012 by Jonathan Swartz.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. 🍓

---

and that's the whole page, no cap. perl v5.34.0, dated 2022-05-27 — shoutout to the Perl 5 docs for keeping it iconic all these years. mwah 💖✨🦋