handmade-enum.p6

use nqp;

sub create_enum_value($enum_type_obj, $key, $value, $index) {
    # Create directly.
    my $val := nqp::rebless(nqp::clone($value), $enum_type_obj);
    nqp::bindattr($val, $enum_type_obj, '$!key', $key);
    nqp::bindattr($val, $enum_type_obj, '$!value', $value);
    nqp::bindattr_i($val, $enum_type_obj, '$!index', $index);

    # Add to meta-object.
    $enum_type_obj.^add_enum_value($val);

    # Result is the value.
    $val
}

# Create an enum
my $new-enum = Metamodel::EnumHOW.new_type(name => 'Foos', base_type => Int);
$new-enum = $new-enum but Enumeration;
my $value = create_enum_value($new-enum, 'Foo', 2, 1);

# Test part
say $new-enum.^name; # Foos+{Enumeration}
say $value.^name;    # Foos+{Enumeration}
say $value ~~ $new-enum; # Has to be True => True
say $new-enum ~~ $value; # Has to be False => False