#!/usr/bin/perl

use objectA;

my %myhash = (
			'a.x' => 1,
			'b.y' => 2,
			'c.x' => 3,
			);

my $objA = objectA->new();
$objA->map_query( \%myhash );

print $_->name, ': ', $_->val, "\n" for $objA->parameter( 'a.x' );
print $_->name, ': ', $_->val, "\n" for $objA->parameter( 'b.y' );

return;