blob: 32ce271230930367aaee56c6a338c8f44e38c02c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
package Config::ClawsMail::PasswordStoreParser; use v5.26; use strict; use warnings;
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;
|