Shortcut method with Mouse::Role for Data::Validator

Role.pm

package Role;
use 5.10.0;
use Mouse::Role;
use Data::Validator;
use DB;

sub args {
    {
        package DB;
        () = caller(1);
    }
    my @args = @DB::args;
    my $class = shift @args;
    my $rule = Data::Validator->new(@_)->with('Method');
    my $args = $rule->validate(@args);
    return ($class, $args);
}

1;

__END__

=head1 SYNOPSIS

    package SomeClass;
    use 5.10.0;
    use Mouse;
    with qw/Role/;

    sub get {
        my ($self, $args) = args(
            foo => { isa => 'Str', default => 'bar' }
        );
        say $args->{foo};
    }

=cut