EvanCarroll

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;

EvanCarroll

#!/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)],

EvanCarroll

FIX THE DAMN TYPE BUGS. RLY NOW.. http://rt.cpan.org/Ticket/Display.html?id=46891 http://rt.cpan.org/Public/Bug/Display.html?id=46962