lib/Config/ClawsMail/PasswordStoreParser.pm


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;
# VERSION 
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;