#!/v/guest/sw/bin/perl

use Data::Locations;

$loc0 = Data::Locations->new();
$loc1 = Data::Locations->new();

print $loc0 "Top";
$loc2 = $loc0->new();
print $loc0 "Middle";
$loc3 = $loc0->new();
print $loc0 "Bottom";

print $loc2 "Left";
$loc4 = $loc2->new();
print $loc2 "Right";

print $loc3 "Begin";
print $loc3 $loc4;
print $loc3 "End";

print $loc1 "First";
print $loc1 $loc4;
print $loc1 "Last";

print $loc4 "Here";

print map("<$_>", <$loc0>), "\n";
print map("<$_>", <$loc1>), "\n";

__END__


<Top><Left><Here><Right><Middle><Begin><Here><End><Bottom>

  ^     ^    ^      ^      ^       ^     ^     ^     ^
  |     |    |      |      |       |     |     |     |
  |     |  $loc4    |      |       |   $loc4   |     |
  |     |           |      |       |           |     |
  |     +-----------+      |       +-----------+     |
  |        $loc2           |           $loc3         |
  |                        |                         |
  +------------------------+-------------------------+
                         $loc0

<First><Here><Last>

   ^      ^     ^
   |      |     |
   |    $loc4   |
   |            |
   +------------+
        $loc1