#!perl -wT
use strict;
if($ENV{AUTHOR_TESTING}) {
eval {
eval 'use warnings::unused 0.04';
};
if($@) {
plan(skip_all => 'warnings::unused needed for test for unused variables');
} else {
use_ok('CGI::Info');
new_ok('CGI::Info');
plan(tests => 2);
}
} else {
plan(skip_all => 'Author tests not required for installation');
}