package main; use 5.008; use strict; use warnings; use Test::More 0.88; # Because of done_testing(); BEGIN { eval { require lib; lib->import( 'inc' ); 1; } or plan skip_all => 'Can not "use lib qw{ inc };"'; eval { require Astro::App::Satpass2::Meta; 1; } or plan skip_all => 'Can not load Astro::App::Satpass2::Meta'; } my $meta = Astro::App::Satpass2::Meta->new(); foreach my $method ( qw{ requires build_requires } ) { my %mod = %{ $meta->$method() }; foreach my $module ( sort keys %mod ) { my @modspec = ( $module ); $mod{$module} and push @modspec, $mod{$module}; ok eval "use @modspec; 1", "$method @modspec" or diag $@; } } done_testing; 1; # ex: set textwidth=72 :