package Datum;

use strict;
use warnings;
use Data::Dumper;
use Class::Struct;

struct Datum => {
    heights_agl => '@',
};

sub heights_agl {
    my $self = shift;
    if (@_) {
        $self->set_values(Variable=>'heights_agl',@_);
    }
}

sub set_values {
    my $self = shift;
    my %args = @_;
    die Dumper \@_;
}

1;