view release on metacpan or  search on metacpan

t/App/Services/Forker/01_forker.t  view on Meta::CPAN

log4perl.rootLogger=INFO, stdout
log4j.appender.stdout=org.apache.log4j.ConsoleAppender
log4j.appender.stdout.layout=org.apache.log4j.PatternLayout
log4j.appender.stdout.layout.ConversionPattern=%-6p| %m%n

/;

my @child_objects = ( 1 .. 10 );

sub child_actions {
	say "child: $_[0]";
}

my $cntnr = container '01_basic_t' => as {

	service log_conf => \$log_conf;

	service 'logger_svc' => (
		class        => 'App::Services::Logger::Service',
		lifecycle    => 'Singleton',
		dependencies => { log_conf => 'log_conf' },

t/App/Services/Forker/02_forker_container.t  view on Meta::CPAN

my $log_conf = qq/ 
log4perl.rootLogger=INFO, stdout
log4j.appender.stdout=org.apache.log4j.ConsoleAppender
log4j.appender.stdout.layout=org.apache.log4j.PatternLayout
log4j.appender.stdout.layout.ConversionPattern=%-6p| %m%n

/;

my @co = qw( 1 2 3 4 5 6 7 8 9 10 );
sub ca { say "$_[0]" }

say "ref: " . ref( \@co );

my $cntnr = App::Services::Forker::Container->new(
	child_objects => \@co,
	child_actions => \&ca,
	log_conf      => \$log_conf,
);

my $lsvc = $cntnr->resolve( service => 'log/logger_svc' );

ok( $lsvc, "Create logger service" );