File Coverage

blib/lib/Plack/App/Login.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	8	8	100.0
condition			n/a
subroutine	8	8	100.0
pod			n/a
total	49	49	100.0

package Plack::App::Login;

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

use Plack::Util::Accessor qw(generator login_link login_title title);
use Tags::HTML::Login::Button;

our $VERSION = 0.08;

sub _css {
	my $self = shift;

	$self->{'_login_button'}->process_css;

	return;
}

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('Login page');
	}

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

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

	if (! $self->login_title) {
		$self->login_title('LOGIN');
	}

	# Tags helper for login button.
	$self->{'_login_button'} = Tags::HTML::Login::Button->new(
		'css' => $self->{'css'},
		'link' => $self->login_link,
		'tags' => $self->{'tags'},
		'title' => $self->login_title,
	);

	return;
}

sub _tags_middle {
	my $self = shift;

	$self->{'_login_button'}->process;

	return;
}

1;

__END__