NAME

Data::Text::Simple - Data object for text in language.

SYNOPSIS

use Data::Text::Simple;

my $obj = Data::Text::Simple->new(%params);
my $id = $obj->id;
my $lang = $obj->lang;
my $text = $obj->text;

METHODS

new

my $obj = Data::Text::Simple->new(%params);

Constructor.

• id

  Id of record. Id could be number.

  It's optional.

  Default value is undef.

• lang

  Language ISO 639-1 code.

  It's optional.

• text

  Main text.

  It's required.

Returns instance of object.

id

my $id = $obj->id;

Get id.

Returns number.

lang

my $lang = $obj->lang;

Get language ISO 639-1 code.

Returns string.

text

my $text = $obj->text;

Get text.

Returns string.

ERRORS

new():
        From Mo::utils:
                Parameter 'id' must be a number.
                        Value: %s
                Parameter 'text' is required.
        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::Text::Simple;

my $obj = Data::Text::Simple->new(
        'id' => 7,
        'lang' => 'en',
        'text' => 'This is a text.',
);

# Print out.
print 'Id: '.$obj->id."\n";
print 'Language: '.$obj->lang."\n";
print 'Text: '.$obj->text."\n";

# Output:
# Id: 7
# Language: en
# Text: This is a text.

DEPENDENCIES

Mo, Mo::utils, Mo::utils::Language.

REPOSITORY

https://github.com/michal-josef-spacek/Data-Text-Simple

AUTHOR

Michal Josef Špaček mailto:skim@cpan.org

http://skim.cz

LICENSE AND COPYRIGHT

© 2023-2024 Michal Josef Špaček

BSD 2-Clause License

VERSION

0.02

cpanm Data::Text::Simple

perl -MCPAN -e shell
install Data::Text::Simple