sub get {
    my $self = shift;
    my ($attr_name) = @_;

    if(exists $self->{$attr_name}) {
        return $self->{$attr_name};
    } else {
        return undef;
    }
}