gistfile1.pl

#!perl -w
use strict;
use Test::More tests => 3;
{
    package T;
    use Tie::Hash();
    use base qw(Tie::StdHash);

    sub FETCH{
        my($self, $key) = @_;
        # XXX: "require $key" is okey
        eval "use $key(); 1";
    }
}

tie my(%t), 'T';

ok $t{Cwd}, 'existing module';
ok!$t{'No::Such::Module'}, 'non-existing module';
ok $t{strict}, 'existing module';