source: trunk/essentials/dev-lang/perl/lib/Memoize/t/tie_storable.t

#!/usr/bin/perl
# -*- mode: perl; perl-indent-level: 2 -*-

use lib qw(. ..);
use Memoize 0.45 qw(memoize unmemoize);
# $Memoize::Storable::Verbose = 0;

eval {require Memoize::Storable};
if ($@) {
  print "1..0\n";
  exit 0;
}

sub i {
  $_[0];
}

sub c119 { 119 }
sub c7 { 7 }
sub c43 { 43 }
sub c23 { 23 }
sub c5 { 5 }

sub n {
  $_[0]+1;
}

eval {require Storable};
if ($@) {
  print "1..0\n";
  exit 0;
}

print "1..4\n";