#!/usr/bin/perl

use strict;
use warnings;

use My::DualVar;

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

# Case 1: Table num -> str
print "Case 1: Dualvar via num2str table\n\n";
{    
    my $direction = 2;
    My::DualVar->tie($direction, \%table);
    print_dualvar($direction);

    $direction = 4;
    print_dualvar($direction);

    $direction = 'NORTH';
    print_dualvar($direction);
}

# Case 2: Table str -> num
print "Case 2: Dualvar via str2num table\n\n";
{    
    my $direction = 'SOUTH';
    My::DualVar->tie($direction, reverse %table);
    print_dualvar($direction);

    $direction = 4;
    print_dualvar($direction);

    $direction = 'NORTH';
    print_dualvar($direction);
}

sub print_dualvar
{
    print "as num: " . ($_[0]+0) . "\n";
    print "as str: $_[0]\n";
    print "\n";
}