NAME

Raisin::Types::Base

SYNOPSIS

my $Price =
    Raisin::Types::Base->new(
        check => sub {
            my $v = shift;
            return if ref $v;
            $v =~ /^[\d.]*$/;
        },
        in => sub {
            my $v = shift; # SCALAR REF
            $$v = sprintf '%.2f', $$v;
        },
    );

DESCRIPTION

check then in.

new

Create new type.

check

Check subroutine.

in

Some actions on the value.