File Coverage

lib/Mojolicious/Plugin/Fondation/Action/Controllers.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	5	8	62.5
condition	1	3	33.3
subroutine	3	3	100.0
pod	0	1	0.0
total	42	48	87.5

package Mojolicious::Plugin::Fondation::Action::Controllers;
$Mojolicious::Plugin::Fondation::Action::Controllers::VERSION = '0.02';
# ABSTRACT: Auto-discovers controller classes under a plugin namespace

use Mojo::Base 'Mojolicious::Plugin::Fondation::Action::Base', -signatures;

use Mojo::Loader 'find_modules';

sub after_load ($self, $long_name, $conf, $share_dir) {
    my $manager = $self->manager;
    my $app     = $manager->app;

    my $plugin_entry = $manager->registry->{$long_name};
    return unless $plugin_entry;

    my $plugin = $plugin_entry->{instance};
    return unless $plugin && ref $plugin;

    my $short = $plugin_entry->{short_name};

    # Plugin's controller namespace
    my $controller_ns = "${long_name}::Controller";

    # Search for modules in this namespace, excluding base classes
    my @controllers = grep { !/::Base$/ } find_modules($controller_ns);

    # Always set metadata for introspection
    $plugin_entry->{metadata}{controllers_count} = scalar @controllers;
    $plugin_entry->{metadata}{controllers_ns}    = $controller_ns;

    return unless @controllers;

    # Add namespace to routes (once only)
    my $routes_ns = $app->routes->namespaces;
    unless (grep { $_ eq $controller_ns } @$routes_ns) {
        push @$routes_ns, $controller_ns;
        my $count = scalar @controllers;
        $self->log->debug("Controller namespace added: $controller_ns ($count controllers)");
    }

    # store the list of controller names
    $plugin_entry->{controllers} = [ sort @controllers ];

    return $controller_ns;
}

1;

__END__