view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

{
  package Thing;
  sub does_stuff { return "Stuff done!"; }
}

my $x = eval { Thing->deos_stuff };
my $e = $@;

is($x, undef, "the thing doesn't do stuff");
like($e, qr/object method/, "throws exception");

{
  package Thing;
  require Amce::CNA;
  Amce::CNA->import;
}

{
  my $x = eval { Thing->deos_stuff };
  my $e = $@;