namespace SOOT {
// This isn't really checking ->isa('TObject') but whether it's part of the SOOT/ROOT system
inline bool
IsTObject(pTHX_ SV* sv)
{
return sv_isobject(sv) && hv_exists(SvSTASH((SV*)SvRV(sv)), "isROOT", 6);
}
} // end namespace SOOT