File Coverage

blib/lib/Tags/HTML.pm

Criterion	Covered	Total	%
statement	62	80	77.5
branch	10	16	62.5
condition	15	15	100.0
subroutine	16	20	80.0
pod	9	9	100.0
total	112	140	80.0

package Tags::HTML;

use strict;
use warnings;

use Class::Utils qw(set_params);
use Error::Pure qw(err);
use Scalar::Util qw(blessed);

our $VERSION = 0.10;

# Constructor.
sub new {
	my ($class, @params) = @_;

	# Create object.
	my $self = bless {}, $class;

	# 'CSS::Struct::Output' object.
	$self->{'css'} = undef;

	# No CSS support.
	$self->{'no_css'} = 0;

	# 'Tags::Output' object.
	$self->{'tags'} = undef;

	# Process params.
	set_params($self, @params);

	# Check to 'CSS::Struct::Output' object.
	if (! $self->{'no_css'} && defined $self->{'css'}
		&& (! blessed($self->{'css'}) || ! $self->{'css'}->isa('CSS::Struct::Output'))) {

		err "Parameter 'css' must be a 'CSS::Struct::Output::*' class.";
	}

	# Check to 'Tags' object.
	if (defined $self->{'tags'}
		&& (! blessed($self->{'tags'}) || ! $self->{'tags'}->isa('Tags::Output'))) {

		err "Parameter 'tags' must be a 'Tags::Output::*' class.";
	}

	$self->{'css_src'} = [];
	$self->{'script_js'} = [];
	$self->{'script_js_src'} = [];

	# Object.
	return $self;
}

# Cleanup after dynamic part.
sub cleanup {
	my ($self, @params) = @_;

	$self->_cleanup(@params);

	$self->{'css_src'} = [];
	$self->{'script_js'} = [];
	$self->{'script_js_src'} = [];

	return;
}

# CSS link handling.
sub css_src {
	my ($self, $css_link_ar) = @_;

	if (defined $css_link_ar) {
		$self->{'css_src'} = $css_link_ar;
	}

	return $self->{'css_src'};
}

# Initialize in dynamic part.
sub init {
	my ($self, @params) = @_;

	$self->_init(@params);

	return;
}

# Initialize in preparation phase.
sub prepare {
	my ($self, @params) = @_;

	$self->_prepare(@params);

	return;
}

# Process 'Tags'.
sub process {
	my ($self, @params) = @_;

	if (! defined $self->{'tags'}) {
		err "Parameter 'tags' isn't defined.";
	}

	$self->_process(@params);

	return;
}

# Process 'CSS::Struct'.
sub process_css {
	my ($self, @params) = @_;

	# No CSS support.
	if ($self->{'no_css'}) {
		return;
	}

	if (! defined $self->{'css'}) {
		err "Parameter 'css' isn't defined.";
	}

	$self->_process_css(@params);

	return;
}

# Javascript handling.
sub script_js {
	my ($self, $js_code_ar) = @_;

	if (defined $js_code_ar) {
		$self->{'script_js'} = $js_code_ar;
	}

	return $self->{'script_js'};
}

# Javascript script handling.
sub script_js_src {
	my ($self, $js_link_ar) = @_;

	if (defined $js_link_ar) {
		$self->{'script_js_src'} = $js_link_ar;
	}

	return $self->{'script_js_src'};
}

sub _cleanup {
	my ($self, @params) = @_;

	# Default is no special code.

	return;
}

sub _init {
	my ($self, @params) = @_;

	# Default is no special code.

	return;
}

sub _prepare {
	my ($self, @params) = @_;

	# Default is no special code.

	return;
}

sub _process {
	my ($self, @params) = @_;

	err "Need to be implemented in inherited class in _process() method.";

	return;
}

sub _process_css {
	my ($self, @params) = @_;

	err "Need to be implemented in inherited class in _process_css() method.";

	return;
}

sub _process_js {
	my ($self, @params) = @_;

	err "Need to be implemented in inherited class in _process_js() method.";

	return;
}

1;

__END__