Skip to content

Instantly share code, notes, and snippets.

package MyClass;
use Moose;
use MyTypes qw( MyDate );
use namespace::clean -except => 'meta';
has bday => (isa => MyDate, is => 'ro', coerce => 1);
__PACKAGE__->meta->make_immutable;
1;
#!/usr/bin/perl
use feature ':5.10';
use warnings;
use strict;
my %saving_throws = (
ppd => [qw(paralyzation poison death_magic)],
rsw => [qw(rods staves wands)],
pp => [qw(petrifaction polymorph)],
bw => [qw(breath_weapon)],