use strict;
use warnings;
use Test::Simple tests => 3;
{
    # $scale is not declared
    my $myscale
        = do{
            use strict 'vars';
            no warnings 'uninitialized';
            (do{eval '$scale'; $@} ) ?  1
                : (eval '$scale') // 1; 
        };
    ok( $myscale == 1, 'not declared');
}

my $scale;
{
    # $scale declared, but not defined
    my $myscale
        = do{
            use strict 'vars';
            no warnings 'uninitialized';
            (do{eval '$scale'; $@} ) ?  1
                : (eval '$scale') // 1; 
        };
    ok( $myscale == 1, 'declared, but not defined');
}

$scale = 7;
{
    # $scale declared, and defined
    my $myscale
        = do{
            use strict 'vars';
            no warnings 'uninitialized';
            (do{eval '$scale'; $@} ) ?  1
                : (eval '$scale') // 1; 
        };
    ok( $myscale == $scale, 'defined');
}