I think you are right Andreas, maybe Safe or Opcode.
I do not know who want to call: rvalues rkeys reach.
This can be Moose too.
The problem is a throwed warning from Opcode.pm at line 80 that
Test::NoWarnings does not accept.
In the attachment is the extracted code that should have the same
problem I hope.
#!perl -T
use strict;
use warnings;
BEGIN {
package Locale::PO::Utils;
use Moose;
use MooseX::StrictConstructor;
use MooseX::FollowPBP;
use English qw(-no_match_vars $EVAL_ERROR);
use Carp qw(confess);
use Clone qw(clone);
use Params::Validate qw(:all);
use Scalar::Util qw(looks_like_number);
require Safe;
no Moose;
__PACKAGE__->meta()->make_immutable();
}
use Test::More tests => 1 + 1;
use Test::NoWarnings;
use Test::Exception;
throws_ok(
sub {
Locale::PO::Utils->new(xxx => 1);
},
qr{unknown \s+ attribute .+? xxx}xms,
'false attribute',
);
