my $test_name= "no such bundle";
try {
    HTML::EntityReference::ordinal('CapitalDifferentialD', ':fooXX');
    fail ($test_name);
    }
catch {
    my $exception= $_;
    like ($exception, qr/:fooXX/, "$test_name - mentions cause of error");
    like ($exception, qr/at t\/tests\.t/, "$test_name - carps correctly");
    pass ($test_name); 
    }  ;

##</code><code>##

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

##</code><code>##

my $test_name= "no such bundle";
my $err= exception { HTML::EntityReference::ordinal('CapitalDifferentialD', ':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");