Help for this page

Select Code to Download

Select or download this

use Params::Validate 'validate_pos';
use constant FOOBAR_TYPE => { can => [ qw[ print flush frobnicate ] ] 
+};

sub bar {
    my $foobar = validate_pos( @_, FOOBAR_TYPE );
}

Select or download this

use Params::Validate 'validate_pos';
use constant FOOBAR_TYPE => { callbacks => { interface => sub { Interf
+ace::has( FooBar => $_[0] ) } } };

...
use Interface 'FOOBAR';

...