#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 1;
use NetHack::Item;
my $item = eval { NetHack::Item->new('3 uncursed eggs') };
ok(!$@, "'3 uncursed eggs' didn't throw an error");
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 1;
use NetHack::Item;
my $item = eval { NetHack::Item->new('3 uncursed eggs') };
ok(!$@, "'3 uncursed eggs' didn't throw an error");