gistfile1.txt

class IO::String is IO::Handle {

    has @!content;

    multi method new (Str $str!) {
        self.bless.print ($str);
        }

    method print (*@what) {
        @!content.push: @what.join ("");
        }

    method print-nl {
        self.print ($.nl);
        }

    method Str {
        @!content.join ("");
        }
    }