package t::ToolSet::Pragmas; use base 'ToolSet'; ToolSet->use_pragma( 'bogopragma' ); 1; # return true