{
package XXX;
use strict;
# register a new warnings category with this package name
use warnings::register;
sub expected {
        warn "ajajaj";
}
sub correct {
  if( warnings::enabled() ){
      warn "ajajaj";
  } else { print "not warning!\n" }
}
1;
}

# it's already loaded...
#use XXX;
no warnings('XXX');

# this says 'no' (as expected)
print "enabled: ".(warnings::enabled('XXX')?"yes":"no")."\n";

XXX::expected(); # this still warns

XXX::correct(); # this does not warn