package App::IdiotBox;
+use App::IdiotBox::Common qw(@SupportedFormats);
use Web::Simple __PACKAGE__;
use FindBin;
use HTML::Zoom;
-e join('/', $self->config->{base_dir}, $_)
} map {
join('/', $video->bucket->slug, $video->slug, $video->file_name.".$_")
- } qw(flv m4v);
+ } @SupportedFormats;
$self->html_response(video => sub {
my $video_url =
$self->base_url