From: Tyler Riddle Date: Sat, 8 Dec 2012 03:11:16 +0000 (-0800) Subject: fix comments that were in wrong spot from refactoring X-Git-Tag: v0.003001_01~30 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=052976d4a389b826a9551909492f3fc2f2312c88;p=scpubgit%2FObject-Remote.git fix comments that were in wrong spot from refactoring --- diff --git a/lib/Object/Remote/Logging/Router.pm b/lib/Object/Remote/Logging/Router.pm index 16c9774..84a562f 100644 --- a/lib/Object/Remote/Logging/Router.pm +++ b/lib/Object/Remote/Logging/Router.pm @@ -7,8 +7,6 @@ use Sys::Hostname; with 'Log::Contextual::Role::Router'; with 'Object::Remote::Role::LogForwarder'; -#lookup table for package names that should not -#be forwarded across Object::Remote connections has _connections => ( is => 'ro', required => 1, default => sub { [] } ); has _remote_metadata => ( is => 'rw' ); @@ -49,7 +47,7 @@ sub _get_loggers { sub _invoke_logger { my ($self, $logger, $level_name, $content, $metadata) = @_; #Invoking the logger like this gets all available data to the - #logging object with out losing any information from the structure. + #logging object with out losing any information from the datastructure. #This is not a backwards compatible way to invoke the loggers #but it enables a lot of flexibility in the logger. #The l-c router could have this method invoke the logger in diff --git a/lib/Object/Remote/Logging/TestLogger.pm b/lib/Object/Remote/Logging/TestLogger.pm index f3bc057..7d12e52 100644 --- a/lib/Object/Remote/Logging/TestLogger.pm +++ b/lib/Object/Remote/Logging/TestLogger.pm @@ -1,3 +1,8 @@ +#During testing of Object::Remote this logger is connected +#to the router and runs at trace level but does not output anything. +#This lets the logging codeblocks get executed and included +#in the testing. + package Object::Remote::Logging::TestLogger; use base qw ( Object::Remote::Logging::Logger ); diff --git a/lib/Object/Remote/Role/LogForwarder.pm b/lib/Object/Remote/Role/LogForwarder.pm index cad2572..d3968d2 100644 --- a/lib/Object/Remote/Role/LogForwarder.pm +++ b/lib/Object/Remote/Role/LogForwarder.pm @@ -4,6 +4,8 @@ use Moo::Role; has enable_forward => ( is => 'rw', default => sub { 1 } ); has _forward_destination => ( is => 'rw' ); +#lookup table for package names that should not +#be forwarded across Object::Remote connections has _forward_stop => ( is => 'ro', required => 1, default => sub { {} } ); after _deliver_message => sub {