The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Moo::_strictures;
use Test::More;
use Test::Fatal;

{
  package Foo;
  use Moo;
  sub sub1 { 1 }
}
{
  package Bar;
  use Moose;
  ::is ::exception {
    has attr => (
      is => 'ro',
      isa => 'Foo',
      handles => qr/.*/,
    );
  }, undef, 'regex handles in Moose with Moo class isa';
}

done_testing;