13 my $err = "Unimplemented at $0 line " . ( __LINE__ + 2 ) . ".\n";
21 # Regression tests, making sure ... is still parsable as an operator.
23 my @lines = split /\n/ => <<'--';
25 # Check simple range operator.
26 my @arr = 'A' ... 'D';
28 # Range operator with print.
31 # Without quotes, 'D' could be a file handle.
34 # Another possible interaction with a file handle.
38 foreach my $line (@lines) {
39 next if $line =~ /^\s*#/ || $line !~ /\S/;
40 my $mess = qq {Parsing '...' in "$line" as a range operator};
42 {local *STDOUT; no strict "subs"; $line;}