File Coverage

blib/lib/HTTP/AppServer.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package HTTP::AppServer;
# Simple CRUD server for JSON objects and plain files.
# 2010 by Tom Kirchner
#
# routes:
#   POST /create = erzeugt neues JSON-Dokument, liefert UUId zurueck
#   GET  /read/ = liefert JSON-Dokument oder Fehler zurueck
#   POST /update/ = aendert JSON-Dokument (erzeugt neue Revision)
#   GET  /delete/ = loescht JSON-Dokument
#   GET  /file/ = gibt Datei innerhalb Document-Root zurueck

use 5.010000;
use strict;
use warnings;
use Data::Dumper;
use HTTP::AppServer::Base;

our $VERSION = '0.04';

sub new
{
	my ($class, @args) = @_;
	my $self = bless {}, $class;
	return $self->init(@args);
}

sub init
{
	my ($self, %opts) = @_;

	# server options defaults
	my %defaults = (StartBackground => 0, ServerPort => 3000);

	# set options or use defaults
	map { $self->{$_} = (exists $opts{$_} ? $opts{$_} : $defaults{$_}) }
		keys %defaults;

	$self->{'server'} = HTTP::AppServer::Base->new($self->{'ServerPort'});

	return $self;
}

sub handle
{
	my ($self, %pairs) = @_;
	map { $self->{'server'}->handle($_, $pairs{$_}) } keys %pairs;
	return 1;
}

sub plugin
{
	my ($self, $name, %options) = @_;

	# load module
	eval('use HTTP::AppServer::Plugin::'.$name);
	die "Failed to load plugin '$name': $@\n" if $@;

	# call init() method of module to get the handlers of the plugin
	eval('$self->handle( HTTP::AppServer::Plugin::'.$name.'->init($self->{"server"}, %options))');
	die "Failed to install handlers for plugin '$name': $@\n" if $@;
}

sub start
{
	my ($self) = @_;

	$self->{'server'}->debug();

	# start the server on port
	if ($self->{'StartBackground'}) {
		my $pid = $self->{'server'}->background();
		print "Server started (http://localhost:$self->{'ServerPort'}) with PID $pid\n";
	} else {
		print "Server started (http://localhost:$self->{'ServerPort'})\n";
		my $pid = $self->{'server'}->run();
	}
}

1;
__END__