3 use warnings FATAL => 'all';
7 use Data::Perl::Collection::Set;
9 BEGIN { $INC{"App/IdiotBox/Store/Test.pm"} = __FILE__ }
11 sub App::IdiotBox::Store::Test::bind {}
13 my $idiotbox = App::IdiotBox->new({
20 my ($lpw, $opw) = map bless($_, 'App::IdiotBox::Bucket'),
22 name => 'London Perl Workshop 2009',
25 name => 'Perl Oasis 2010',
27 my @ann = map bless($_, 'App::IdiotBox::Announcement'),
29 made_at => '2010-01-21 01:00:00',
33 made_at => '2010-01-01 14:00:00',
36 Data::Perl::Collection::Set->new(members => [ @ann ]);
39 $idiotbox->{recent_announcements} = $ann;
45 my $front = $idiotbox->show_front_page;
49 my $fh = $front->[-1];
50 while (defined (my $chunk = $fh->getline)) {
64 #HTML::Zoom->from_string($html)
66 # '.announcement' => [