package Config::ClawsMail::PasswordStoreParser; use v5.26; use strict; use warnings; # VERSION use parent 'Config::INI::Reader'; # ABSTRACT: Config::INI::Reader tweaked for passwordstorerc 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;