my $a = tbd_name::Object->new();
 my $b = tbd_name::Object->new();

 $a->set( "ID", tbd_name::String->new("1234a") );
 $b->set( "ID", tbd_name::String->new("1234a") );

 print $a->get("ID");

 $a->equals($b) ? print "yes";

 $container = tbd_name::List->new();
 $container->add($a);

 $container->search($b);  #which returns $a