Yah.pm

  if($self->mode eq 'development' || $self->mode eq 'test') {
    my $env      = Mojo::Asset::File->new(path => 'env.sh')->get_chunk;
    my $mode_env = Mojo::Asset::File->new(path => "env.$mode.sh");
    my $mode     = $self->mode;

    if($mode_env->size > 0) {
      $env .= $mode_env->get_chunk;
    }

    foreach my $file (split('\n', $env)){
      my($key, $value) = split('=', $file);
      $ENV{$key} = $value;
    }
  }