#!/usr/bin/perl  -w
use strict;
use feature ':5.10';

BEGIN {
	sub main_package_vars {
		foreach(@_) {
			eval "sub $_ {
				my \$p = shift;
				\$p->{$_} = \$_[0] if \@_;
				\$p->{$_};
			}"
		}
	}
}

package MyPackage; 
BEGIN {
	eval "*package_vars2 = \*main::main_package_vars";
	*package_vars3 = \*main::main_package_vars;
}
{	
BEGIN {
	sub package_vars {
		foreach(@_) {
			eval "sub $_ {
				my \$p = shift;
				\$p->{$_} = \$_[0] if \@_;
				\$p->{$_};
			}"
		}
	}
}
	
package_vars3( qw(one two three) );

	sub new {
		my $package=shift;
		my $parms=$_[0];
		
		my $this={};

		foreach(%$parms) {
			$this->{$_}=$parms->{$_};
		}

		bless $this, $package;
	}
}

package main;

my $p=new MyPackage({three => 3,});

$p->two(1);

printf "two=%d, three=%d\n",$p->two, $p->three;