1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
use strict; use warnings; eval { require Storable; print "1..3\n"; }; if ($@) { print "1..0 # skipped: Needs the Storable module installed\n"; exit; } system($^X, "-Iblib/lib", "t/storable-test.pl", "store"); system($^X, "-Iblib/lib", "t/storable-test.pl", "retrieve"); unlink('urls.sto');