1# test module used by t/core/debug.t 2 3package My::Debugger3; 4 5use Badger::Debug 6 default => 0; 7 8sub debug_static_status { 9 return DEBUG ? 'on' : 'off'; 10} 11 12sub debug_dynamic_status { 13 return $DEBUG ? 'on' : 'off'; 14} 15 16sub wibble { 17 my ($self, $value) = @_; 18 return DEBUG 19 ? 'debugging wibble' 20 : 'normal wibble'; 21} 22 23sub wobble { 24 my ($self, $value) = @_; 25 return $DEBUG 26 ? 'debugging wobble' 27 : 'normal wobble'; 28} 29 301; 31