#! /usr/bin/perl
use warnings;
use strict;
use feature qw{ say };
use experimental qw( signatures );

use Devel::Peek qw{ Dump };

sub _dump {
    my @failures;
    open my $olderr, '>&', \*STDERR or push @failures, $!;
    close *STDERR;
    open *STDERR, '>', \ my $err or push @failures, $!;
    eval { Dump($_[0]); 1 } or push @failures, $@;
    open *STDERR, '>&', $olderr or push @failures, $!;
    die @failures if @failures;
    my ($type) = $err =~ /FLAGS = \((.*)\)/;
    say $type;
    return $type
}

{   my $c = 123;
    my $before = _dump($c);
    die unless $c < 130;
    say "II:", $before eq _dump($c) ? 'Same' : 'Changed';
}
{   my $c = 123;
    my $before = _dump($c);
    die unless $c lt 130;
    say "IP:", $before eq _dump($c) ? 'Same' : 'Changed';
}
{   my $c = 123;
    my $before = _dump($c);
    die unless $c < 130.01;
    say "IN:", $before eq _dump($c) ? 'Same' : 'Changed';
}
{   my $c = 123.01;
    my $before = _dump($c);
    die unless $c < 130;
    say "NI:", $before eq _dump($c) ? 'Same' : 'Changed';
}
{   my $c = 123.01;
    my $before = _dump($c);
    die unless $c lt '130';
    say "NP:", $before eq _dump($c) ? 'Same' : 'Changed';
}
{   my $c = 123.01;
    my $before = _dump($c);
    die unless $c < 130.01;
    say "NN:", $before eq _dump($c) ? 'Same' : 'Changed';
}
{   my $c = '123';
    my $before = _dump($c);
    die unless $c lt 130;
    say "PP:", $before eq _dump($c) ? 'Same' : 'Changed';
}
{   my $c = '123';
    my $before = _dump($c);
    die unless $c < 130;
    say "PI:", $before eq _dump($c) ? 'Same' : 'Changed';
}
{   my $c = '123';
    my $before = _dump($c);
    die unless $c < 130.01;
    say "PN:", $before eq _dump($c) ? 'Same' : 'Changed';
}