quote-interpolation.p6

use v6;

# by nine

class SQLValue {
    has $.str;
    method Str() { "quoted(" ~ $.str.Str ~ ")" }
};

multi sub infix:<~>(Str:D $str, SQLValue:D $val) { $str ~ $val.Str }

sub prefix:<sql>(&block) {
    my @stringy;
    my @handler;

    my $h1 = Mu.^find_method("Stringy").wrap(sub ($self) { SQLValue.new(:str($self)) });
    my $h2 = Str.^find_method("Stringy").wrap(sub ($self) { SQLValue.new(:str($self)) });


    LEAVE { $h1.restore; $h2.restore; };

    &block()
}

my $foo = 42;
my $bar = "bar";
say sql{ "foo=$foo or $bar" }