package My::User::Code;
use strict;
use warnings;
use Test::More qw(no_plan);
use lib 't/lib';
BEGIN {
    # Supply a more accurate PI
    $ENV{PI} = 3.14159;
    # Override B
    $ENV{B} = 3;
}
use My::Constants qw(
    X
    Y
    A
    B
    SUM
    SUM_INTEROP
    PI
    LIST
);

is(X, -2);
is(Y, -1);
is(A, 1);
is(B, 3);
is(SUM, 4);
is(SUM_INTEROP, -3);
is(PI,  "Pi is = 3.14159");
is(join(",", @{LIST()}), '3,4');