The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

ABIGAIL / Regexp-Common-2011041601 / t / test_no_import.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14

              
# LOAD
BEGIN {print "1..3\n";}
use Regexp::Common qw /no_defaults/;
print "ok 1\n";
print defined &Regexp::Common::URL::pattern ? "not ok 2\n" : "ok 2\n";
# Make sure $; isn't modified.
print $; eq "\034" ? "ok 3" : "not ok 3";
print ' # $; eq "\034"', "\n";
__END__