#!/usr/bin/perl

# ABSTRACT: provide a web interface to a Pinto repository
# PODNAME: pinto-server

use strict;
use warnings;

use CGI::Application::Dispatch::Server;

#-----------------------------------------------------------------------------

our $VERSION = '0.009'; # VERSION

#-----------------------------------------------------------------------------

my $class = 'Pinto::Server::Dispatch';

my $server = CGI::Application::Dispatch::Server->new( class => $class,
                                                      port  => 1973, );

$server->run;

__END__
=pod

=for :stopwords Jeffrey Ryan Thalhammer Imaginative Software Systems

=head1 NAME

pinto-server - provide a web interface to a Pinto repository

=head1 VERSION

version 0.009

=head1 AUTHOR

Jeffrey Ryan Thalhammer <jeff@imaginative-software.com>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2011 by Imaginative Software Systems.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut

