t/ui_widget_listview.show

   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->();