1#!./perl -w 2 3use Test::More tests => 1; 4 5# Try using FileCache without importing to make sure everything's 6# initialized without it. 7{ 8 package Y; 9 use FileCache (); 10 11 my $file = 'foo'; 12 END { unlink $file } 13 FileCache::cacheout($file); 14 print $file "bar"; 15 close $file; 16 17 FileCache::cacheout("<", $file); 18 ::ok( <$file> eq "bar" ); 19 close $file; 20} 21