view release on metacpan or  search on metacpan

t/01_load.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More tests => 9;

for my $pkg (
    'Net::IMP::HTTP',
    'Net::IMP::HTTP::Connection',
    'Net::IMP::Adaptor::STREAM2HTTPConn',
    'Net::IMP::HTTP::Request',
    [ 'Net::IMP::HTTP::Example::LogFormData', 'HTTP::Request' => 0 ],
    [ 'Net::IMP::HTTP::Example::SaveResponse', 'File::Path' => 2.07 ],
    'Net::IMP::HTTP::Example::AddXFooHeader',
    [ 'Net::IMP::HTTP::Example::FlipImg', 'Image::Magick' => 0 ],
    'Net::IMP::HTTP::Example::BlockContentType',
    #'Net::IMP::Adaptor::STREAM2HTTPReq',
) {
    if ( ! ref $pkg) {
	ok( eval "require $pkg",$pkg );
    } else {
	SKIP: {
	    ($pkg, my @dep) = @$pkg;
	    while (@dep) {
		my ($p,$v) = splice(@dep,0,2);
		skip "cannot load $p",1 if ! eval "require $p";
		if ($v) { 
		    no strict 'refs';
		    skip "$p wrong version",1 if ${ "${p}::VERSION" } <= $v; 
		}
	    }
	    ok( eval "require $pkg",$pkg );
	}
    }
}