Result:
found more than 428 distributions - search limited to the first 2001 files matching your query
( run in 0.526 )
Graph-Easy-Manual
view release on metacpan or search on metacpan
doc/manual/syntax.html view on Meta::CPAN
<p>
You can also set an attribute for all parts, or only for specific parts:
</p>
<ul>
<li><code>[ A|B ] { class: |legend; }</code>
will put B into class 'legend' and leave the class of A alone
<li><code>[ A|B ] { class: legend|; }</code>
will put A into class 'legend' and leave the class of B alone
<li><code>[ A|B ] { class: legend; }</code>
will put A <b>and</b> B into class 'legend'
</ul>
<p>
Here are the rules from above in an example showing their effect:
</p>
Graphics-GnuplotIF
view release on metacpan or search on metacpan
lib/Graphics/GnuplotIF.pm view on Meta::CPAN
[4, 6, 12, 27],
[9, 15, 27, 54],
);
$plot3->gnuplot_cmd( "set grid" ); # send a gnuplot command
$plot3->gnuplot_set_plot_titles("surface"); # set legend
$plot3->gnuplot_plot_3d( \@xyz ); # start 3-D-plot
$plot3->gnuplot_pause( ); # hit RETURN to continue
=head1 DESCRIPTION
lib/Graphics/GnuplotIF.pm view on Meta::CPAN
title => '', # string
xlabel => 'x', # string
ylabel => 'y', # string
xrange => [], # array reference; autoscaling, if empty
xrange => [], # array reference; autoscaling, if empty
plot_titles => [], # array of strings; titles used in the legend
scriptfile => '', # write all plot commands to the specified file
plot_also => 0, # write all plot commands to the specified file,
# in addition show the plots
persist => 0, # let plot windows survive after gnuplot exits
# 0 : close / 1 : survive
Graphics-HotMap
view release on metacpan or search on metacpan
lib/Graphics/HotMap.pm view on Meta::CPAN
);
# Define scale
$hotMap->scale(20);
# Show legend
$hotMap->legend(1);
# Show CrossMarks and values
$hotMap->crossMark(1,1);
# Define a new size
lib/Graphics/HotMap.pm view on Meta::CPAN
=for usage
Graphics::HotMap->new(
outfileGif => <File path>, # file to write GIF
outfilePng => <File path>, # file to write PNG
legend => [0|1], # activate lengend
legendNbGrad => <number>, # Number a graduation
cross => <bool>, # activate crossing of known values
crossValues => <bool>, # activate values printing whith cross
minValue => <number>, # minimum value
maxValue => <number>, # maximum value
font => <path to font file>,
lib/Graphics/HotMap.pm view on Meta::CPAN
sub new {
my ($class, %params) = (@_);
my $self={};
$self->{_outfileGif} = $params{outfileGif} || undef;
$self->{_outfilePng} = $params{outfilePng} || undef;
$self->{_legend} = $params{legend} || 0;
$self->{_legendNbGrad} = $params{legendNbGrad} || 7;
$self->{_crossMark} = $params{cross} || 0;
$self->{_crossMarkTemp}= $params{crossTemp} || 0;
#$self->{_minValue} = $params{minValue} || 0;
#$self->{_maxValue} = $params{maxValue} || 70;
$self->{_font} = $params{font} || '/usr/share/fonts/truetype/freefont/FreeSans.ttf';
lib/Graphics/HotMap.pm view on Meta::CPAN
die "toString: Unknown Function. => '$function'",$/;
}
return scalar ($tmpPiddle);
}
=item legend()
=for ref
Set or Return legend status. When enabled, the legend gradient will be drawn on the image.
=cut
sub legend {
my $self = shift;
my ($value) = @_;
if (defined $value) {
$self->{_legend} = 1;
} else {
return $self->{_legend};
}
}
=item crossMark()
lib/Graphics/HotMap.pm view on Meta::CPAN
rotate=>$rotate,
);
}
=for comment
Internal function for generating legend bar on the image
=cut
sub _drawLegendBar {
my $self = shift;
my ($gradientName, $i, $im) = @_;
my $repere = 10;
my $legendBar = Graphics::HotMap->new(
wall => 1,
);
$legendBar->{_gradient} = $self->{_gradient};
$legendBar->mapSize({
sizeX => 10,
sizeY => 500,
});
$legendBar->addLayer({ layerName => '_Legend'.$gradientName, visibility => 1, gradientName => $gradientName });
my $nbGrad = $self->{_gradient}{$gradientName}{nbColors}; #$self->{_legendNbGrad}-1;
my $min = $self->{_gradient}{$gradientName}{minValue};
my $max = $self->{_gradient}{$gradientName}{maxValue};
for (0..$nbGrad) {
my $x = $legendBar->{_mapSize}{x}-1;
my $y = $_/$nbGrad*($legendBar->{_mapSize}{y}-1);
my $valeur = $max-(int(($nbGrad-$_)/$nbGrad*($max-$min)));
my $unit = $legendBar->{_gradient}{$gradientName}{unit};
$legendBar->addPoint({
layerName => '_Legend'.$gradientName,
#x => $_/$nbGrad*($legendBar->{_mapSize}{x}-1),
#y => $legendBar->{_mapSize}{y}-1-$repere*$i,
x => $x,
y => $y,
value => $valeur,
noScale => 1,
unit => $unit,
});
$legendBar->addText ( {
x => $x+15,
y => $y+10,
text => int($valeur).$unit,
size => 10,
align => 'center'
} ) if ($nbGrad < 11 || $_%5 == 0);
}
$legendBar->addZone({
layerName =>'_Legend'.$gradientName,
zoneName => '_Legend'.$gradientName,
coordonates => [
1,
1,
$legendBar->{_mapSize}{x}-1,
$legendBar->{_mapSize}{y}-1,
],
noScale => 1 });
$legendBar->_genDegradZone('_Legend'.$gradientName, $legendBar->{_zones}{'_Legend'.$gradientName}{'_Legend'.$gradientName}, 1);
my $imag = byte $legendBar->{_mapPoints};
my $tmpName = new File::Temp( TEMPLATE => 'generated-XXXXX',
DIR => '/tmp/',
SUFFIX => '.png',
OPEN => 0);
#my $tmpName = tmpnam().'.png';
my $cptLoop = 0;
do {
eval {$imag->wpic($tmpName, { LUT => $legendBar->{_gradient}{colors} }); };
# $imag->wpic($tmpName, { LUT => $legendBar->{_gradient}{colors} });
++$cptLoop;
} while ($@ && $cptLoop < 10);
if ($cptLoop > 2) {
print "ARgh ! Function: _saveImage ; nbErr for wpic:$cptLoop\n";
lib/Graphics/HotMap.pm view on Meta::CPAN
# Flip the image
$im->[$i+1]->Flip;
$im->[$i+1]->Border(fill=>'black', width=>-1, height=>-1);
$im->[$i+1]->Extent(
background => 'white',
geometry => ($legendBar->{_mapSize}{x}+35).'x'.($legendBar->{_mapSize}{y}+15),
gravity => 'West',
);
$legendBar->_genText($im->[$i+1]);
$im->[$i+1]->Extent(
background => 'white',
geometry => ($legendBar->{_mapSize}{x}+35).'x'.$self->{_mapSize}{y},
gravity => 'Center',
);
$im->[$i+1]->Extent(
background => 'white',
geometry => ($legendBar->{_mapSize}{x}+35+20).'x'.$self->{_mapSize}{y},
gravity => 'East',
);
$im->[$i+1]->Annotate(
font=>$self->{_font},
pointsize=>10,
lib/Graphics/HotMap.pm view on Meta::CPAN
);
$self->{_im} = $im->Append(stack=>'false');
}
=for comment
Internal function for generating legend on the image
=cut
sub _genLegende {
my $self = shift;
lib/Graphics/HotMap.pm view on Meta::CPAN
# Draw time on image
$self->_drawTime($im) if $self->{_horodatage}[0];
# Draw texts
$self->_genText($im);
# Gen legend in piddle
$self->_genLegende($im) if $self->{_legend};
}
=for comment
Really compute the interpolation from known points.
Graphics-PLplot
view release on metacpan or search on metacpan
my $colbox = 1;
my $collab = 3;
my @colline = (2,3,4,5); # pens color
my @styline = @colline; # linestyle
# Pen legends
my @legline = (qw/ sum sin sin*noi sin+noi /);
# legend position
my $xlab = 0;
my $ylab = 0.25;
my $autoy = 1; # autoscale y
my $acc = 1; # don't scrip, accumulate
Groonga-HTTP
view release on metacpan or search on metacpan
docs/assets/stylesheets/bootstrap/_forms.scss view on Meta::CPAN
// so we reset that to ensure it behaves more like a standard block element.
// See https://github.com/twbs/bootstrap/issues/12359.
min-width: 0;
}
legend {
display: block;
width: 100%;
padding: 0;
margin-bottom: $line-height-computed;
font-size: ($font-size-base * 1.5);
line-height: inherit;
color: $legend-color;
border: 0;
border-bottom: 1px solid $legend-border-color;
}
label {
display: inline-block;
max-width: 100%; // Force IE8 to wrap long content (see https://github.com/twbs/bootstrap/issues/13141)
docs/assets/stylesheets/bootstrap/_forms.scss view on Meta::CPAN
// Placeholder
@include placeholder;
// Disabled and read-only inputs
//
// HTML5 says that controls under a fieldset > legend:first-child won't be
// disabled if the fieldset is disabled. Due to implementation difficulty, we
// don't honor that edge case; we style them as disabled anyway.
&[disabled],
&[readonly],
fieldset[disabled] & {
GrowthForecast
view release on metacpan or search on metacpan
lib/GrowthForecast/RRD.pm view on Meta::CPAN
'--border', $args->{border},
);
push @opt, '-y', $args->{ygrid} if $args->{ygrid};
push @opt, '-t', "$period_title" if !$args->{notitle};
push @opt, '--no-legend' if !$args->{legend};
push @opt, '--only-graph' if $args->{graphonly};
push @opt, '--logarithmic' if $args->{logarithmic};
push @opt, '--font', "AXIS:8:";
push @opt, '--font', "LEGEND:8:";
push @opt, '-u', $args->{upper_limit} if defined $args->{upper_limit};
lib/GrowthForecast/RRD.pm view on Meta::CPAN
}
push @opt, join(":",
'VRULE',
join("", $vrule->{time}, $vrule->{color}),
($args->{vrule_legend} ? $desc : ""),
($vrule->{dashes} ? 'dashes='.$vrule->{dashes} : ()),
);
}
push @opt, 'COMMENT:\n';
Gtk2-Ex-Geo
view release on metacpan or search on metacpan
lib/Gtk2/Ex/Geo/Dialogs/Colors.pm view on Meta::CPAN
my($dialog, $boot) = $self->bootstrap_dialog
($gui, 'colors_dialog', "Colors for ".$self->name,
{
colors_dialog => [delete_event => \&cancel_colors, [$self, $gui]],
color_scale_button => [clicked => \&fill_color_scale_fields, [$self, $gui]],
color_legend_button => [clicked => \&make_color_legend, [$self, $gui]],
copy_colors_button => [clicked => \©_colors, [$self, $gui]],
open_colors_button => [clicked => \&open_colors_file, [$self, $gui]],
save_colors_button => [clicked => \&save_colors_file, [$self, $gui]],
lib/Gtk2/Ex/Geo/Dialogs/Colors.pm view on Meta::CPAN
my $tv = $dialog->get_widget('colors_treeview');
for my $w (qw/color_field_label color_field_combobox
scale_label2 scale_min_entry scale_label3 scale_max_entry color_scale_button
color_legend_button
rainbow_label
min_hue_label min_hue_button max_hue_label max_hue_button hue_range_combobox
grayscale_label4 grayscale_color_label grayscale_color_button grayscale_adjust_combobox
grayscale_label5 grayscale_invert_checkbutton
border_color_checkbutton border_color_label border_color_button
lib/Gtk2/Ex/Geo/Dialogs/Colors.pm view on Meta::CPAN
$dialog->get_widget($w)->set_sensitive(1);
}
$tv->set_sensitive(1);
} elsif ($palette eq 'Grayscale' or $palette eq 'Rainbow' or $palette =~ 'channel') {
for my $w (qw/scale_label2 scale_min_entry scale_label3 scale_max_entry color_scale_button
color_legend_button/) {
$dialog->get_widget($w)->set_sensitive(1);
}
$tv->set_sensitive(1);
} elsif ($palette eq 'Color table') {
for my $w (qw/manage_label copy_colors_button open_colors_button save_colors_button
lib/Gtk2/Ex/Geo/Dialogs/Colors.pm view on Meta::CPAN
$self->{colors_dialog}->get_widget('scale_min_entry')->set_text($range[0]) if defined $range[0];
$self->{colors_dialog}->get_widget('scale_max_entry')->set_text($range[1]) if defined $range[1];
}
##@ignore
sub make_color_legend {
my($self, $gui) = @{$_[1]};
put_scale_in_treeview($self);
}
# color treeview subs
Gtk2-Ex-Graph-GD
view release on metacpan or search on metacpan
examples/graph-gd-demo.pl view on Meta::CPAN
transparent => 0,
# cumulate => TRUE,
type => ['lisen', 'bars', 'bars'],
);
my @legend_keys = ('Field Mice Population', 'Fish Population', 'Lobster Growth in millions');
$graph->set_legend(@legend_keys);
my $data = GD::Graph::Data->new([
[ 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,],
[ 1, 2, 5, 8, 3, 4.5, 1, 3, 4],
[1.4, 4, 15, 6, 13, 1.5, 11, 3, 4],
HTML-AutoTag
view release on metacpan or search on metacpan
t/10-tagset.t view on Meta::CPAN
<isindex action="value"></isindex>
<isindex></isindex>
<kbd></kbd>
<label></label>
<layer background="value" src="value"></layer>
<legend></legend>
<li />
<li></li>
<link />
<link href="value"></link>
<link></link>
HTML-Builder
view release on metacpan or search on metacpan
lib/HTML/Builder.pm view on Meta::CPAN
base bdo big blockquote body br
button caption cite code col colgroup
dd del dfn div dl dt
em fieldset form frame frameset h1
head hr html i iframe img
input ins kbd label legend li
link meta noframes noscript object
ol optgroup option p param pre
samp script select small span
strong style sup table
tbody td textarea tfoot th thead
HTML-Content-Extractor
view release on metacpan or search on metacpan
Extractor.xs view on Meta::CPAN
skip_tags[6] = get_tag_id(my_r->tags, "bgsound");
skip_tags[7] = get_tag_id(my_r->tags, "canvas");
skip_tags[8] = get_tag_id(my_r->tags, "datalist");
skip_tags[9] = get_tag_id(my_r->tags, "button");
skip_tags[10] = get_tag_id(my_r->tags, "fieldset");
skip_tags[11] = get_tag_id(my_r->tags, "legend");
skip_tags[12] = get_tag_id(my_r->tags, "input");
skip_tags[13] = get_tag_id(my_r->tags, "keygen");
skip_tags[14] = get_tag_id(my_r->tags, "textarea");
skip_tags[15] = get_tag_id(my_r->tags, "frameset");
skip_tags[16] = get_tag_id(my_r->tags, "noframes");
Extractor.xs view on Meta::CPAN
add_tag_R(tags, "form", 4, 0, 0, TYPE_TAG_BLOCK, 0, OPTION_NULL, AI_NULL);
add_tag_R(tags, "button", 6, 0, 0, TYPE_TAG_NORMAL, 0, OPTION_NULL, AI_NULL);
// ++ form: fieldset ++
add_tag_R(tags, "fieldset", 8, 0, 0, TYPE_TAG_BLOCK, 0, OPTION_NULL, AI_NULL);
add_tag_R(tags, "legend", 6, 0, 0, TYPE_TAG_NORMAL, 0, OPTION_NULL, AI_NULL);
// -- form: fieldset --
// ++ form: select ++
add_tag_R(tags, "select", 6, 20, FAMILY_SELECT, TYPE_TAG_NORMAL, EXTRA_TAG_CLOSE_PRIORITY, OPTION_CLEAN_TAGS, AI_NULL);
add_tag_R(tags, "optgroup", 8, 19, FAMILY_SELECT, TYPE_TAG_NORMAL, EXTRA_TAG_CLOSE_PRIORITY, OPTION_CLEAN_TAGS_SAVE, AI_NULL);
HTML-D3
view release on metacpan or search on metacpan
lib/HTML/D3.pm view on Meta::CPAN
use warnings;
use JSON::MaybeXS;
use Scalar::Util;
# TODO: add animated tooltips to charts with legends
=head1 NAME
HTML::D3 - A simple Perl module for generating charts using D3.js.
lib/HTML/D3.pm view on Meta::CPAN
HTML
return $html;
}
=head2 render_multi_series_line_chart_with_legends
$html = $chart->render_multi_series_line_chart_with_legends($data);
Generates HTML and JavaScript code to render a chart of many lines with animated mouseover tooltips.
Accepts the following arguments:
lib/HTML/D3.pm view on Meta::CPAN
Returns a string containing the HTML and JavaScript code for the chart.
=cut
sub render_multi_series_line_chart_with_legends {
my($self, $data) = @_;
# Validate input data
die 'Data must be an array of hashes' unless ref($data) eq 'ARRAY';
lib/HTML/D3.pm view on Meta::CPAN
pointer-events: none;
opacity: 0;
transform: translateY(-10px);
transition: opacity 0.2s ease-in-out, transform 0.2s ease-in-out;
}
.legend {
font-size: 12px;
cursor: pointer;
}
.legend rect {
stroke-width: 1;
stroke: #ccc;
}
</style>
</head>
lib/HTML/D3.pm view on Meta::CPAN
const height = $self->{height} - margin.top - margin.bottom;
const chart = svg.append("g")
.attr("transform", `translate(\${margin.left},\${margin.top})`);
const legendArea = svg.append("g")
.attr("transform", `translate(\${width + margin.left + 20},\${margin.top})`);
// Extract all labels and flatten them into a unique array
const allLabels = Array.from(new Set(data.flatMap(series => series.data.map(d => d.label))));
lib/HTML/D3.pm view on Meta::CPAN
tooltip.style("opacity", 0)
.style("transform", "translateY(-10px)");
});
});
// Add legend
data.forEach((series, i) => {
const legend = legendArea.append("g")
.attr("transform", `translate(0, \${i * 20})`)
.attr("class", "legend");
legend.append("rect")
.attr("width", 12)
.attr("height", 12)
.attr("fill", color(i));
legend.append("text")
.attr("x", 20)
.attr("y", 10)
.text(series.name)
.style("alignment-baseline", "middle");
// Optional: Interactive legend for toggling visibility (uncomment to use)
// legend.on("click", () => {
// const visible = d3.selectAll(\`path.line-\${i}\`).style("opacity") === "1" ? 0 : 1;
// d3.selectAll(\`path.line-\${i}\`).style("opacity", visible);
// d3.selectAll(\`circle.series-\${i}\`).style("opacity", visible);
// });
});
lib/HTML/D3.pm view on Meta::CPAN
HTML
return $html;
}
sub render_multi_series_line_chart_with_interactive_legends
{
my ($self, $data) = @_;
# Validate input data
die 'Data must be an array of hashes' unless ref($data) eq 'ARRAY';
lib/HTML/D3.pm view on Meta::CPAN
pointer-events: none;
opacity: 0;
transform: translateY(-10px);
transition: opacity 0.2s ease-in-out, transform 0.2s ease-in-out;
}
.legend {
font-size: 12px;
cursor: pointer;
}
.legend rect {
stroke-width: 1;
stroke: #ccc;
}
</style>
</head>
lib/HTML/D3.pm view on Meta::CPAN
const height = $self->{height} - margin.top - margin.bottom;
const chart = svg.append("g")
.attr("transform", `translate(\${margin.left},\${margin.top})`);
const legendArea = svg.append("g")
.attr("transform", `translate(\${width + margin.left + 20},\${margin.top})`);
// Extract all labels and flatten them into a unique array
const allLabels = Array.from(new Set(data.flatMap(series => series.data.map(d => d.label))));
lib/HTML/D3.pm view on Meta::CPAN
tooltip.style("opacity", 0)
.style("transform", "translateY(-10px)");
});
});
// Add legend with interactivity
data.forEach((series, i) => {
const legend = legendArea.append("g")
.attr("transform", `translate(0, \${i * 20})`)
.attr("class", "legend")
.on("click", () => {
const isVisible = d3.selectAll(\`path.line-\${i}\`).style("opacity") === "1";
// Toggle visibility
d3.selectAll(\`path.line-\${i}\`).style("opacity", isVisible ? 0 : 1);
d3.selectAll(\`circle.series-\${i}\`).style("opacity", isVisible ? 0 : 1);
// Dim legend if series is hidden
legend.select("text").style("opacity", isVisible ? 0.5 : 1);
});
legend.append("rect")
.attr("width", 12)
.attr("height", 12)
.attr("fill", color(i));
legend.append("text")
.attr("x", 20)
.attr("y", 10)
.text(series.name)
.style("alignment-baseline", "middle");
});
HTML-DOM
view release on metacpan or search on metacpan
lib/HTML/DOM/Element.pm view on Meta::CPAN
input => 'HTML::DOM::Element::Input',
textarea=> 'HTML::DOM::Element::TextArea',
button => 'HTML::DOM::Element::Button',
label => 'HTML::DOM::Element::Label',
fieldset=> 'HTML::DOM::Element::FieldSet',
legend => 'HTML::DOM::Element::Legend',
ul => 'HTML::DOM::Element::UL',
ol => 'HTML::DOM::Element::OL',
dl => 'HTML::DOM::Element::DL',
dir => 'HTML::DOM::Element::Dir',
menu => 'HTML::DOM::Element::Menu',
HTML-DTD
view release on metacpan or search on metacpan
share/html-4-0-1-loose.dtd view on Meta::CPAN
<!ELEMENT FIELDSET - - (#PCDATA,LEGEND,(%flow;)*) -- form control group -->
<!ATTLIST FIELDSET
%attrs; -- %coreattrs, %i18n, %events --
>
<!ELEMENT LEGEND - - (%inline;)* -- fieldset legend -->
<!ENTITY % LAlign "(top|bottom|left|right)">
<!ATTLIST LEGEND
%attrs; -- %coreattrs, %i18n, %events --
accesskey %Character; #IMPLIED -- accessibility key character --
HTML-Defang
view release on metacpan or search on metacpan
lib/HTML/Defang.pm view on Meta::CPAN
use Encode;
my $HasScalarReadonly = 0;
BEGIN { eval "use Scalar::Readonly qw(readonly_on);" && ($HasScalarReadonly = 1); }
our @FormTags = qw(form input textarea select option button fieldset label legend multicol nextid optgroup);
# Some regexps for matching HTML tags + key=value attributes
my $AttrKeyStartLineRE = qr/(?:[^=<>\s\/\\]{1,}|[\/](?!\s*>))/;
my $AttrKeyRE = qr/(?<=[\s'"\/])$AttrKeyStartLineRE/;
my $AttrValRE = qr/[^>\s'"`][^>\s]*|'[^']*?'|"[^"]*?"|`[^`]*?`/;
lib/HTML/Defang.pm view on Meta::CPAN
"label" => # FORM
{
"for" => "alnum",
},
"layer" => 0,
"legend" => 1, # FORM
"li" => {
"value" => "integer",
},
"listing" => 0,
"map" => 1,
HTML-DeferableCSS
view release on metacpan or search on metacpan
t/etc/css/reset.css view on Meta::CPAN
a, abbr, acronym, address, big, cite, code,
del, dfn, em, img, ins, kbd, q, s, samp,
small, strike, strong, sub, sup, tt, var,
b, u, i, center,
dl, dt, dd, ol, ul, li,
fieldset, form, label, legend,
table, caption, tbody, tfoot, thead, tr, th, td,
article, aside, canvas, details, embed,
figure, figcaption, footer, header, hgroup,
menu, nav, output, ruby, section, summary,
time, mark, audio, video {
HTML-Detoxifier
view release on metacpan or search on metacpan
lib/HTML/Detoxifier.pm view on Meta::CPAN
button => undef,
fieldset => undef,
form => undef,
input => undef,
label => undef,
legend => undef,
optgroup => undef,
option => undef,
select => undef,
textarea => undef
},
lib/HTML/Detoxifier.pm view on Meta::CPAN
img => undef,
input => undef,
ins => undef,
kbd => undef,
label => undef,
legend => undef,
li => undef,
link => undef,
map => undef,
marquee => undef,
meta => undef,
HTML-Element-Tiny
view release on metacpan or search on metacpan
lib/HTML/Element/Tiny.pm view on Meta::CPAN
BEGIN {
# @TAGS =
# qw( a abbr acronym address area b base bdo big blockquote body br
# button caption cite code col colgroup dd del div dfn dl dt em
# fieldset form frame frameset h1 h2 h3 h4 h5 h6 head hr html i
# iframe img input ins kbd label legend li link map meta noframes
# noscript object ol optgroup option p param pre q samp script select
# small span strong style sub sup table tbody td textarea tfoot th
# thead title tr tt ul var );
%DEFAULT_CLOSED = map { $_ => 1 }
qw( area base br col frame hr img input meta param link );
HTML-EscapeEvil-AllowAll
view release on metacpan or search on metacpan
AllowAll.pm view on Meta::CPAN
[ "em", "embed" ],
[ "fieldset", "frameset", "font", "form" ],
[ "h1", "h2", "h3", "h4", "h5", "h6", "head", "hr", "html" ],
[ "i", "iframe", "img", "input", "ins" ],
[ "kbd" ],
[ "label", "legend", "li", "link" ],
[ "map", "meta" ],
[ "nobr", "noscript" ],
[ "object", "ol", "optgroup", "option" ],
[ "p", "param", "pre" ],
[ "q" ],
HTML-ExtractMeta
view release on metacpan or search on metacpan
t/html/tv2.html view on Meta::CPAN
<span class="tv2_feed_title ">
<span class="tv2_feed_date">13.38</span>
Norsk skilærer hetses for pakistansk «kebabsang»
</span>
</a>
<a class="even" href="http://www.tv2.no/sport/fotball/england/premierleague/dette-er-legendariske-kevin-keegan-3962106.html" title="Dobbel gullballvinner, engelsk landslagskaptein og tidligere landslagssjef på plass i TV 2..." target="_self">
<span class="tv2_feed_title ">
<span class="tv2_feed_date">13.26</span>
Dette er legendariske Kevin Keegan
</span>
</a>
<a class="odd" href="http://www.tv2.no/sport/vintersport/kvalm-bjoerndalen-sloeyfet-pressemoete-ole-einar-sitter-paa-potta-3963168.html" title="- Ole Einar er på potta, sier skiskyttercoach Arne Idland" target="_self">
<span class="tv2_feed_title ">
<span class="tv2_feed_date">13.18</span>
HTML-Form
view release on metacpan or search on metacpan
ok( $f[1]->find_input("t") );
$f = HTML::Form->parse( <<EOT, "http://www.example.com" );
<form ACTION="http://example.com/">
<fieldset>
<legend>Radio Buttons with Labels</legend>
<label>
<input type=radio name=r0 value=0 />zero
</label>
<label>one
<input type=radio name=r1 value=1>
HTML-FormBuilder
view release on metacpan or search on metacpan
lib/HTML/FormBuilder/FieldSet.pm view on Meta::CPAN
#####################################################################
sub _build_fieldset_foreword {
my $self = shift;
my $data = $self->{data};
# fieldset legend
my $legend = '';
if (defined $data->{'legend'}) {
$legend = qq{<legend>$data->{legend}</legend>};
undef $data->{'legend'};
}
# header at the top of the fieldset
my $header = '';
if (defined $data->{'header'}) {
lib/HTML/FormBuilder/FieldSet.pm view on Meta::CPAN
if (defined $data->{'comment'}) {
$comment = qq{<div class="$self->{classes}{comment}"><p>$data->{comment}</p></div>};
undef $data->{'comment'};
}
return $legend . $header . $comment;
}
#####################################################################
# Usage : $self->_wrap_fieldset($fieldset_html)
# Purpose : wrap fieldset html by template
HTML-FormEngine
view release on metacpan or search on metacpan
FormEngine/Skin.pm view on Meta::CPAN
$templ{_textarea} = '<textarea name="<&NAME&>" id="<&ID&>" cols="<&COLS&>" rows="<&ROWS&>" <&#readonly&> <&TEXTAREA_XP&>><&#value&></textarea>';
$templ{_hidden} = '<input type="hidden" name="<&NAME&>" id="<&ID&>" value="<&#value&>" <&HIDDEN_XP&>/>';
$templ{hidden} = '<&_hidden&>';
$templ{_fieldset} = '
<fieldset>
<legend><&LEGEND&></legend>
<table border=0><~
<tr><&TEMPL&></tr>~TEMPL~>
</table>
</fieldset>';
$templ{_templ} = '<~<&TEMPL&>~TEMPL~>';
HTML-FormFu-ExtJS
view release on metacpan or search on metacpan
lib/HTML/FormFu/ExtJS.pm view on Meta::CPAN
for ( @{ $self->get_elements() } ) {
next if ( $_->type eq "Submit" || $_->type eq "Button" );
tie my %obj, 'Tie::Hash::Indexed';
if ( $_->type eq "Fieldset" ) {
%obj =
( items => \ext_items($_), title => $_->legend, autoHeight => 1 );
} elsif ( $_->type eq "SimpleTable" ) {
my @tr = grep { $_->tag eq "tr" } @{ $_->get_elements() };
my @items;
push( @items, ext_items($_) ) for (@tr);
HTML-FormFu
view release on metacpan or search on metacpan
lib/HTML/FormFu/Element/Block.pm view on Meta::CPAN
$render->{tag},
process_attrs( $render->{attributes} ),
;
}
if ( defined $render->{legend} ) {
$html .=
sprintf "\n<legend%s>%s</legend>",
defined( $render->{legend_attributes} )
? process_attrs( $render->{legend_attributes} )
: '',
$render->{legend};
}
# block template
$html .= "\n";
HTML-FormHandler-Model-DBIC
view release on metacpan or search on metacpan
t/lib/BookDB/Form/Widget/Wrapper/Para.pm view on Meta::CPAN
my $class = $self->render_class( $result );
my $output = qq{\n<p $class>};
if ( $self->has_flag('is_compound' ) ) {
$output .= '<fieldset class="' . $self->html_name . '">';
$output .= '<legend>' . $self->label . '</legend>';
}
elsif ( !$self->has_flag('no_render_label') && $self->label ) {
$output .= $self->render_label;
}
$output .= $rendered_widget;
HTML-FormHandler
view release on metacpan or search on metacpan
lib/HTML/FormHandler/Render/Simple.pm view on Meta::CPAN
$wrapper_tag ||= $field->has_flag('is_repeatable') ? 'fieldset' : 'div';
my $attrs = process_attrs($field->wrapper_attributes);
$output .= qq{<$wrapper_tag$attrs>};
if( $wrapper_tag eq 'fieldset' ) {
$output .= '<legend>' . $field->loc_label . '</legend>';
}
elsif ( ! $field->get_tag('label_none') && $field->do_label && length( $field->label ) > 0 ) {
$output .= "\n" . $self->render_label($field);
}
HTML-FormHandlerX-Form-JQueryValidator
view release on metacpan or search on metacpan
examples/template/form.tt view on Meta::CPAN
[% MACRO form_header BLOCK %]
<form name="[% id %]" id="[% id %]" method="post" action="[% action %]" class="form-horizontal[% IF jquery_validate %] jquery-validate-form[% END %]">
<fieldset>
<legend>[% legend %]</legend>
[% IF form.errors %]
<div class="alert alert-error">
<a class="close" data-dismiss="alert">×</a>
<p>
<b>There was a problem, please check the highlighted fields in the form below</b>
HTML-FormTemplate
view release on metacpan or search on metacpan
lib/HTML/FormTemplate.pm view on Meta::CPAN
=head1 PROPERTIES FOR USER-INPUT VALIDATION
In cases where user input has been evaluated to be in error, a visual cue is
provided to the user in the form of a question mark ("?") that this is so.
You need to make your own legend explaining this where appropriate.
See bad_input_marker(). Note that any empty strings are filtered from the
user input prior to any validation checks are done.
=head2 is_required
This boolean property is an assertion that the field must be filled in by the
user, or otherwise there is an error condition. A visual cue is provided to
the user in the form of an asterisk ("*") that this is so. You need to make
your own legend explaining this where appropriate. See required_field_marker().
=head2 req_min_count, req_max_count
These numerical properties are assertions of how few or many members of field
groups must be filled in or options selected by the user, or otherwise there is
lib/HTML/FormTemplate.pm view on Meta::CPAN
=head2 is_private
This boolean property results in a visual cue provided to the user in the form
of a tilde ("~"), that you don't intend to make the contents of that field
public. You need to make your own legend explaining this where appropriate.
See private_field_marker().
=head2 exclude_in_echo
This boolean property is an assertion that this field's value will
( run in 0.526 second using v1.01-cache-2.11-cpan-e01af6d98fe )