#!perl -w

use strict;
use Test::More;

use Test::Vars;

vars_ok 't/lib/Warned1.pm', ignore_vars => { '$an_unused_var' => 1 };
vars_ok 't/lib/Warned1.pm', ignore_vars => [ '$an_unused_var' ];
vars_ok 't/lib/Warned1.pm', ignore_if   => sub{ /unused/ };


done_testing;