NAME
Tags::HTML::GradientIndicator - Tags helper for gradient evaluation.
SYNOPSIS
use Tags::HTML::GradientIndicator;
my $obj = Tags::HTML::GradientIndicator->new(%params);
$obj->process($stars_hr);
$obj->process_css;
METHODS
new
my $obj = Tags::HTML::GradientIndicator->new(%params);
Constructor.
css
'CSS::Struct::Output' object for process_css processing.
It's required.
Default value is undef.
css_background_image
CSS parameter for background-image of gradient.
Default value is 'linear-gradient(to right, red, orange, yellow, green, blue, indigo, violet)'.
css_gradient_class
CSS class name for gradient.
Default value is 'gradient'.
height
Indicator height.
Default value is 30.
width
Indicator width.
Default value is 500.
tags
'Tags::Output' object.
Default value is undef.
process
$obj->process($percent_value);
Process Tags structure for gradient.
Returns undef.
process_css
$obj->process_css;
Process CSS::Struct structure for output.
Returns undef.
ERRORS
new():
From Class::Utils::set_params():
Unknown parameter '%s'.
From Mo::utils::CSS::check_css_unit():
Parameter 'height' doesn't contain unit number.
Value: %s
Parameter 'height' doesn't contain unit name.
Value: %s
Parameter 'height' contain bad unit.
Unit: %s
Value: %s
Parameter 'width' doesn't contain unit number.
Value: %s
Parameter 'width' doesn't contain unit name.
Value: %s
Parameter 'width' contain bad unit.
Unit: %s
Value: %s
From Tags::HTML::new():
Parameter 'css' must be a 'CSS::Struct::Output::*' class.
Parameter 'tags' must be a 'Tags::Output::*' class.
EXAMPLE1
use strict;
use warnings;
use CSS::Struct::Output::Indent;
use Tags::HTML::GradientIndicator;
use Tags::Output::Indent;
# Object.
my $css = CSS::Struct::Output::Indent->new;
my $tags = Tags::Output::Indent->new;
my $obj = Tags::HTML::GradientIndicator->new(
'css' => $css,
'tags' => $tags,
);
# Process indicator.
$obj->process_css;
$obj->process(50);
# Print out.
print "CSS\n";
print $css->flush."\n";
print "HTML\n";
print $tags->flush."\n";
# Output:
# CSS
# .gradient {
# height: 30px;
# width: 500px;
# background-color: red;
# background-image: linear-gradient(to right, red, orange, yellow, green, blue, indigo, violet);
# }
# HTML
# <div style="width: 250px;overflow: hidden;">
# <div class="gradient">
# </div>
# </div>
EXAMPLE2
use strict;
use warnings;
use CSS::Struct::Output::Indent;
use Tags::HTML::GradientIndicator;
use Tags::Output::Indent;
if (@ARGV < 1) {
print STDERR "Usage: $0 percent\n";
exit 1;
}
my $percent = $ARGV[0];
# Object.
my $css = CSS::Struct::Output::Indent->new;
my $tags = Tags::Output::Indent->new;
my $obj = Tags::HTML::GradientIndicator->new(
'css' => $css,
'tags' => $tags,
);
# Process indicator.
$obj->process_css;
$obj->process($percent);
# Print out.
print "CSS\n";
print $css->flush."\n";
print "HTML\n";
print $tags->flush."\n";
# Output for 30:
# CSS
# .gradient {
# height: 30px;
# width: 500px;
# background-color: red;
# background-image: linear-gradient(to right, red, orange, yellow, green, blue, indigo, violet);
# }
# HTML
# <div style="width: 150px;overflow: hidden;">
# <div class="gradient">
# </div>
# </div>
DEPENDENCIES
Class::Utils, Error::Pure, Mo::utils::CSS, Tags::HTML.
SEE ALSO
- Tags::HTML::Stars
-
Tags helper for stars evaluation.
REPOSITORY
https://github.com/michal-josef-spacek/Tags-HTML-GradientIndicator
AUTHOR
Michal Josef Špaček mailto:skim@cpan.org
LICENSE AND COPYRIGHT
© Michal Josef Špaček 2021-2024
BSD 2-Clause License
VERSION
0.06