- my $SKIP;
-
- if (!MGf_COPY) {
- $SKIP = 'No copy magic for this perl';
- } else {
- local $@;
- unless (eval { require Tie::Array; 1 }) {
- $SKIP = 'Tie::Array required to test clear magic on tied array values';
- }
- }
-
- skip $SKIP => 3 if $SKIP;
- defined and diag "Using Tie::Array $_" for $Tie::Array::VERSION;
+ load_or_skip('Tie::Array', undef, undef, 5);