Help for this page
use warnings; use strict; ... warn at w.pl line 23. warnings::warn at w.pl line 24. carp at w.pl line 25.
sub _debug { my ($self, $lvl, @out) = @_; ... } # ... $self->_debug(2, ...);