blob: fe76b1e6d78d03128af89204368a6f1f97e0779a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
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;
|