p6.p6

unit class IO::String2 is IO::Handle;

has Buf $!content;
submethod TWEAK(:$buffer) {
    $!content := Buf.new: $buffer.encode;
    self.encoding: 'utf8'; # set up encoder/decoder
}

method open(|)  { self }
method close(|) { self }
method opened   { ! self.EOF }
method lock(| --> True) { }
method unlock( --> True) { }
method WRITE(\b --> True) { $!content.append: b }
method READ(\bytes) { $!content.splice: 0, bytes }
method EOF { not $!content }