1 files changed, 16 insertions, 0 deletions
diff --git a/lib/Config/ClawsMail/PasswordStoreParser.pm b/lib/Config/ClawsMail/PasswordStoreParser.pm
new file mode 100644
index 0000000..227baa6
--- /dev/null
+++ b/lib/Config/ClawsMail/PasswordStoreParser.pm
@@ -0,0 +1,16 @@
+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;