遅延ロードを確認するのに lib/App/Web.pm へ記述する部分

a.pl

# 初期ロードモジュール
my %init_module = ();
$init_module{$_}++ for keys %INC;

# getter
sub get_module {
    return \%init_module;
}

# trigger
__PACKAGE__->add_trigger(
    AFTER_DISPATCH => sub {
        my ( $c, $res ) = @_;
        my %init_module = %{$c->get_module};
        my @required = grep { !$init_module{$_} } keys %INC;
        warn "-------- module diff ---------";
        warn join "\n", @required;
    },
);

# load module....
#use DBI ();
#use DBD::mysql ();