@INC = '../lib';
}
-print "1..2\n";
+print "1..10\n";
package aClass;
package MyObj;
-use Class::Struct 'struct';
+use Class::Struct;
+use Class::Struct 'struct'; # test out both forms
use Class::Struct SomeClass => { SomeElem => '$' };
print "not " unless $obk->SomeElem() == 123;
print "ok 8\n";
+$obj->a([4,5,6]);
+print "not " unless $obj->a(1) == 5;
+print "ok 9\n";
+$obj->h({h=>7,r=>8,f=>9});
+print "not " unless $obj->h('r') == 8;
+print "ok 10\n";