Use a multi STORE on a proxy

multiproxy

class MetaVersion is Version { 
	multi method new(Str() $ver where * ~~ /^v\d+/) { 
		my $v = $ver; $v ~~ s/^v//; self.new($v) 
   } 
	multi method new(Version $ver) {
		self.new(parts => $ver.parts);
	}
}; 


my MetaVersion $v;

	multi sub store($, Str $ver) {
		$v = MetaVersion.new($ver);
	}
	multi sub store($, Version $ver) {
		$v = MetaVersion.new($ver);
	}
	multi sub store($, $ver) {
		$v = $ver;
	}
	
	
my MetaVersion $a := Proxy.new(FETCH => sub ($) { $v }, STORE => &store);

$a = "v0.0.1";

say $a;

$a = v0.0.1;

say $a;