Lines Matching refs:result
457 my @result = @{$self->{param}{$name}};
461 @result = map {ref $_ ? $_ : $self->_decode_utf8($_) } @result;
464 return wantarray ? @result : $result[0];
848 my \@result = map { "\$tag\$_\$untag" }
850 return "\@result";
1129 my(@result) = defined($self->{param}{'keywords'}) ? @{$self->{param}{'keywords'}} : ();
1130 @result;
1373 my($param,$value,@result);
1375 push(@result,"<ul>");
1378 push(@result,"<li><strong>$name</strong></li>");
1379 push(@result,"<ul>");
1383 push(@result,"<li>$value</li>");
1385 push(@result,"</ul>");
1387 push(@result,"</ul>");
1388 return join("\n",@result);
1704 my(@result,$xml_dtd);
1717 push @result,qq(<?xml version="1.0" encoding="$encoding"?>) if $xml_dtd && $declare_xml;
1720 push(@result,qq(<!DOCTYPE html\n\tPUBLIC "$dtd->[0]"\n\t "$dtd->[1]">));
1723 push(@result,qq(<!DOCTYPE html\n\tPUBLIC "$dtd">));
1745 push(@result,$XHTML ? qq(<html xmlns="http://www.w3.org/1999/xhtml"$lang_bits>\n<head>\n<title>$title</title>)
1749 push(@result,$XHTML ? "<link rev=\"made\" href=\"mailto:$author\" />"
1756 push(@result,$XHTML ? qq(<base href="$href"$t />) : qq(<base href="$href"$t>));
1760 for (keys %$meta) { push(@result,$XHTML ? qq(<meta name="$_" content="$meta->{$_}" />)
1767 push @result, @$head;
1771 push @result, $head;
1777 push(@result,$self->_style($style)) if defined $style;
1778 push(@result,$self->_script($script)) if defined $script;
1779 push(@result,$meta_bits) if defined $meta_bits and !$meta_bits_set;
1782 push(@result,<<END) if $noscript;
1789 push(@result,"</head>\n<body$other>\n");
1790 return join("\n",@result);
1800 my (@result);
1826 push(@result,$XHTML ? qq(<link rel="$rel" type="$type" href="$src" $other/>)
1832 push(@result,$XHTML ? qq(<link rel="$rel" type="$type" href="$src" $other/>)
1838 push(@result, "<style type=\"text/css\">\n$_\n</style>") for @v;
1841 push(@result,style({'type'=>$type},"$cdata_start\n$_\n$cdata_end")) for @c;
1845 push(@result,$XHTML ? qq(<link rel="$rel" type="$type" href="$src" $other/>)
1849 @result;
1856 my (@result);
1893 push(@result,$self->script({@satts},$code || ''));
1895 @result;
2383 my($result);
2393 $result = "<table>";
2396 $result .= "<tr>" if @colheaders;
2398 $result .= "<th>$_</th>";
2401 $result .= "<tr>";
2402 $result .= "<th>$rowheaders[$row]</th>" if @rowheaders;
2404 $result .= "<td>" . $elements[$column*$rows + $row] . "</td>"
2407 $result .= "</tr>";
2409 $result .= "</table>";
2410 return $result;
2482 my($result,$checked,@elements,@values);
2575 my($result,%selected);
2591 $result = qq/<select name="$name" $tabindex$other>\n/;
2599 $result .= "$v\n";
2609 $result .= "<option${attribs} ${selectit}value=\"$value\">$label</option>\n";
2613 $result .= "</select>";
2614 return $result;
2647 my($result,@values);
2652 $result = qq/<optgroup label="$name"$other>\n/;
2658 $result .= "$_\n";
2667 $result .= $labeled ? $novals ? "<option$attribs label=\"$value\">$label</option>\n"
2673 $result .= "</optgroup>";
2674 return $result;
2706 my($result,@values);
2719 $result = qq/<select name="$name" $tabindex$has_size$is_multiple$other>\n/;
2727 $result .= "$v\n";
2737 $result .= "<option${attribs} ${selectit}value=\"$value\">$label</option>\n";
2741 $result .= "</select>";
2743 return $result;
2763 my(@result,@value);
2785 push @result,$XHTML ? qq(<input type="hidden" name="$name" value="$_" @other />)
2788 return wantarray ? @result : join('',@result);
4593 If the script was invoked as the result of an <ISINDEX> search, the
5771 This example will result in HTML output that looks like this:
7581 E.G. fetching /cgi-bin/your_script/additional/stuff will result in