moosex-getopt.pl

package App;
use Moose;
use Moose::Util::TypeConstraints;

with 'MooseX::Getopt';
    
use URI;

subtype 'Uri'
    => as 'Object'
    => where { $_ =~ m{(?:http://)?(?:www\.)?[^.]*\.com/?} }
    => message { "only .com domains are accepted, no subdomains (except www)" };
    
coerce 'Uri'
    => from 'Str'
    => via { URI->new($_) };

# we need to create a custom mapping, so Getopt knows what is Uri,
# in this case it's a simple string
MooseX::Getopt::OptionTypeMap->add_option_type_to_map(
    'Uri' => '=s'
);

has 'url' => ( isa => 'Uri', is => 'rw', coerce => 1, required => 1 );

package main;
use Data::Dump 'dump';

my $app = App->new_with_options;    
dump $app->url;