2 use warnings FATAL => 'all';
6 use App::IdiotBox::Store::SQLite;
11 my $ib = App::IdiotBox->new;
13 App::IdiotBox::Store::SQLite->bind($ib);
15 Dwarn [ $ib->{recent_announcements}->flatten ];
16 my $bucket = DwarnS $ib->{buckets}->get({ slug => 'opw2010'});
18 #Dwarn [ $bucket->{videos}->flatten ];
20 Dwarn $bucket->{videos}->get({ slug => 'troll-god-mountain' });
22 ok(1); # This even a test? -- alh