Commit | Line | Data |
7adfd53f |
1 | use strict; |
2 | use warnings; |
3 | use Reaction::UI::Widget::ListView; |
4 | use Data::Dump::Streamer qw(Dump); |
5 | |
6 | my ($name, $data); |
7 | |
8 | sub FakeRCTX::render { |
9 | shift; |
10 | ($name, $data) = @_; |
11 | } |
12 | |
13 | sub FakeVP::field_names { [ qw(foo bar baz) ] } |
14 | |
15 | sub FakeVP::field_label_map { ({ foo => 'Foo', bar => 'Bar', baz => 'Baz' }); } |
16 | |
17 | my $w = bless({ viewport => 'VIEWPORT' }, 'Reaction::UI::Widget::ListView'); |
18 | |
19 | my $rctx = bless({}, 'FakeRCTX'); |
20 | |
21 | $w->render_header($rctx, { self => $w, viewport => bless({}, 'FakeVP') }); |
22 | |
23 | print "Name: ${name}\n"; |
24 | print "Data: "; |
25 | print Dump($data); |
26 | |
27 | my $first = $data->{_}->(); |
28 | |
29 | print "First: "; |
30 | print Dump($first); |
31 | |
32 | $first->($rctx); |
33 | |
34 | print "Name: ${name}\n"; |
35 | print "Data: "; |
36 | print Dump($data); |
37 | |
38 | my $inner = $data->{_}->(); |
39 | |
40 | print "Inner: "; |
41 | print Dump($inner); |
42 | |
43 | print $inner->(); |