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)1089 my $errorsub = $self->errorsub();1093 (ref $errorsub) and &{$errorsub}($errmsg)1094 or (defined $errorsub) and $self->$errorsub($errmsg)1267 sub errorsub { subroutine
564 $self->errorsub($self->{-quiet} ? sub { 1; } : 'poderror');
18828 =item B<errorsub()>