enum-value.p6

# Create an enum
my $new-enum = Metamodel::EnumHOW.new_type(name => 'A', base_type => Int);
$new-enum.^compose_repr;

# Create a value
my $value = $new-enum.new(2);
$value.^add_method('key', method { 'Two' });
$value.^add_method('value', method { 2 });

# Add a value and compose the enum
$new-enum.^add_enum_value($value);
$new-enum.^compose;

# Test part
say $new-enum.^name; # A
say $value.^name;    # A
say $value ~~ $new-enum; # Has to be True => False
say $new-enum ~~ $value; # Has to be False => False