only accept hashrefs as arguments #moose #perl

gistfile1.pl

{ package Foo;
  use Moose;
  has bar => qw( is ro required 1 );
  around BUILDARGS => sub {
    my ( $orig, $class, @args ) = @_;
    unless ( @args == 1 && ref $args[0] eq 'HASH' ) {
      die "arguments must be a hash reference";
    }
    return $class->$orig(@args);
  };
  no Moose;
}