eval('
        package '.$package.';
        sub '.$accessor.' {
            my $t=shift;
            $t->{'.$var.'}=$_[0] if @_;
            $t->{'.$var.'};
        }
    ')