view release on metacpan or  search on metacpan

lib/Authen/Simple/HTTP.pm  view on Meta::CPAN

__PACKAGE__->options({
    url => {
        type     => Params::Validate::SCALAR,
        optional => 0
    },
    agent => {
        type     => Params::Validate::OBJECT,
        isa      => 'LWP::UserAgent',
        default  => LWP::UserAgent->new(
            cookie_jar => {},
            keep_alive => 1,
            timeout    => 30
        ),
        optional => 1
    }
});

sub check {
    my ( $self, $username, $password ) = @_;

    # This implementation is very hackish, however I could not find a cleaner