The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

use FindBin qw/$Bin/;
use lib "$Bin/lib";

use List::MoreUtils qw/any all/;
use Module::Find;
setmoduledirs("$Bin/../lib", "$Bin/lib");

use Test::More tests => 3;
use Test::Exception;

my @modules = (
    'Catalyst::Plugin::RunAfterRequest',
    'Catalyst::Model::Role::RunAfterRequest',
);

use_ok $_ for (@modules);

ok ! any(sub { $_->can('new')}, @modules),
    'new methods in plugins which mix into an app class not cool';