12345678910111213141516 #!perlBEGIN { unless ($ENV{RELEASE_TESTING}) { require Test::More; Test::More::plan(skip_all => 'these tests are for release candidate testing'); }}use Test::More;eval "use Test::Vars";plan skip_all => "Test::Vars required for testing unused vars" if $@;all_vars_ok();
#!perl
BEGIN {
unless
(
$ENV
{RELEASE_TESTING}) {
require
Test::More;
Test::More::plan(
skip_all
=>
'these tests are for release candidate testing'
);
}
use
eval
"use Test::Vars"
;
plan
"Test::Vars required for testing unused vars"
if
$@;
all_vars_ok();