package My::Server;

use strict;
use warnings;
use XML::Atom::Feed;
use FindBin;
use base qw( Atompub::Server );

sub init {
    my $server = shift;
    $server->realm('Atompub');
    $server->SUPER::init(@_);
}

sub handle_request {
    my $server = shift;
    $server->authenticate || return;
    my $method = $server->request_method;
    if ( $method eq 'GET' ) {
	return $server->search_feed;
    }
}

my %Passwords = ( foo => 'foo' );
sub password_for_user {
    my $server = shift;
    my ( $username ) = @_;
    return $Passwords{$username};
}

sub search_feed {
    my $server = shift;
    return XML::Atom::Feed->new->as_xml;
}

1;