http://www.perlmonks.org?node_id=342919


in reply to Net::Server::POP3::Skeleton

Interesting. Your interface takes an almost entirely different approach from mine, except that both create an object with the new constructor and then start the server with a method call. (Maybe we were both influenced to that because of the way the Net::Server interface works.)


;$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}} split//,".rekcah lreP rehtona tsuJ";$\=$;[-1]->();print