The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

Test::Shared::Fixture::Data::InfoBox::Street - Street info box fixture.

SYNOPSIS

 use Test::Shared::Fixture::Data::InfoBox::Street;

 my $obj = Test::Shared::Fixture::Data::InfoBox::Street->new;
 my $items_ar = $obj->items;

METHODS

new

 my $obj = Test::Shared::Fixture::Data::InfoBox::Street->new;

Constructor.

Returns instance of object.

items

 my $items_ar = $obj->items;

Get list of items in info box.

Returns reference to array with Data::InfoBox::Item objects.

EXAMPLE

 use strict;
 use warnings;

 use Test::Shared::Fixture::Data::InfoBox::Street;
 use Unicode::UTF8 qw(encode_utf8);

 my $obj = Test::Shared::Fixture::Data::InfoBox::Street->new;

 # Print out.
 my $num = 0;
 foreach my $item (@{$obj->items}) {
         $num++;
         print "Item $num: ".encode_utf8($item->text->text)."\n";
 }

 # Output:
 # Item 1: Nábřeží Rudoarmějců
 # Item 2: Příbor
 # Item 3: Česká republika

DEPENDENCIES

Data::InfoBox, Data::InfoBox::Item, Data::Text::Simple, Unicode::UTF8.

REPOSITORY

https://github.com/michal-josef-spacek/Data-InfoBox

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