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

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

##</code><code>##

sub getAlpha {
    my $self = shift;

    return $self->{Alpha};
}

sub getBeta {
    my $self = shift;

    return $self->{Beta};
}

sub getGamma {
    my $self = shift;

    return $self->{Gamma};
}