interpolate-member.t

use v6;

use Test;

plan 4;

class RETest {
    has $.prefix;

    method matches(Str $s) {
        my $re = regex { ^ "$!prefix" };

        return $s ~~ $re;
    }
}

my $test = RETest.new(:prefix<foo>);

ok  $test.matches('food');
ok  $test.matches('foo');
nok $test.matches('fo');
nok $test.matches('bar');