lib/Config/ClawsMail/PasswordStoreParser.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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;