view release on metacpan or  search on metacpan

t/80-exc.t  view on Meta::CPAN

#! perl

use strict;
use warnings;
use Test::More tests => 5;
sub throws_ok(&$;$);

use Data::Struct;

throws_ok {
  my $s = struct Foo => qw(foo bar);
} qr/Ambiguous/,
  'definition requires void';

throws_ok {
  struct "Foo";