From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

SHAY / perl-5.40.1 / t / run / switch0.t 

            

              
1
2
3
4
5
6
7
8
9
10
11

              
#!./perl -0
BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
    require './test.pl';
}
plan tests => 1;
is(ord $/, 0, '$/ set to 0 via switch');