Index: lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/t/98_perlcritic.t
===================================================================
--- lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/t/98_perlcritic.t (revision 17232)
+++ lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/t/98_perlcritic.t (revision 17232)
@@ -0,0 +1,5 @@
+use strict;
+use Test::More;
+eval q{ use Test::Perl::Critic };
+plan skip_all => "Test::Perl::Critic is not installed." if $@;
+all_critic_ok("lib");
Index: lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/t/97_podspell.t
===================================================================
--- lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/t/97_podspell.t (revision 17232)
+++ lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/t/97_podspell.t (revision 17232)
@@ -0,0 +1,8 @@
+use Test::More;
+eval q{ use Test::Spelling };
+plan skip_all => "Test::Spelling is not installed." if $@;
+add_stopwords(<DATA>);
+all_pod_files_spelling_ok('lib');
+__DATA__
+Tatsuhiko
+Miyagawa
Index: lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/t/99_pod.t
===================================================================
--- lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/t/99_pod.t (revision 17232)
+++ lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/t/99_pod.t (revision 17232)
@@ -0,0 +1,4 @@
+use Test::More;
+eval "use Test::Pod 1.00";
+plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
+all_pod_files_ok();
Index: lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/t/00_compile.t
===================================================================
--- lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/t/00_compile.t (revision 17232)
+++ lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/t/00_compile.t (revision 17232)
@@ -0,0 +1,4 @@
+use strict;
+use Test::More tests => 1;
+
+BEGIN { use_ok 'HTTP::Server::Simple::Bonjour' }
Index: lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/MANIFEST
===================================================================
--- lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/MANIFEST (revision 17232)
+++ lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/MANIFEST (revision 17232)
@@ -0,0 +1,24 @@
+Changes
+inc/Module/Install.pm
+inc/Module/Install/Base.pm
+inc/Module/Install/Can.pm
+inc/Module/Install/Fetch.pm
+inc/Module/Install/Include.pm
+inc/Module/Install/Makefile.pm
+inc/Module/Install/Metadata.pm
+inc/Module/Install/TestBase.pm
+inc/Module/Install/Win32.pm
+inc/Module/Install/WriteAll.pm
+inc/Spiffy.pm
+inc/Test/Base.pm
+inc/Test/Base/Filter.pm
+inc/Test/Builder.pm
+inc/Test/Builder/Module.pm
+inc/Test/More.pm
+lib/HTTP/Server/Simple/Bonjour.pm
+Makefile.PL
+MANIFEST			This list of files
+META.yml
+README
+t/00_compile.t
+test-server.pl
Index: lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/lib/HTTP/Server/Simple/Bonjour.pm
===================================================================
--- lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/lib/HTTP/Server/Simple/Bonjour.pm (revision 17233)
+++ lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/lib/HTTP/Server/Simple/Bonjour.pm (revision 17233)
@@ -0,0 +1,80 @@
+package HTTP::Server::Simple::Bonjour;
+
+use strict;
+use 5.8.1;
+our $VERSION = '0.01';
+
+use Carp;
+use NEXT;
+
+my $publisher = eval {
+    require Net::Rendezvous::Publish;
+    Net::Rendezvous::Publish->new;
+};
+
+sub print_banner {
+    my $self = shift;
+
+    unless ($publisher) {
+        carp "Publisher backend is not available. Install one of Net::Rendezvous::Publish::Backend modules from CPAN.";
+        $self->NEXT::print_banner;
+        return;
+    }
+
+    $publisher->publish(
+        name => $self->service_name,
+        type => '_http._tcp',
+        port => $self->port,
+        domain => 'local',
+    );
+
+    $self->NEXT::print_banner;
+}
+
+sub service_name {
+    my $self = shift;
+    require Sys::Hostname;
+    return Sys::Hostname::hostname();
+}
+
+1;
+__END__
+
+=encoding utf-8
+
+=for stopwords
+
+=head1 NAME
+
+HTTP::Server::Simple::Bonjour - Bonjour plugin for HTTP::Server::Simple
+
+=head1 SYNOPSIS
+
+  package MyServer;
+  # You need to put ::Bonjour first so NEXT should work properly
+  use base qw( HTTP::Server::Simple::Bonjour HTTP::Server::Simple::CGI );
+
+  sub server_name { "My awesome webserver" }
+
+  MyServer->new->run;
+
+=head1 DESCRIPTION
+
+HTTP::Server::Simple::Bonjour is an HTTP::Server::Simple plugin to
+publish the server name and TCP port via Bonjour so anyone in the
+local network can discover your web server.
+
+=head1 AUTHOR
+
+Tatsuhiko Miyagawa E<lt>miyagawa@cpan.orgE<gt>
+
+=head1 LICENSE
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+L<HTTP::Server::Simple> L<Net::Bonjour::Publish>
+
+=cut
Index: lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/Makefile.PL
===================================================================
--- lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/Makefile.PL (revision 17232)
+++ lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/Makefile.PL (revision 17232)
@@ -0,0 +1,11 @@
+use inc::Module::Install;
+name 'HTTP-Server-Simple-Bonjour';
+all_from 'lib/HTTP/Server/Simple/Bonjour.pm';
+requires 'NEXT';
+requires 'HTTP::Server::Simple';
+requires 'Net::Rendezvous::Publish';
+
+build_requires 'Test::More';
+use_test_base;
+auto_include;
+WriteAll;
Index: lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/Changes
===================================================================
--- lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/Changes (revision 17232)
+++ lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/Changes (revision 17232)
@@ -0,0 +1,4 @@
+Revision history for Perl extension HTTP::Server::Simple::Bonjour
+
+0.01  Thu Aug  7 15:32:37 2008
+        - original version
Index: lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/MANIFEST.SKIP
===================================================================
--- lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/MANIFEST.SKIP (revision 17232)
+++ lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/MANIFEST.SKIP (revision 17232)
@@ -0,0 +1,14 @@
+\bRCS\b
+\bCVS\b
+\.svn/
+^MANIFEST\.
+^Makefile$
+~$
+\.old$
+^blib/
+^pm_to_blib
+^MakeMaker-\d
+\.gz$
+\.cvsignore
+\.shipit
+^t/9\d_.*\.t
Index: lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/README
===================================================================
--- lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/README (revision 17232)
+++ lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/README (revision 17232)
@@ -0,0 +1,27 @@
+This is Perl module HTTP::Server::Simple::Bonjour.
+
+INSTALLATION
+
+HTTP::Server::Simple::Bonjour installation is straightforward. If your CPAN shell is set up,
+you should just be able to do
+
+    % cpan HTTP::Server::Simple::Bonjour
+
+Download it, unpack it, then build it as per the usual:
+
+    % perl Makefile.PL
+    % make && make test
+
+Then install it:
+
+    % make install
+
+DOCUMENTATION
+
+HTTP::Server::Simple::Bonjour documentation is available as in POD. So you can do:
+
+    % perldoc HTTP::Server::Simple::Bonjour
+
+to read the documentation online with your favorite pager.
+
+Tatsuhiko Miyagawa
Index: lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/test-server.pl
===================================================================
--- lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/test-server.pl (revision 17232)
+++ lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/test-server.pl (revision 17232)
@@ -0,0 +1,7 @@
+#!/usr/bin/perl
+use strict;
+package MyServer;
+use base qw( HTTP::Server::Simple::Bonjour HTTP::Server::Simple::CGI );
+
+package main;
+MyServer->new->run;
Index: lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/.shipit
===================================================================
--- lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/.shipit (revision 17232)
+++ lang/perl/HTTP-Server-Simple-Bonjour/tags/0.01/.shipit (revision 17232)
@@ -0,0 +1,1 @@
+steps = FindVersion, ChangeVersion, CheckChangeLog, DistTest, Commit, Tag, MakeDist, UploadCPAN