package Config::ClawsMail::PasswordStoreParser; use parent 'Config::INI::Reader'; sub parse_section_header { my ($head) = $_[1] =~ /^\s*\[\s*(.+?)\s*\]\s*$/ or return; $head =~ s{account:}{Account: }; return $head; } sub parse_value_assignment { return ($1, $2) if $_[1] =~ /^\s*([^\s\pC]+?)\s+(.*?)\s*$/; return; } 1;