view release on metacpan or  search on metacpan

t/io_linenum.t  view on Meta::CPAN

#!./perl

# test added 29th April 1999 by Paul Johnson (pjcj@transeda.com)
# updated    28th May   1999 by Paul Johnson

my $File;

BEGIN {
    $File = __FILE__;
    require strict; strict->import();
}

use Test::More tests => 12;

use IO::File;

sub lineno
{
  my ($f) = @_;
  my $l;