MetaInit::Parse.pm

   1 package MetaInit::Parse
   2
   3 sub parse {
   4     my $fh = shift;
   5
   6     my %parsed;
   7     my $lastkey;
   8     while (<$fh>) {
   9         #last if /^$/;
  10         if (my ($key, $value) = m/^([^ ].*): (.*)/) {
  11             $parsed{$key} = $value;
  12             $lastkey = $key;
  13         }
  14         elsif ($lastkey) {
  15             s/^ //;
  16             s/^\.$//;
  17             $parsed{$lastkey} .= $_;
  18         } else {
  19             die "Cannot parse $!";
  20         }
  21     }
  22     return %parsed;
  23 }
  24