require Net::Daemon; require RPC::PlServer; require IO::Socket; use UnixODBC ':all'; package UnixODBC::BridgeServer; use vars qw($VERSION @ISA); $UnixODBC::BridgeServer::VERSION = $UnixODBC::VERSION;@ UnixODBC::BridgeServer::ISA = qw(RPC::PlServer); sub new { my $self = shift -> SUPER::new(@_); }
Example 5: Constructor for peer-to-peer server objects.