Not OK (yet)

gistfile1.txt

class IO::String is IO::Handle {

    has     $.nl-in   is rw;
    has Str @!content;

    multi method new (Str $str!) {
        my \obj = self.bless;
        obj.nl-in = $*IN.nl-in;
        obj.print ($str);
        obj;
        }

    method print (*@what) {
        if (my Str $str = @what.join ("")) {
            my Str @x   = $str.split (self.nl-in);
            @x[*] eq "" and @x.pop;
            my     $nl  = self.nl-in[0];
            @!content.push: |@x.map ({ $_ ~ $nl });
            }
        self;
        }

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

    method get {
        @!content or return Str;
        shift @!content;
        }

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