view release on metacpan or  search on metacpan

t/lib/My/Server.pm  view on Meta::CPAN

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;
    }
}