use strict;
use warnings;
use feature 'say';

use Variable::Magic qw( wizard cast );
use B::Flags;

my $x = '1';
cast $x, wizard( 
#    get => sub { say 'getting...' },
);

say B::svref_2object( \$x )-> flagspv;
say 1 if $x > 2.2;
say B::svref_2object( \$x )-> flagspv;
say 1 if $x > 2;
say B::svref_2object( \$x )-> flagspv;

##</code><code>##

RMG,POK,OVERLOAD,pPOK,IsCOW
RMG,NOK,POK,OVERLOAD,pNOK,pPOK,IsCOW
RMG,IOK,NOK,POK,OVERLOAD,pIOK,pNOK,pPOK,IsCOW

##</code><code>##

GMG,POK,OVERLOAD,pPOK,IsCOW
getting...
GMG,POK,OVERLOAD,pPOK,IsCOW
getting...
GMG,IOK,POK,OVERLOAD,pIOK,pPOK,IsCOW

##</code><code>##

use strict;
use warnings;
use feature 'say';

use Variable::Magic qw( wizard cast );
use B::Flags;

package no_int_please { 
    DESTROY { 
        say 'I\'ve been evaluated as integer, HOW DARE YOU?!'
            if B::svref_2object( @_ )-> flagspv =~ /IOK/
    }
}

my $x = '1';
cast $x, wizard( 
    get => sub { bless $_[0], 'no_int_please' },
);

say "value is $x, let's check it";
say B::svref_2object( \$x )-> flagspv =~ /IOK/ ? 'i' : 's';
say $x > 2 ? '>' : '<';
say B::svref_2object( \$x )-> flagspv =~ /IOK/ ? 'i' : 's';