#perl6 use a hash as if it were an object

HashyObject.p6

unit class HashyObject;

has %!storage;

submethod TWEAK(*%data) { %!storage = %data }

submethod FALLBACK($name, |c) is rw { %!storage{$name} };

method perl {
    self.^name ~ ".new(" ~ %!storage.pairs.map(*.perl).join(", ") ~ ")"
}

usage_example.p6

use HashyObject;
my HashyObject $a .= new(cookie => "keks");
$a.hello = "grüße";
$a.goodbye = "auf wiedersehen";
dd $a;
# OUTPUT:
# HashyObject $a = HashyObject.new(:hello("grüße"), :goodbye("auf wiedersehen"), :cookie("keks"))