Select Code to Download

package Class::StructAccessors;
use warnings; use strict;
...
}

1;

package Foo;
use base qw{Class::StructAccessors};
...

print "C:".$obj->C."\n";
print "G:".$obj->G."\n";