#!/usr/bin/perl
use strict;
use warnings;
use lib '../../lib';
use OpenID::Lite::RelyingParty::Discover;
use OpenID::Lite::Identifier;
use Data::Dump qw(dump);
use Perl6::Say;
my $identifier = q{yahoo.com};
my $id = OpenID::Lite::Identifier->normalize($identifier);
my $disco = OpenID::Lite::RelyingParty::Discover->new;
my $servers = $disco->discover($id);
say dump($servers);