Select Code to Download

my $test_name= "no such bundle";
try {
...
    like ($exception, qr/at t\/tests\.t/, "$test_name - carps correctl
+y");
    pass ($test_name); 
    }  ;

my $test_name= "no such bundle";
dies_ok { HTML::EntityReference::ordinal('CapitalDifferentialD', ':foo
+XX') } $test_name;
like ($@, qr/:fooXX/, "$test_name - mentions cause of error");
like ($@, qr/at t\/tests\.t/, "$test_name - carps correctly");

my $test_name= "no such bundle";
my $err= exception { HTML::EntityReference::ordinal('CapitalDifferenti
+alD', ':fooXX') } ;
ok (defined $err, $test_name);
like ($err, qr/:fooXX/, "$test_name - mentions cause of error");
like ($err, qr/at t\/tests\.t/, "$test_name - carps correctly");