Venus::Role::Rejectable

Rejectable Role

Rejectable Role for Perl 5

package ExampleAccept;

use Venus::Class 'attr';

attr 'name';

package ExampleReject;

use Venus::Class 'attr', 'with';

with 'Venus::Role::Rejectable';

attr 'name';

package main;

my $example = ExampleReject->new(name => 'example', test => 12345);

# bless({name => 'example'}, "Example")

This package provides a mechanism for rejecting unexpected constructor arguments.

t/Venus.t: present: authors t/Venus.t: present: license