2 use warnings FATAL => 'all';
4 use App::IdiotBox::Store::SQLite;
9 my $ib = App::IdiotBox->new;
11 App::IdiotBox::Store::SQLite->bind($ib);
13 Dwarn [ $ib->{recent_announcements}->flatten ];
14 my $bucket = DwarnS $ib->{buckets}->get({ slug => 'opw2010'});
16 #Dwarn [ $bucket->{videos}->flatten ];
18 Dwarn $bucket->{videos}->get({ slug => 'troll-god-mountain' });