1:- module(bc_env, [
    2    bc_env/1,           % -Environment:atom
    3    bc_env_production/0
    4]).

    9bc_env(Env):-
   10    getenv('PL_ENV', Env), !.
   11
   12bc_env(development).
   13
   14% Succeeds when the current
   15% environment is production.
   16
   17bc_env_production:-
   18    bc_env(production)