my %test;
my $foo;

$test{Description} = qw(The foo parameter contains valid data);

#  The foo parameter is stored in $foo.
$test{access} = [ \$foo ];

#  The foo parameter is not empty and
for my $t (@{$test{access}}) {
isnt( $t, '', $test{Description} . qw(The foo parameter is not empty));
#  The foo parameter is defined and
is( $t, defined, $test{Description} . qw(The foo parameter is defined));
#  The foo parameter matches the pattern C</bar/>.
like( $t, qr/bar/, $test{Description} . qw(The foo parameter matches C</bar/>));
};