The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

 / 
Data-Message-Board-0.01
River stage one • 1 direct dependent • 1 total dependent
/ Test::Shared::Fixture::Data::Message::Board::Example

NAME

Test::Shared::Fixture::Data::Message::Board::Example - Data fixture via Data::Message::Board.

SYNOPSIS


            

              
              
use Test::Shared::Fixture::Data::Message::Board::Example;
my $obj = Test::Shared::Fixture::Data::Message::Board::Example->new(%params);
my $author = $obj->author;
my $comments_ar = $obj->comments;
my $date = $obj->date;
my $id = $obj->id;
my $message = $obj->message;

METHODS

new


            

              
              
my $obj = Test::Shared::Fixture::Data::Message::Board::Example->new(%params);

Constructor.

Returns instance of object.

author


            

              
              
my $author = $obj->author;

Get author instance.

Returns Data::Person instance.

comments


            

              
              
my $comments_ar = $obj->comments;

Get message board comments.

Returns reference to array with Data::Message::Board::Comment instances.

date


            

              
              
my $date = $obj->date;

Get datetime of comment.

Returns DateTime instance.

id


            

              
              
my $id = $obj->id;

Get comment id.

Returns natural number.


            

              
              
my $message = $obj->message;

Get comment message.

Returns string.

EXAMPLE


            

              
              
use strict;
use warnings;
use Test::Shared::Fixture::Data::Message::Board::Example;
my $obj = Test::Shared::Fixture::Data::Message::Board::Example->new;
# Print out.
print 'Author name: '.$obj->author->name."\n";
print 'Date: '.$obj->date."\n";
print 'Id: '.$obj->id."\n";
print 'Message: '.$obj->message."\n";
print "Comments:\n";
map {
        print "\tAuthor name: ".$_->author->name."\n";
        print "\tDate: ".$_->date."\n";
        print "\tId: ".$_->id."\n";
        print "\tComment: ".$_->message."\n\n";
} @{$obj->comments};
# Output:
# Author name: John Wick
# Date: 2024-05-25T17:53:20
# Id: 7
# Message: How to install Perl?
# Comments:
#         Author name: Gregor Herrmann
#         Date: 2024-05-25T17:53:27
#         Id: 1
#         Comment: apt-get update; apt-get install perl;
# 
#         Author name: Emmanuel Seyman
#         Date: 2024-05-25T17:53:37
#         Id: 2
#         Comment: dnf update; dnf install perl-intepreter;
#

DEPENDENCIES

Data::Message::Board, Data::Message::Board::Comment, Data::Person, DateTime.

REPOSITORY

https://github.com/michal-josef-spacek/Data-Message-Board

AUTHOR

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

http://skim.cz

LICENSE AND COPYRIGHT

© 2024 Michal Josef Špaček

BSD 2-Clause License

VERSION

0.01