small test for creating custom moose types

custom_num_subtype.pl

package test::role;

use Moose::Role;
use Moose::Util::TypeConstraints;

subtype 'ModNum'
    => as 'Num'
    => where { /\_/ || /\d+/ };

coerce 'ModNum',
    from 'Str',
    via { $_ =~ s/\_//g; 0+$_ };

package myclass;

use Moose;
with 'test::role';

has 'mynum' => (
    is => 'ro',
    isa => 'ModNum' 
);

package main;

use myclass;
use 5.010;
use strict;
use warnings;

my $cl = myclass->new( mynum => 1_0 );

say $cl->mynum; # 10