const.t

gistfile1.txt

use strict;
use warnings;
use constant {HOGE => 10};
use Test::More;
use Test::Mock::Guard;

{
    my $g = mock_guard main => { HOGE => sub { 100 }};

    is HOGE,                     10;
    is HOGE(),                   10;
    is &HOGE(),                 100;
    is( main->HOGE,             100);
    is "main"->HOGE,            100;
    is __PACKAGE__->HOGE,       100;
    is "main"->can('HOGE')->(), 100;
    is(main->can('HOGE')->(),   100);
    is $main::{HOGE}->(),       100;
}

done_testing;