#!/usr/bin/env perl

use strict;
use warnings;

use Type::Utils qw(enum);
use Type::Tie;

my $scalar;
ttie $scalar, enum ["foo", "bar"];

$scalar = "foo";  # ok
$scalar = "bar";  # ok
$scalar = "baz";  # dies

##</code><code>##

use constant DEBUG => !!$ENV{DEVELOPMENT_SERVER};

my $scalar;
ttie $scalar, enum ["foo", "bar"] if DEBUG;