source: bookmarks/trunk/start @ 98

#!/usr/bin/perl -w
use strict;

use FindBin;
use lib "$FindBin::RealBin/lib";

use Getopt::Long;
use YAML;
use Plack::Runner;
use BookmarksApp;

GetOptions(
    'file=s' => \my $CONFIG_FILE,
);

$CONFIG_FILE ||= 'server.yml';
-e $CONFIG_FILE or die "Config file $CONFIG_FILE not found\n";
my $config = YAML::LoadFile($CONFIG_FILE);
my $app = BookmarksApp->new({ config => $config })->to_app;

my $listen = ':' . ($config->{port} || 5000);

my $runner = Plack::Runner->new(server => 'Starman');
$runner->parse_options(qw{--listen}, $listen, qw{--daemonize --pid pid --error-log errors --access-log access});
$runner->run($app);