package App::IdiotBox;
use Web::Simple __PACKAGE__;
-use Method::Signatures::Simple;
use FindBin;
use HTML::Zoom;
use HTML::Zoom::FilterBuilder::Template;
}
};
-method recent_announcements { $self->{recent_announcements} }
+sub recent_announcements { shift->{recent_announcements} }
-method buckets { $self->{buckets} }
+sub buckets { shift->{buckets} }
-method show_front_page {
+sub show_front_page {
+ my $self = shift;
my $ann = $self->recent_announcements;
$self->html_response(
front_page => sub {
);
}
-method show_bucket ($bucket) {
+sub show_bucket {
+ my ($self, $bucket) = @_;
$self->html_response(bucket => sub {
$_->select('.bucket-name')->replace_content($bucket->name)
->select('#video-list')->repeat_content($bucket->videos->map(sub {
});
}
-method show_video ($video) {
+sub show_video {
+ my ($self, $video) = @_;
my $video_file = first {
-e join('/', $self->config->{base_dir}, $_)
} map {
});
}
-method html_response ($template_name, $selectors) {
+sub html_response {
+ my ($self, $template_name, $selectors) = @_;
my $io = $self->_zoom_for($template_name => $selectors)->to_fh;
return [ 200, [ 'Content-Type' => 'text/html' ], $io ]
}
-method _template_filename_for ($name) {
+sub _template_filename_for {
+ my ($self, $name) = @_;
$self->{config}{template_dir}.'/'.$name.'.html';
}
-method _layout_zoom {
+sub _layout_zoom {
+ my $self = shift;
$self->{layout_zoom} ||= HTML::Zoom->from_file(
$self->_template_filename_for('layout')
)
}
-method _zoom_for ($template_name, $selectors) {
+sub _zoom_for {
+ my ($self, $template_name, $selectors) = @_;
($self->{zoom_for_template}{$template_name} ||= do {
my @body;
HTML::Zoom->from_file(
})->apply($selectors);
}
-method base_url {
+sub base_url {
+ my $self = shift;
$self->{base_url} ||= do {
(my $u = $self->config->{base_url}) =~ s/\/$//;
"${u}/";
}
}
-method _run_cli {
+sub _run_cli {
+ my $self = shift;
unless (@ARGV == 1 && $ARGV[0] eq 'import') {
return $self->SUPER::_run_cli(@_);
}
$self->cli_import;
}
-method _cli_usage {
+sub _cli_usage {
+ my $self = shift;
"To import data into your idiotbox install, chdir into a directory\n".
"containing video files and run:\n".
"\n".
$self->SUPER::_cli_usage(@_);
}
-method cli_import {
+sub cli_import {
+ my $self = shift;
require App::IdiotBox::Importer;
App::IdiotBox::Importer->run($self);
}