[SCM] libmessage-passing-perl Debian packaging branch, master, updated. debian/0.111-3-14-g44f6e88

Tomas Doran bobtfish at bobtfish.net
Mon May 6 11:56:42 UTC 2013


The following commit has been merged in the master branch:
commit 54c65d01ab715a54e799112be5d4c7121b5d2922
Author: Tomas Doran <bobtfish at bobtfish.net>
Date:   Sun Mar 4 13:33:52 2012 +0000

    Change DSL

diff --git a/lib/Log/Stash/DSL.pm b/lib/Log/Stash/DSL.pm
index 1207a47..c43ad07 100644
--- a/lib/Log/Stash/DSL.pm
+++ b/lib/Log/Stash/DSL.pm
@@ -8,7 +8,7 @@ use Scalar::Util qw/weaken/;
 use AnyEvent;
 
 Moose::Exporter->setup_import_methods(
-    as_is     => [qw/ run chain input filter output /],
+    as_is     => [qw/ run_log_server log_chain input filter output /],
     also      => 'Moose',
 );
 
@@ -17,7 +17,7 @@ sub _check_factory {
     confess("Not inside a chain { block!!") unless $FACTORY;
 }
 
-sub chain (&) {
+sub log_chain (&) {
     my $code = shift;
     if ($FACTORY) {
         confess("Cannot chain witin a chain");
@@ -64,7 +64,7 @@ sub output {
     );
 }
 
-sub run {
+sub run_log_server {
     my $chain = shift;
     AnyEvent->condvar->recv;
 }
@@ -90,7 +90,7 @@ Log::Stash::DSL - An easy way to make chains of logstash objects.
 
     sub build_chain {
         my $self = shift;
-        chain {
+        log_chain {
             output console => (
                 class => 'STDOUT',
             );
@@ -102,7 +102,7 @@ Log::Stash::DSL - An easy way to make chains of logstash objects.
         };
     }
 
-    sub start { run __PACKAGE__->new_with_options->build_chain }
+    sub start { run_log_server __PACKAGE__->new_with_options->build_chain }
     __PACKAGE__->start unless caller;
 
 =head1 DESCRIPTION
diff --git a/t/dsl.t b/t/dsl.t
index 2f8b1ec..a6ec464 100644
--- a/t/dsl.t
+++ b/t/dsl.t
@@ -4,7 +4,7 @@ use Test::More;
 
 use Log::Stash::DSL;
 
-my $c = chain {
+my $c = log_chain {
         output test => (
             class => 'Test',
         );

-- 
libmessage-passing-perl Debian packaging



More information about the Pkg-perl-cvs-commits mailing list