#!/usr/bin/perl

use strict;
use warnings;

use FindBin qw($Bin);
use Cwd qw(abs_path);
BEGIN{ unshift(@INC, abs_path("$Bin")) }

my %table;
BEGIN
{
    %table = ( 1 => 'NORTH',
               2 => 'SOUTH',
               3 => 'EAST',
               4 => 'WEST');
}

use My::GenDualVar "Direction", %table;

my $direction = Direction->new(2);
$direction->set('WEST');
print $direction->num() . "\n";
print $direction->str() . "\n";
print $direction->hex() . "\n";

# should work if overloading is active 
#print $direction . "\n";
#print $direction+0  . "\n";