Author: spadkins Date: Tue Aug 28 11:55:12 2007 New Revision: 9896 Modified: p5ee/trunk/App-Context/lib/App/Context/POE/Server.pm Log: removed some routines which were not being used Modified: p5ee/trunk/App-Context/lib/App/Context/POE/Server.pm ============================================================================== --- p5ee/trunk/App-Context/lib/App/Context/POE/Server.pm (original) +++ p5ee/trunk/App-Context/lib/App/Context/POE/Server.pm Tue Aug 28 11:55:12 2007 @[EMAIL PROTECTED] -225,26 +225,6 @[EMAIL PROTECTED] $self->log({level=>2},"Stopping Dispatching Events on Server.\n"); } -sub process_msg { - my ($self, $msg) = @[EMAIL PROTECTED] $self->log({level=>3},"process_msg: [$msg]\n"); - my $verbose = $self->{verbose}; - my $return_value = $self->process_custom_msg($msg); - if (!$return_value) { - $return_value = "unknown [$msg]\n"; - } - &App::sub_exit($return_value) if ($App::trace); - return($return_value); -} - -sub process_custom_msg { - &App::sub_entry if ($App::trace); - my ($self, $msg) = @[EMAIL PROTECTED] my $return_value = ""; - &App::sub_exit($return_value) if ($App::trace); - return($return_value); -} - sub state { &App::sub_entry if ($App::trace); my ($self) = @[EMAIL PROTECTED]