... and after Apocalypse 6 we have submethods & BUILD in perl 6:

... in Foo ...

submethod BUILD { $.foo = 1 };

... in Bar ...

submethod BUILD { $.bar = 2 };
[download]

I so want perl6 now :-)