sub set_attr {
    # 0 self
    # 1 attr
    # 2 value
    $_[0]->{$_[1]} = $_[2];
}

sub get_attr {
    # 0 self
    # 1 attr
    $_[0]->{$_[1]}
}