Venus::Role::Unacceptable

Unacceptable Role

Unacceptable Role for Perl 5

package ExampleAccept;

use Venus::Class 'attr';

attr 'name';

package ExampleDeny;

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

with 'Venus::Role::Unacceptable';

attr 'name';

package main;

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

# Exception! (isa Venus::Role::Unacceptable::Error)

This package provides a mechanism for raising an exception when unexpected constructor arguments are encountered.

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