[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