File Coverage

blib/lib/Tags/HTML/GradientIndicator.pm

Criterion	Covered	Total	%
statement	39	39	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod	1	1	100.0
total	49	49	100.0

package Tags::HTML::GradientIndicator;

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

use Class::Utils qw(set_params split_params);
use Error::Pure qw(err);
use Mo::utils::CSS 0.07 qw(check_css_unit);

our $VERSION = 0.06;

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

	# Create object.
	my ($object_params_ar, $other_params_ar) = split_params(
		['css_background_image', 'css_gradient_class', 'height', 'width'], @params);
	my $self = $class->SUPER::new(@{$other_params_ar});

	# Default gradient is left-right direction from red to violet.
	$self->{'css_background_image'} = 'linear-gradient(to right, red, orange, yellow, green, blue, indigo, violet)';

	# Gradient CSS class.
	$self->{'css_gradient_class'} = 'gradient';

	# Height.
	$self->{'height'} = '30px';

	# Width.
	$self->{'width'} = '500px';

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

	# Check height;
	check_css_unit($self, 'height');

	# Check width.
	check_css_unit($self, 'width');

	# Object.
	return $self;
}

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

	# Value.
	my ($width_value, $unit) = $self->{'width'} =~ m/^(\d+)(.*?)$/ms;
	my $value = $percent_value * ($width_value / 100);

	# Main stars.
	$self->{'tags'}->put(
		['b', 'div'],
		['a', 'style', 'width: '.$value.$unit.';overflow: hidden;'],

		['b', 'div'],
		['a', 'class', $self->{'css_gradient_class'}],
		['e', 'div'],

		['e', 'div'],
	);

	return;
}

# Process 'CSS::Struct'.
sub _process_css {
	my $self = shift;

	$self->{'css'}->put(
		['s', '.'.$self->{'css_gradient_class'}],
		['d', 'height', $self->{'height'}],
		['d', 'width', $self->{'width'}],
		['d', 'background-color', 'red'],
		['d', 'background-image', $self->{'css_background_image'}],
		['e'],
	);

	return;
}

1;

__END__