Parameterized Containers
file: code/ParameterizedContainer/find_new_series.pl 1: #!/use/bin/env perl 2: use strict; 3: use warnings; 4: use 5.014; 5: use FindBin; 6: use lib $FindBin::Bin; 7: use MyBB; 8: 9: my $bb = MyBB->setup( $ARGV[0] || 'prod'); 10: 11: my $fns = $bb->resolve( service => 'FindNewSeries' ); 12: say $fns->run;
here we set the enviroment via the commandline or default to 'prod'