view release on metacpan or  search on metacpan

lib/Catmandu/Adlib/API/Login.pm  view on Meta::CPAN

use Moo;
use Catmandu::Sane;

use base 'LWP::UserAgent';

has username => (is => 'ro', required => 1);
has password => (is => 'ro', required => 1);

# login => moet helemaal anders!

sub get_basic_credentials {
    my ($self, $realm, $url) = @_;
    return $self->username, $self->password;
}

1;
__END__