1N/A chdir 't' if -d 't'; 1N/A # First we must set up some selfloader files 1N/Asub never; # declared but definition should never be read 1N/Asub foo { shift; shift || "foo" }; 1N/Asub bar { shift; shift || "bar" } 1N/A# Try an undefined method 1N/A print "not ok 3 $@\n"; 1N/A# Used to be trouble with this 1N/A print "not ok 4 $@\n"; 1N/A# Pass regular expression variable to autoloaded function. This used 1N/A# to go wrong in AutoLoader because it used regular expressions to generate 1N/A# autoloaded filename. 1N/A# Check nested packages inside __DATA__ 1N/A# Now check inheritance: 1N/A# Before anything is SelfLoaded there is no declaration of Foo::b so we should 1N/A# There is no Bar::c so we should get Baz::c 1N/A# This selfloads Bar::a because it is stubbed. It also stubs Bar::b as a side 1N/A# Check that __END__ is honoured 1N/A# Try an subroutine that should never be noticed by selfloader 1N/A print "not ok 16 $@\n"; 1N/A# Try to read from the data file handle 1N/A# Check that __END__ DATA is honoured 1N/A# Try an subroutine that should never be noticed by selfloader 1N/A print "not ok 18 $@\n"; 1N/A# Try to read from the data file handle