my %directions = ( 1=>'NORTH', 2=>'SOUTH', 3=>'EAST', 4=>'WEST' );
my $table_fwd = My::DualVar->new(%directions);
my $table_rev = My::DualVar->new(reverse %directions);
tie $direction, \$table_fwd;
my ($dir, $dir2) = (4, 1);
tie $dir, \$table_fwd;
tie $dir2, \$table_fwd;
print_dualvar($dir);
++$dir2;
print_dualvar($dir2);
tie $dir2, \$table_rev;
for $dir2 (qw(SOUTH WEST EAST)) {
$dir = $dir2 + 0;
print_dualvar($dir);
}
####
use strict;
no warnings; # !!!
my @addresses = (
"1141 Tennessee Avenue",
"12E10th Street"
);
for (@addresses) {
my $house_number = $_+0;
print "House# across the street is ", $house_number+1, "\n";
print "DEBUG: Original house number '$house_number'\n\n";
}
##
##
$ perl t.pl
House# across the street is 1142
DEBUG: Original house number '1141'
House# across the street is 120000000001
DEBUG: Original house number '120000000000'
##
##
House# across the street is 1142
DEBUG: Original house number '1141 Tennessee Avenue'
House# across the street is 120000000001
DEBUG: Original house number '12E10th Street'