xref: /asuswrt-rt-n18u-9.0.0.4.380.2695/release/src/router/samba-3.5.8/source4/auth/gensec/gensec.h

package Foo::Valid;
use base qw(Foo);
use Class::Trigger qw(before_foo after_foo);

sub bar {
    my $self = shift;
    $self->call_trigger('invalid');
}

1;