Select Code to Download

#!/usr/bin/perl

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

return;

package objectA;

sub new {
...
}

1;