File Coverage

blib/lib/Plack/App/Restricted.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	2	2	100.0
condition			n/a
subroutine	9	9	100.0
pod			n/a
total	43	43	100.0

package Plack::App::Restricted;

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

use Plack::Util::Accessor qw(label);
use Tags::HTML::Container;

our $VERSION = 0.01;

sub _css {
	my ($self, $env) = @_;

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

	$self->{'css'}->put(
		['s', '.restricted'],
		['d', 'color', 'red'],
		['d', 'font-family', 'sans-serif'],
		['d', 'font-size', '3em'],
		['e'],
	);

	return;
}

sub _prepare_app {
	my $self = shift;

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

	if (! defined $self->label) {
		$self->label('Restricted access');
	}

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

	return;
}

sub _tags_middle {
	my ($self, $env) = @_;

	my $label = $self->label;
	$self->{'_tags_html_container'}->process(
		sub {
			my $self = shift;

			$self->{'tags'}->put(
				['b', 'div'],
				['a', 'class', 'restricted'],
				['d', $label],
				['e', 'div'],
			);

			return;
		},
	);

	return;
}


1;

__END__