Select Code to Download

Select or download this

#!/usr/bin/perl
use warnings;
...
}

my $obj = 'My::Package'->new(attr => Cpanel::JSON::XS::true());

Select or download this

Attribute (attr) does not pass the type constraint because: Validation
+ failed for 'Bool' with value JSON::PP::Boolean=SCALAR(0x1dc1558) at 
+constructor My::Package::new (defined at 1.pl line 15) line 31

Select or download this

    subtype 'Bool'
        => as 'Item'
...
                . '|| (' . $_[1] . '."") eq "0"'
            . ')'
        };

Select or download this

  &overload::import( 'overload', # workaround 5.6 reserved keyword war
+ning
    "0+"     => sub { ${$_[0]} },
...
      }
    },
    fallback => 1);

Select or download this
```
Cpanel::JSON::XS::true() eq '1';
```

Select or download this

{
    use Moose::Util::TypeConstraints;
...
#...

    has attr => ( is => 'ro', isa => 'Bool', coerce => 1 );

Select or download this

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,