Cataly...ponent(3pm)

💖 Cataly...ponent(3pm) — CatalystX::InjectComponent 💖

okay bestie, welcome to a page from User Contributed Perl Documentation ✨ the title got squished to Cataly...ponent(3pm) by the terminal, but it's really CatalystX::InjectComponent and it's here to help 💅

---

🌸 NAME 🌸

CatalystX::InjectComponent — inject components into your Catalyst application 🫶

---

⭐ VERSION ⭐

version 0.025 — yes, the number is literally that, don't @ me 💖

---

✨ SYNOPSIS ✨

package My::App;

use Catalyst::Runtime '5.80';

use Moose;
BEGIN { extends qw/Catalyst/ }

...

after 'setup_components' => sub {
    my $class = shift;
    CatalystX::InjectComponent->inject( into => $class, component => 'MyModel' );
    if ( $class->config->{ ... ) {
        CatalystX::InjectComponent->inject( into => $class, component => 'MyRootV2', as => 'Controller::Root' );
    }
    else {
        CatalystX::InjectComponent->inject( into => $class, component => 'MyRootV1', as => 'Root' ); # Controller:: will be automatically prefixed
    }
};

---

🦋 DESCRIPTION 🦋

so what does this thing even do? CatalystX::InjectComponent will inject Controller, Model, and View components into your Catalyst application at setup (run)time. the way it pulls this off is iconic honestly: it creates a brand-new package on-the-fly, makes that package extend the component you gave it, and then lets Catalyst set up the new component (via ->setup_component) 👑

🎀 So, how do I use this thing? 🎀

you should inject your components when it's appropriate, typically after setup_compenents runs 🫡

if you're running the Moose version of Catalyst, then this technique right here is the move:

use Moose;
BEGIN { extends qw/Catalyst/ }

after 'setup_components' => sub {
    my $class = shift;

    CatalystX::InjectComponent->inject( into => $class, ... )
};

---

🔥 METHODS 🔥

💅 CatalystX::InjectComponent->inject( ... )

• into — the Catalyst package to inject into (e.g. My::App) 💜
• component — the component package to inject 🌈
• as — an optional moniker to use as the package name for the derived component ⭐

for example, bestie, watch this:

->inject( into => My::App, component => Other::App::Controller::Apple )

    The above will create 'My::App::Controller::Other::App::Controller::Apple'

->inject( into => My::App, component => Other::App::Controller::Apple, as => Apple )

    The above will create 'My::App::Controller::Apple'

---

🙈 ACKNOWLEDGEMENTS 🙈

inspired by Catalyst::Plugin::AutoCRUD — the blueprint, the blueprint 💖

---

👑 AUTHOR 👑

Robert Krimen <robertkrimen@gmail.com> — the mastermind, periodt ✨

---

🍓 COPYRIGHT AND LICENSE 🍓

this software is copyright (c) 2012 by Robert Krimen.

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

---

ok that's the whole page, no skips, no shortcuts 💯

and a lil sign-off for the record: this was rendered by perl v5.34.0 and dated 2022-06-09 — iconic, timeless, we love her 🎀💜✨