1use strict; use warnings; 2use Test::More; 3 4use lib 't/lib'; 5use DBMTest 'Memoize::Storable', extra_tests => 1; 6 7test_dbm $file; 8cleanup; 9 10SKIP: { 11 skip "skip Storable $Storable::VERSION too old for last_op_in_netorder", 1 12 unless eval { Storable->VERSION('0.609') }; 13 { tie my %cache, 'Memoize::Storable', $file, 'nstore' or die $! } 14 ok Storable::last_op_in_netorder(), 'nstore option works'; 15 cleanup; 16} 17