On Monday 20 February 2006 10:29, Beau E. Cox wrote:
> On Monday 20 February 2006 10:06, Tom Allison wrote:
> > package AuthServer;
> >
> > @ISA = qw[Net::Server];
> >
> > my $server = bless {
> > port => 8081,
> > }, 'AuthServer';
> >
> > $server->run();
>
> No. This _works_:
>
> package AuthServer;
>
> use Net::Server;
>
> @ISA = qw[Net::Server];
>
> AuthServer->run( port => 8081 );
> exit;
>
> 1;
>
> You need a 'use Net::Server'; you may want to pick
> one of new server's sub classes: New::Server::PreFork,
> etc.
Typo's: s/new/net/g; s/New/Net/g;
>
> You should pass 'port' as a parameter to 'run'.
>
> Add at least a 'sub process_request' method to
> actually do the work.
>
> READ the docs; my example above is straight from the
> SYNOPSIS! :)
>
>
> --
> Aloha => Beau;
--
Aloha => Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
