Yes, sorry, it's a subclass for my own messages format:

package Locale::Maketext::Lexicon::Messages;

use strict;

use Encode qw( decode);

require Locale::Maketext::Lexicon;


sub parse {
    my( $class, @content) = @_;
    my $res = {};

    my $decode = Locale::Maketext::Lexicon::option( 'decode');

    foreach ( @content) {
        /^\s*$/o and next;
        /^\s*#/o and next;
        $res->{ $1} = $2
            if (/^\s*([^\s:]*)\s*:\s*(.*)$/o);
    }
    return $res;
}

1;
[download]

And the file.msg format is like this:

message_code1:              Message Text 1
message_code2:              Message Text 2
[download]