The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl -w

use lib 't/lib';
use Test::More 'no_plan';
use Test::NoWarnings;

{
    package Dog;
    sub new { bless {}, shift }
}

eval q{
    package Dog::Small;
    use base qw(Dog);
    use mixin qw(Dog::CompileError);
};
isnt($@, "");

eval q{
    package Dog::Small;
    use base qw(Dog);
    use mixin qw(Does::Not::Exist);
};
isnt($@, "");