NAME
Data::Message::Simple - Data object for simple message.
SYNOPSIS
use Data::Message::Simple;
my $obj = Data::Message::Simple->new(%params);
my $lang = $obj->lang;
my $text = $obj->text;
my $type = $obj->type;
METHODS
new
my $obj = Data::Message::Simple->new(%params);
Constructor.
lang
Message language. It's optional. If defined, possible values are ISO 639-1 language codes.
Default value is undef.
text
Message text. Maximum length of text is 4096 characters. It's required.
type
Message type. Possible value are 'error' and 'info'. It's required. Default value is 'info'.
Returns instance of object.
lang
my $lane = $obj->lang;
Get ISO 639-1 language code of text.
Returns string.
text
my $text = $obj->text;
Get message text.
Returns string.
type
my $type = $obj->type;
Get message type.
Returns string.
ERRORS
new():
From Mo::utils:
Parameter 'text' has length greater than '4096'.
Value: %s
Parameter 'text' is required.
Value: %s
Parameter 'type' must be one of defined strings.
String: %s
Possible strings: %s
From Mo::utils::Language:
Parameter 'lang' doesn't contain valid ISO 639-1 code.
Codeset: %s
Value: %s
EXAMPLE
use strict;
use warnings;
use Data::Message::Simple;
my $obj = Data::Message::Simple->new(
'lang' => 'en',
'text' => 'This is text message.',
);
# Print out.
print 'Message type: '.$obj->type."\n";
print 'ISO 639-1 language code: '.$obj->lang."\n";
print 'Text: '.$obj->text."\n";
# Output:
# Message type: info
# ISO 639-1 language code: en
# Text: This is text message.
DEPENDENCIES
Mo, Mo::utils, Mo::utils::Language, Readonly.
REPOSITORY
https://github.com/michal-josef-spacek/Data-Message-Simple
AUTHOR
Michal Josef Špaček mailto:skim@cpan.org
LICENSE AND COPYRIGHT
© 2023-2024 Michal Josef Špaček
BSD 2-Clause License
VERSION
0.04