package Utils;

use URI;
use List::MoreUtils qw(uniq);
use Types::Standard qw(InstanceOf);
use Moo::Role;

requires qw(list monks);

sub my_uniq {
    my $self   = shift;
    my @result = uniq @{ $self->list };
    wantarray ? @result : scalar @result;
}

has 'uri' => (
    is      => 'lazy',
    isa     => InstanceOf ['URI'],
    default => sub { my $self = shift; URI->new( $self->monks ) },
    handles => [qw(host)],
);

1;

__END__