given_code.pl

use v6;

enum TG <B C D>;

class A { }

my $a1 = A.new( ) but B;
my $a2 = A.new( ) but C;

for $a1, $a2 {
    when TG::B { say 'b' }
    when TG::C { say 'c' }
    when TG::D { say 'd' }
    default          { say 'nope' }
}

# vim: ft=perl6