view release on metacpan or  search on metacpan

t/read.t  view on Meta::CPAN

    ok(@lines == 1 && $lines[0] eq $str);

    $io->setpos(index($str, "and"));
    $line = <$io>;

    ok($line eq "and a single line.\n\n");
  }

  {
    local $/ = "";  # paragraph mode
    $io->setpos(0);
    @lines = <$io>;
    ok(@lines == 2 && $lines[1] eq "and a single line.\n\n");
  }

  {
    local $/ = "is";
    $io->setpos(0);
    @lines = ();
    my $no = 0;