unknownplace.org

でもこんな感じで

sub get_user {
    my ( $self, $id, $password ) = @_;

    $self->{ua} ||= LWP::UserAgent->new;

    my $request = HTTP::Request->new( HEAD => $self->{auth_url} );
    $request->headers->authorization_basic( $id, $password );

    my $response = $self->{ua}->request( $request );

    return unless $response->is_success;

    my $user = {
        id => $id,
        password => $password,
        store => ref $self || $self,
    };

    return bless $user, 'Catalyst::Plugin::Authentication::User::Hash';
}

みたいに Authentication::CDBI::Basic::Remote ぽいのを再実装しようとして詰まった。

こうやってかけるようにならねーかなぁ。