File Coverage

blib/lib/Test/Shared/Fixture/Data/InfoBox/Street.pm
Criterion Covered Total %
statement 22 22 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 1 1 100.0
total 30 30 100.0


line stmt bran cond sub pod time code
1             package Test::Shared::Fixture::Data::InfoBox::Street;
2              
3 4     4   643262 use base qw(Data::InfoBox);
  4         11  
  4         2315  
4 4     4   36 use strict;
  4         8  
  4         159  
5 4     4   37 use warnings;
  4         14  
  4         205  
6              
7 4     4   2511 use Data::InfoBox::Item;
  4         18  
  4         210  
8 4     4   2171 use Data::Text::Simple;
  4         1204601  
  4         199  
9 4     4   2039 use Unicode::UTF8 qw(decode_utf8);
  4         5030  
  4         911  
10              
11             our $VERSION = 0.07;
12              
13             sub new {
14 2     2 1 398697 my $class = shift;
15              
16 2         39 my @params = (
17             'items' => [
18             Data::InfoBox::Item->new(
19             'text' => Data::Text::Simple->new(
20             'lang' => 'cs',
21             'text' => decode_utf8('Nábřeží Rudoarmějců'),
22             ),
23             ),
24             Data::InfoBox::Item->new(
25             'text' => Data::Text::Simple->new(
26             'lang' => 'cs',
27             'text' => decode_utf8('Příbor'),
28             ),
29             ),
30             Data::InfoBox::Item->new(
31             'text' => Data::Text::Simple->new(
32             'lang' => 'cs',
33             'text' => decode_utf8('Česká republika'),
34             ),
35             ),
36             ],
37             );
38              
39 2         37 my $self = $class->SUPER::new(@params);
40              
41 2         16 return $self;
42             }
43              
44             1;
45              
46             __END__
47              
48             =pod
49              
50             =encoding utf8
51              
52             =head1 NAME
53              
54             Test::Shared::Fixture::Data::InfoBox::Street - Street info box fixture.
55              
56             =head1 SYNOPSIS
57              
58             use Test::Shared::Fixture::Data::InfoBox::Street;
59              
60             my $obj = Test::Shared::Fixture::Data::InfoBox::Street->new;
61             my $items_ar = $obj->items;
62              
63             =head1 METHODS
64              
65             =head2 C<new>
66              
67             my $obj = Test::Shared::Fixture::Data::InfoBox::Street->new;
68              
69             Constructor.
70              
71             Returns instance of object.
72              
73             =head2 C<items>
74              
75             my $items_ar = $obj->items;
76              
77             Get list of items in info box.
78              
79             Returns reference to array with L<Data::InfoBox::Item> objects.
80              
81             =head1 EXAMPLE
82              
83             =for comment filename=create_street_fixture_object_and_print.pl
84              
85             use strict;
86             use warnings;
87              
88             use Test::Shared::Fixture::Data::InfoBox::Street;
89             use Unicode::UTF8 qw(encode_utf8);
90              
91             my $obj = Test::Shared::Fixture::Data::InfoBox::Street->new;
92              
93             # Print out.
94             my $num = 0;
95             foreach my $item (@{$obj->items}) {
96             $num++;
97             print "Item $num: ".encode_utf8($item->text->text)."\n";
98             }
99              
100             # Output:
101             # Item 1: Nábřeží Rudoarmějců
102             # Item 2: Příbor
103             # Item 3: Česká republika
104              
105             =head1 DEPENDENCIES
106              
107             L<Data::InfoBox>,
108             L<Data::InfoBox::Item>,
109             L<Data::Text::Simple>,
110             L<Unicode::UTF8>.
111              
112             =head1 REPOSITORY
113              
114             L<https://github.com/michal-josef-spacek/Data-InfoBox>
115              
116             =head1 AUTHOR
117              
118             Michal Josef Špaček L<mailto:skim@cpan.org>
119              
120             L<http://skim.cz>
121              
122             =head1 LICENSE AND COPYRIGHT
123              
124             © 2024-2025 Michal Josef Špaček
125              
126             BSD 2-Clause License
127              
128             =head1 VERSION
129              
130             0.07
131              
132             =cut