Blank lines cause parsing to end prematurely

[xtaran]

This code snippet (reduced from my actual code) does not work as expected:

use ConfigReader::Simple;
my $default_config = <<'EOT';

# How often to poll in seconds
poll-interval = 3

EOT

$ConfigReader::Simple::Die = 1;
my $config = ConfigReader::Simple->new_string(
    Strings => [ \$default_config ],
    Keys  => [qw(poll-interval)],
    );

It bails out as follows:

Config: required keys [poll-interval] do not occur in config at … line ….

Reason seems to be this part of parse_string(), line 399 to 403:

        my @lines = split /\r?\n/, $$string;
        chomp( @lines );
#       carp "A: Found " . @lines . " lines" if $DEBUG;

        while( my $line = shift @lines ) {

If a line contains just \n or \r\n (which is chomped at line 400), $line just contains the empty string which is interpreted as false in boolean context. Hence, in the example above, parsing ends at the very first (empty) line, completely ignoring the remainder of the string.

But according to the POD, this should be possible:

If a line is only whitespace, or the first whitespace character is a #, the Perl comment character, "ConfigReader::Simple" ignores the line unless it is the continuation of the previous line.

(Besides, the "the first whitespace character is a #" should probably read "the first non-whitespace character is a #". Can open a separate issue or pull request for that if preferred.)

It seems as if using defined() around the assignment in line 403 fixes this:

        while( defined( my $line = shift @lines )) {

At least that fixed my case.