Interface example

Create.pm

Package Interface::Create;
use Moose::Role;
use Type::Params    qw( compile       );
use Types::Standard qw( slurpy HashRef);

around create => sub {
        my $orig = shift;
	my $self = shift;

	state $check = compile( slurpy HashRef );
	my ( $obj_args ) = $check->( @_ );

	return $self->$orig( $obj_args );
};
1;