gistfile1.txt

MacBookProRetinaFCO:JSON_API fernando$ cat ResourceRelation.pm6 
role ResourceRelation[$type] {
	method type {$type};
}
MacBookProRetinaFCO:JSON_API fernando$ perl6 -I. -e 'use ResourceRelation;
class Bla {
   has ResourceRelation["ble"] $.teste;

   submethod BUILD(*%pars) {
      for self.^attributes -> $attr {
         if %pars{$attr.name.substr(2)}:exists {
            if $attr.type ~~ ResourceRelation {
               %pars{$attr.name.substr(2)} does $attr.type;
            }
         }
         $attr.set_value(self, %pars{$attr.name.substr(2)})
      }
   }






}
$a = Bla.new(:teste(42));








'