#!/usr/bin/perl
use strict; use warnings;
use Test::More;

my @compressors = qw/ Foo::Bar Compress::Snappy Compress::LZ4 /;
for my $compressor ( @compressors ) {
    note "   Testing with $compressor";
    if ( ! eval "use $compressor; 1;" ) {
        note "   Cannot load $compressor - skipping tests";
        next;
    }
    note "   Ready";
}

##</code><code>##

#    Testing with Foo::Bar
#    Cannot load Foo::Bar - skipping tests
#    Testing with Compress::Snappy
#    Ready
#    Testing with Compress::LZ4
Prototype mismatch: sub main::compress ($) vs ($;$) at /perl5/perlbrew/perls/perl-5.22.1/lib/5.22.1/Exporter.pm line 66.
 at (eval 8) line 1.
Prototype mismatch: sub main::decompress ($) vs ($;$) at /perl5/perlbrew/perls/perl-5.22.1/lib/5.22.1/Exporter.pm line 66.
 at (eval 8) line 1.
Prototype mismatch: sub main::uncompress ($) vs ($;$) at /perl5/perlbrew/perls/perl-5.22.1/lib/5.22.1/Exporter.pm line 66.
 at (eval 8) line 1.
#    Ready