File Coverage

blib/lib/Plack/App/Search.pm

Criterion	Covered	Total	%
statement	37	38	97.3
branch	20	24	83.3
condition			n/a
subroutine	9	9	100.0
pod			n/a
total	66	71	92.9

package Plack::App::Search;

use base qw(Plack::Component::Tags::HTML);
use strict;
use warnings;

use Plack::Util::Accessor qw(generator image_height image_link image_radius
	search_method search_placeholder search_title search_url tags_after
	title);
use Tags::HTML::Container;

our $VERSION = 0.05;

sub _prepare_app {
	my $self = shift;

	# Defaults which rewrite defaults in module which I am inheriting.
	if (! $self->generator) {
		$self->generator(__PACKAGE__.'; Version: '.$VERSION);
	}

	if (! $self->title) {
		$self->title('Search page');
	}

	# Inherite defaults.
	$self->SUPER::_prepare_app;

	# Defaults from this module.
	if (! $self->search_method) {
		$self->search_method('get');
	}

	if (! $self->search_url) {
		$self->search_url('https://env.skim.cz');
	}

	$self->{'_container'} = Tags::HTML::Container->new(
		'css' => $self->css,
		'css_inner' => 'search',
		'tags' => $self->tags,
	);

	return;
}

sub _css {
	my $self = shift;

	$self->{'_container'}->process_css;
	if (defined $self->image_link) {
		$self->css->put(
			['s', '.search'],
			['d', 'display', 'flex'],
			['d', 'flex-direction', 'column'],
			['d', 'align-items', 'center'],
			['e'],

			['s', '.search img'],
			['d', 'margin-bottom', '20px'],
			['d', 'margin-left', 'auto'],
			['d', 'margin-right', 'auto'],
			defined $self->image_radius ? (
				['d', 'border-radius', $self->image_radius],
			) : (),
			defined $self->image_height ? (
				['d', 'height', $self->image_height],
			) : (),
			['e'],
		);
	}
	$self->css->put(
		['s', '.search form'],
		['d', 'display', 'flex'],
		['d', 'align-items', 'center'],
		['e'],

		['s', '.search input[type="text"]'],
		['d', 'padding', '10px'],
		['d', 'border-radius', '4px'],
		['d', 'border', '1px solid #ccc'],
		['e'],

		['s', '.search button'],
		['d', 'margin-left', '10px'],
		['d', 'padding', '10px 20px'],
		['d', 'border-radius', '4px'],
		['d', 'background-color', '#4CAF50'],
		['d', 'color', 'white'],
		['d', 'border', 'none'],
		['d', 'cursor', 'pointer'],
		! defined $self->search_title ? (
			['d', 'display', 'none'],
		) : (),
		['e'],

		['s', '.search button:hover'],
		['d', 'background-color', '#45a049'],
		['e'],
	);

	return;
}

sub _tags_middle {
	my $self = shift;

	$self->{'_container'}->process(
		sub {
			$self->tags->put(
				$self->image_link ? (
					['b', 'img'],
					['a', 'src', $self->image_link],
					['e', 'img'],
				) : (),
				['b', 'form'],
				['a', 'method', $self->search_method],
				['a', 'action', $self->search_url],
				['b', 'input'],
				['a', 'type', 'text'],
				['a', 'autofocus', 'autofocus'],
				defined $self->search_placeholder ? (
					['a', 'placeholder', $self->search_placeholder],
				) : (),
				['a', 'name', 'search'],
				['e', 'input'],
				['b', 'button'],
				['a', 'type', 'submit'],
				defined $self->search_title ? (
					['d', $self->search_title],
				) : (),
				['e', 'button'],
				['e', 'form'],

				defined $self->tags_after ? (
					@{$self->tags_after},
				) : (),
			);
		},
	);

	return;
}

1;

__END__