$container->add_sub_container(Bread::Board::Container->new( name => $_ )) for qw(model controller view);
$class->container($container);
- my $config = $container->fetch('config')->get;
+ my $config = $container->resolve(service => 'config');
$class->config($config);
$class->finalize_config; # back-compat
}
}
sub _config_substitutions {
- my ($self, $name, $subs) = @_;
+ my ( $self, $name, $subs, $arg ) = @_;
$subs->{ HOME } ||= sub { shift->path_to( '' ); };
$subs->{ ENV } ||=
$subs->{ literal } ||= sub { return $_[ 1 ]; };
my $subsre = join( '|', keys %$subs );
- for ( @_ ) {
- my $arg = $_;
- $arg =~ s{__($subsre)(?:\((.+?)\))?__}{ $subs->{ $1 }->( $name, $2 ? split( /,/, $2 ) : () ) }eg;
- return $arg;
- }
+ $arg =~ s{__($subsre)(?:\((.+?)\))?__}{ $subs->{ $1 }->( $name, $2 ? split( /,/, $2 ) : () ) }eg;
+ return $arg;
}
1;