HTTP::Server::Simple::Static - Serve static files with HTTP::Server::Simple

This documentation refers to HTTP::Server::Simple::Static version 0.07

    package MyServer;

    use base qw(HTTP::Server::Simple::CGI);
    use HTTP::Server::Simple::Static;

    sub handle_request {
	my ( $self, $cgi ) = @_;
	return $self->serve_static( $cgi, $webroot );
    }

    package main;

    my $server = MyServer->new();
    $server->run();

this mixin adds a method to serve static files from your HTTP::Server::Simple subclass.

serve_static

Takes a base directory and a web path, and tries to serve a static file. Returns 0 if the file does not exist, returns 1 on success.

Bugs or wishlist requests should be submitted via http://rt.cpan.org/

Stephen Quinney sjq-perl@jadevine.org.uk

Thanks to Marcus Ramberg marcus@thefeed.no and Simon Cozens for initial implementation.

Copyright 2006 - 2008. Stephen Quinney sjq-perl@jadevine.org.uk

You may distribute this code under the same terms as Perl itself.