Help for this page

Select Code to Download


  1. or download this
    sub foo
{
 my ($self) = @_;
 croak "..." unless ref($self) && $self->isa("AnInterface")
}
  2. or download this
    use base qw(AnInterface AnotherInterface YetAnotherInterface);

...
    my $self = shift;
    ... code ...
};
  3. or download this
    sub foo # requires interfaces InterfaceA, InterfaceB
{
...
 InterfaceA::validate($self);
 InterfaceB::validate($self);
}