The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

has id => ( is => 'rw', isa => 'Int' ); has lang => ( is => 'rw' , isa => 'Str' ); has msgid => ( is => 'rw' , isa => 'Str' ); has msgstr => ( is => 'rw' , isa => 'Str' );

sub to_hash { my $self = shift; return ( id => $self->id, lang => $self->lang, msgid => $self->msgid, msgstr => $self->msgstr, ); }

sub to_string { my $self = shift; return encode_json( { $self->to_hash } ); }

1 POD Error

The following errors were encountered while parsing the POD:

Around line 193:

=pod directives shouldn't be over one line long! Ignoring all 7 lines of content