better load modules before forked

gistfile1.pl

package Catalyst::Plugin::DumpRequired;
use strict;
use warnings;
use NEXT;

our %initial_modules;

sub setup_actions {
    my $c = shift;
    $c->NEXT::setup_actions(@_);

    $initial_modules{$_}++ for keys %INC;
    $c->log->debug("[C::P::DumpRequired]initial_modules: \n".join("\n", keys %initial_modules));

}

sub finalize {
    my $c = shift;
    $c->NEXT::finalize(@_);

    my @required = sort grep { ! $initial_modules{$_} } keys %INC;
    $c->log->debug("[C::P::DumpRequired]added_modules: \n".join("\n",@required));
}

1;