sub set_attr { my $self = shift; my $attr = shift; my $value = shift; $self->{$attr} = $value; }