File Coverage

blib/lib/Mojo/URL/Role/Auth.pm

Criterion	Covered	Total	%
statement	11	12	91.6
branch	5	8	62.5
condition	2	3	66.6
subroutine	2	2	100.0
pod	1	1	100.0
total	21	26	80.7

package Mojo::URL::Role::Auth;

use Mojo::Base -role, -signatures;
has [qw(username password)];

our $VERSION = '0.1.2';

sub auth {
  my ($self, $user, $pass)  = @_;

  if(!defined $user && !defined $pass) {
    return undef unless defined $self->username;
    return $self->username unless defined $self->password;
    return sprintf("%s:%s", $self->username, $self->password);
  }
  elsif(!defined $pass) {
    ($user, $pass) = split ':', $user, 2;
  }

  $self->username($user);
  $self->password($pass);

  return $self->userinfo($self->auth);
}

1;
__END__