view release on metacpan or  search on metacpan

lib/Convert/yEnc/RC.pm  view on Meta::CPAN

35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
        my($name, $rest) = split "\t", $line, 2;
        my $entry = load Convert::yEnc::Entry $rest;
        $rc->{db}{$name} = $entry;
    }
 
    close(RC);
 
    1
}
 
sub update
{
    my($rc, $line) = @_;
 
    my($tag, @fields) = split ' ', $line;
 
    my %field;
    for my $field (@fields)
    {
        my($key, $val) = split /=/, $field;
        $field{$key} = $val;