view release on metacpan or  search on metacpan

t/getline.tt  view on Meta::CPAN

            read($p, $x, 3, 3);
            return $x;
        },
        compare => "abc123",
        repeat => 1,
        desc => 'copy 2x3 chars: print method & read filehandle',
    },
    { #7
        send =>     sub {
            pusher()->print("a\nb\n\nc\n\n\nd\n\n\n\ne\n");
            $/ = '';
        },
        acquire =>  sub {
            my $p = puller();
            return <$p>;
        },
        compare => [ "a\nb\n\n", "c\n\n", "d\n\n", "e\n" ],
        repeat => 1,
        array => 1,
        desc => 'copy 4 sets many lines: print method & array context <filehandle>',
    },
    { #8
        send =>     sub {
            $/ = '';
            pusher()->print("a\nb\n\nc\n\n\nd\n\n\n\ne\n");
        },
        acquire =>  sub {
            my $p = puller();
            my @l;
            while (my $line = <$p>) {
                push(@l, $line);
            }
            return @l;
        },