The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use Test::More tests => 1;

# this screws everything :/
BEGIN { $0 = "[ren/am/med]" };

use Find::Lib;
eval {
    Find::Lib->import('../mylib');
    eval "use MyLib a => 1, b => 42;"; die $@ if $@;
};
chomp $@;
ok $@, "we die if \$0 ($0) doesn't make sense";
diag "ERROR was: $@";