Searched refs:errorsub (Results 1 – 3 of 3) sorted by relevance
853 my $errorsub = (@seq_stack > 1) ? $self->errorsub() : undef;862 (ref $errorsub) and &{$errorsub}($errmsg)863 or (defined $errorsub) and $self->$errorsub($errmsg)1088 my $errorsub = $self->errorsub();1092 (ref $errorsub) and &{$errorsub}($errmsg)1093 or (defined $errorsub) and $self->$errorsub($errmsg)1289 sub errorsub { subroutine
565 $self->errorsub($self->{-quiet} ? sub { 1; } : 'poderror');
18612 =item B<errorsub()>