constant-eval.t

#!perl

use Test::More;

my %storage;
use constant SAMPLE_CONSTANT => defined eval { $storage{cache} = get_string('abcd') };

sub get_string {
  my ( $str ) = @_;  
  return ":$str:";
}

is SAMPLE_CONSTANT, 1, "constant is set to true";
is $storage{cache}, ':abcd:', "cache is set at compile time";

done_testing;

extra/constant-eval.t ..
ok 1 - constant is set to true
ok 2 - cache is set at compile time
1..2
ok
All tests successful.
Files=1, Tests=2,  1 wallclock secs ( 0.03 usr  0.00 sys +  0.07 cusr  0.01 csys =  0.11 CPU)
Result: PASS