view release on metacpan or  search on metacpan

lib/Dotenv.pm  view on Meta::CPAN

            $package->load(@args);
        }
        else {
            Carp::croak "Unknown action $action";
        }
    }
}

my $parse = sub {
    my ( $string, $env ) = @_;
    $string =~ s/\A\x{feff}//;    # drop BOM

    my %kv;
    for my $line ( split /$/m, $string ) {
        chomp($line);
        next if $line =~ /\A\s*(?:[#:]|\z)/;    # skip blanks and comments
        if (
            my ( $k, $v ) =
            $line =~ m{
            \A                       # beginning of line
            \s*                      # leading whitespace

t/env/bom.env  view on Meta::CPAN

BOM=UTF-8

t/env/bom.pl  view on Meta::CPAN

BOM => 'UTF-8'