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