package datum;
our $value = undef;

sub new {
    my $class = shift;
    local $value = shift;

    return bless { datum => $value, glob => *value }, $class
}

sub value {
    my $self = shift;
    
    return $self{glob}
}

1