1#!perl 2 3use Test::Without::Module ("Module::Runtime"); 4use strict ("subs", "vars", "refs"); 5use warnings ("all"); 6BEGIN { $ENV{CLONE_CHOOSE_PREFERRED_BACKEND} = "Storable"; } 7END { delete $ENV{CLONE_CHOOSE_PREFERRED_BACKEND} } # for VMS 8 9use Test::More; 10 11BEGIN 12{ 13 $ENV{CLONE_CHOOSE_PREFERRED_BACKEND} and eval "use $ENV{CLONE_CHOOSE_PREFERRED_BACKEND}; 1;"; 14 $@ and plan skip_all => "No $ENV{CLONE_CHOOSE_PREFERRED_BACKEND} found."; 15 16 use_ok('Clone::Choose') || BAIL_OUT "Couldn't load Clone::Choose"; 17} 18 19diag("Testing Clone::Choose $Clone::Choose::VERSION, Perl $], $^X"); 20 21my $backend = Clone::Choose->backend; 22 23diag("Using backend $backend version " . $backend->VERSION); 24 25done_testing; 26 27 28