revise log router api to match log::contextual router api change
[scpubgit/Object-Remote.git] / lib / Object / Remote / LogDestination.pm
CommitLineData
f7ea4120 1package Object::Remote::LogDestination;
2
3use Moo;
4use Scalar::Util qw(weaken);
5
6has logger => ( is => 'ro', required => 1 );
7has subscriptions => ( is => 'ro', required => 1, default => sub { [] } );
8
9sub select {
5d59cb98 10 my ($self, $router, $selector) = @_;
11 my $subscription = $router->subscribe($self->logger, $selector);
12 push(@{ $self->subscriptions }, $subscription);
6536ccd3 13 return $self;
f7ea4120 14}
15
16sub connect {
5d59cb98 17 my ($self, $router) = @_;
18 return $self->select($router, sub { 1 });
f7ea4120 19}
20
4a9fa1a5 211;
22
23