fork download
copy 
  1. use warnings;
  2. use strict;
  3.  
  4. use B;
  5.  
  6. sub is_bool {
  7.   my $arg = shift;
  8.   return !!1 if (B::svref_2object(\$arg)->FLAGS == 292614);
  9.   return !!0;
  10. }
  11.  
  12. my $yes = !!1;
  13. my $no = !!0;
  14. print "\$yes is boolean true!\n" if ($yes && is_bool $yes);
  15. print "\$no is boolean false!\n" if (!$no && is_bool $yes);
Success #stdin #stdout 0s 5056KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
$yes is boolean true!
$no is boolean false!
https://ideone.com/Pgm4on
language:
Perl (perl 5.28.1)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!