view release on metacpan or  search on metacpan

lib/Mozilla/Persona/Check.pm  view on Meta::CPAN

my $ua;


sub check_identity(%)
{   my %args = @_;

    my $identity = $args{identity} or panic;
    my $password = $args{password} or panic;

    my ($user, $domain) = split m/\@/, $identity, 2;
    defined $domain
        or error __x"identity should have a form like: username\@example.com";

    my $website  = URI->new("https://$domain");
    check_browserid_file $website;
    check_login $website, $identity, $password;
}

sub check_browserid_file($)
{   my $website  = shift;