The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

use WebService::ValidSign::Types qw(WebServiceValidSignURI);
use URI;
my $uri = URI->new($endpoint);
ok(
WebServiceValidSignURI->check($uri),
"URI->new($endpoint) is a valid URI object"
);
isa_ok(
WebServiceValidSignURI->coerce($endpoint),
'URI',
"... and also coerces nicely"
);
done_testing;