File Coverage

blib/lib/Plack/App/Login/Password.pm

Criterion	Covered	Total	%
statement	36	36	100.0
branch	4	4	100.0
condition			n/a
subroutine	10	10	100.0
pod			n/a
total	50	50	100.0

package Plack::App::Login::Password;

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

use Plack::Util::Accessor qw(generator register_link title);
use Tags::HTML::Container;
use Tags::HTML::Login::Access;

our $VERSION = 0.01;

sub _css {
	my $self = shift;

	$self->{'_container'}->process_css;
	$self->{'_login_access'}->process_css;

	return;
}

sub _prepare_app {
	my $self = shift;

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

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

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

	# Defaults from this module.
	my %p = (
		'css' => $self->css,
		'tags' => $self->tags,
	);

	# Tags helper for login button.
	$self->{'_login_access'} = Tags::HTML::Login::Access->new(
		%p,
		'register_url' => $self->register_link,
	);

	$self->{'_container'} = Tags::HTML::Container->new(
		%p,
	);

	return;
}

sub _tags_middle {
	my $self = shift;

	$self->{'_container'}->process(
		sub {
			$self->{'_login_access'}->process;
		},
	);

	return;
}

1;

__END__