package Things5;
use constant CLASS => 0;
use constant SELF  => 0;
use constant VALUE => 1;

use constant THING => 0;

sub new {
    my $object = [];
    $object->[THING] = 0;
    return bless $object, $_[CLASS];
}

sub get_it {
    return $_[SELF]->[THING];
}

sub set_it {
    return $_[SELF]->[THING] = $_[VALUE];
}
1;