Lexical warning categories from XS

[Steve Hay]

Hi,

I''m writing a module, and have added "use warnings::register" to the 
.pm file and now use "warnings::warnif()" throughout that file rather 
than "use Carp;" ... "carp()".

However, I also have some XS involved.  All I can do in the XS is use 
"warn()" (which does at least seem to behave like carp() rather than the 
Perl-side warn()).

Is there a way to do what warnings::warnif() does from XS?

Thanks,

Steve