use warnings;
use strict;
use B;
sub is_bool {
return !!1 if (B
::svref_2object(\$arg)->FLAGS == 292614); }
my $yes = !!1;
my $no = !!0;
print "\$yes is boolean true!\n" if ($yes && is_bool
$yes); print "\$no is boolean false!\n" if (!$no && is_bool
$yes);
dXNlIHdhcm5pbmdzOwp1c2Ugc3RyaWN0OwoKdXNlIEI7CgpzdWIgaXNfYm9vbCB7CiAgbXkgJGFyZyA9IHNoaWZ0OwogIHJldHVybiAhITEgaWYgKEI6OnN2cmVmXzJvYmplY3QoXCRhcmcpLT5GTEFHUyA9PSAyOTI2MTQpOwogIHJldHVybiAhITA7Cn0KCm15ICR5ZXMgPSAhITE7Cm15ICRubyA9ICEhMDsKcHJpbnQgIlwkeWVzIGlzIGJvb2xlYW4gdHJ1ZSFcbiIgaWYgKCR5ZXMgJiYgaXNfYm9vbCAkeWVzKTsKcHJpbnQgIlwkbm8gaXMgYm9vbGVhbiBmYWxzZSFcbiIgaWYgKCEkbm8gJiYgaXNfYm9vbCAkeWVzKTs=