view release on metacpan or search on metacpan
lib/HTML/StickyQuery/DoCoMoGUID.pm view on Meta::CPAN
scalarref => \$html,
param => { sessionid => 'SID' },
disable_guid => 1,
);
FORM ã‚¿ã‚°ã®æ™‚ã® INPUT ã‚¿ã‚°ã‚’ XHTML ã˜ã‚ƒç„¡ãã™ã‚‹
my $guid = HTML::StickyQuery::DoCoMoGUID->new;
print $guid->sticky(
scalarref => \$html,
param => { sessionid => 'SID' },
view release on metacpan or search on metacpan
CHARACTERS THAT WILL BE ESCAPED
HTML::String concerns itself with characters that have special meaning
in HTML. Those which begin and end tags (< and >), those which begin an
entity (&) and those which delimit attribute values (" and '). It
outputs them in a fashion compatible with HTML 4 and newer and all
versions of XHTML (assuming support for named entities in the parser).
There are no known incompatibilities with browsers.
HTML::String does not concern itself with other characters, it is
assumed that HTML documents will be marked with a suitable character
encoding via a Content-Type HTTP header and/or a meta element.
view release on metacpan or search on metacpan
t/10basic.t view on Meta::CPAN
'filter process'
);
test( 'x<!-- foo -->y', 'x<!--filtered-->y', 'filter comment' );
test( 'x<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"' . "\n"
. ' "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">y',
'x<!--filtered-->y',
'filter declaration'
);
view release on metacpan or search on metacpan
t/10basic.t view on Meta::CPAN
'filter process'
);
test( 'x<!-- foo -->y', 'x<!--filtered-->y', 'filter comment' );
test( 'x<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"' . "\n"
. ' "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">y',
'x<!--filtered-->y',
'filter declaration'
);
view release on metacpan or search on metacpan
t/10basic.t view on Meta::CPAN
test( 'x<!-- foo -->y',
'x<!--filtered-->y',
'filter comment' );
test( 'x<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"' . "\n" .
' "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">y',
'x<!--filtered-->y',
'filter declaration' );
{
view release on metacpan or search on metacpan
t/30subclass.t view on Meta::CPAN
$self->output_declaration('<! FOO >');
}
}
$f = SubClass_reject_declaration->new;
$f->input_start_document;
$f->input_declaration('<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">');
$f->input_text('foo');
$f->input_end_document;
is( $f->filtered_document, '<! FOO >foo', 'subclass reject_decalaration' );
view release on metacpan or search on metacpan
t/example.xhtml view on Meta::CPAN
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<title>
My Home Page
</title>
view release on metacpan or search on metacpan
<p></P>
EOD
my $expected = <<'EOD';
<?xml version="1.0"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>
</title>
view release on metacpan or search on metacpan
TableBracket.pm view on Meta::CPAN
$temp->round("Tom","Curly");
# Display the table in HTML format
print $temp->as_html;
# Display the table in XHTML format
print $temp->as_xhtml;
# Display the table in .dot format (name of graph as argument)
print $temp->as_directed_graph_source("Tournament");
view release on metacpan or search on metacpan
t/24_xhtml.t view on Meta::CPAN
# Standard HTML mode
$table = $t->render($d);
report $table, "html1";
is($table, $result{html1}, "html1");
# XHTML mode
$table = $t->render($d, { xhtml => 1 });
report $table, "xhtml1";
is($table, $result{xhtml1}, "xhtml1");
done_testing;
view release on metacpan or search on metacpan
extras/datetime_js/jscalendar/calendar.js view on Meta::CPAN
};
Calendar.createElement = function(type, parent) {
var el = null;
if (document.createElementNS) {
// use the XHTML namespace; IE won't normally get here unless
// _they_ "fix" the DOM2 implementation.
el = document.createElementNS("http://www.w3.org/1999/xhtml", type);
} else {
el = document.createElement(type);
}
view release on metacpan or search on metacpan
examples/sample.html view on Meta::CPAN
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en-GB" xmlns:fb="http://www.facebook.com/2008/fbml" >
<head>
<title>Tag Cloud</title>
<style type='text/css'>
view release on metacpan or search on metacpan
lib/HTML/TagParser.pm view on Meta::CPAN
}
}
=head1 DESCRIPTION
HTML::TagParser is a pure Perl module which parses HTML/XHTML files.
This module provides some methods like DOM interface.
This module is not strict about XHTML format
because many of HTML pages are not strict.
You know, many pages use <br> elemtents instead of <br/>
and have <p> elements which are not closed.
=head1 METHODS
view release on metacpan or search on metacpan
lib/HTML/TagTree.pm view on Meta::CPAN
sub header{
# This subroutine returns the standard HTML header
my $header = '<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">';
return $header;
}
lib/HTML/TagTree.pm view on Meta::CPAN
$return .= "Status: 200 OK\n\n";
}
sub get_doctype {
my $return = '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"';
$return .= ' "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">';
$return .= "\n\n";
return $return;
}
view release on metacpan or search on metacpan
lib/HTML/Tagset.pm view on Meta::CPAN
HTML -- for example, C<%isHeadOrBodyElement> lists the tagnames
for all elements that can appear either in the head or in the body,
such as "script". That doesn't mean that I am saying your code that
produces HTML should feel free to put script elements in either place!
If you are producing programs that spit out HTML, you should be
I<intimately> familiar with the DTDs for HTML or XHTML (available at
C<http://www.w3.org/>), and you should slavishly obey them, not
the data tables in this document.
=head1 SEE ALSO
view release on metacpan or search on metacpan
templates-Pro/test_if5.out view on Meta::CPAN
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>HTML::Template::Pro test template</title>
view release on metacpan or search on metacpan
t/110_webkit.t view on Meta::CPAN
my $dir = abs_path(dirname($0));
copy("$dir/tiger.xhtml", "$td/tiger.xhtml") or die;
symlink(abs_path(dirname($0) . "/../javascript"), "$td/javascript");
$mech->get("file://$td/tiger.xhtml");
is($mech->title, 'XHTML test');
is_deeply($mech->console_messages, []);
write_file("$td/a.html", <<'ENDS');
<html>
<head>
view release on metacpan or search on metacpan
lib/HTML/Tidy/libXML.pm view on Meta::CPAN
}
_tidy_dom($dom) if $level > 0;
my $xhtml = $root->toString( 0, 'utf-8' ); # utf8 flag off
return <<EOT;
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
$xhtml
EOT
}
view release on metacpan or search on metacpan
<p></P>
EOD
my $expected =<<'EOD';
<?xml version="1.0"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>
</title>
view release on metacpan or search on metacpan
<p></P>
EOD
my $expected =<<'EOD';
<?xml version="1.0"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>
</title>
view release on metacpan or search on metacpan
lib/HTML/Tiny.pm view on Meta::CPAN
=head1 DESCRIPTION
C<< HTML::Tiny >> is a simple, dependency free module for generating
HTML (and XML). It concentrates on generating syntactically correct
XHTML using a simple Perl notation.
In addition to the HTML generation functions utility functions are
provided to
=over
lib/HTML/Tiny.pm view on Meta::CPAN
object ol optgroup option output p param picture portal pre progress q rb rp
rt rtc ruby s samp script section select slot small source spacer span strike
strong style sub summary sup table tbody td template textarea tfoot th thead
time title tr track tt u ul var video wbr xmp
The following methods generate closed XHTML (<br />) tags by default:
area base br col embed frame hr iframe img input keygen link meta param
source track wbr
So:
view release on metacpan or search on metacpan
t/ManualTest/manualTest1.htm view on Meta::CPAN
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html>
<head>
<title>Manual</title>
<style type="text/css">
ul.toc_appendix1 {
view release on metacpan or search on metacpan
lib/HTML/TokeParser/Simple.pm view on Meta::CPAN
not yet been changed in order to maintain compatibility with previous versions
of this module. At the present time, your author is not aware of anyone taking
advantage of this "feature," but it's better to be safe than sorry.
Use of C<$HTML::Parser::VERSION> which is less than 3.25 may result in
incorrect behavior as older versions do not always handle XHTML correctly. It
is the programmer's responsibility to verify that the behavior of this code
matches the programmer's needs.
Note that C<HTML::Parser> processes text in 512 byte chunks. This sometimes
will cause strange behavior and cause text to be broken into more than one
view release on metacpan or search on metacpan
context.
HTML::Tree -- added blurb for /Perl & LWP/
HTML::TreeBuilder -- added blurb for /Perl & LWP/
Also added a few tweaks to do better with XHTML parsing.
Added guts() and disembowel() methods, for parsing document fragments.
TODO: desperately need to add tests to t/
view release on metacpan or search on metacpan
lib/HTML/Truncate.pm view on Meta::CPAN
}
}
=item B<truncate>
It returns the truncated XHTML if asked for a return value.
my $truncated = $ht->truncate($html);
It will truncate the string in place if no return value is expected
(L<wantarray> is not defined).
view release on metacpan or search on metacpan
t/perl.html view on Meta::CPAN
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>The Perl Programming Language - www.perl.org</title>
<meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
view release on metacpan or search on metacpan
lib/HTML/Valid/Tagset.pm view on Meta::CPAN
VERS_IFRAME => ((8|64|512)|(16|128|1024)),
VERS_LOOSE => ((1)|(2)|((8|64|512)|(16|128|1024))),
VERS_EVENTS => (((4|32|256)|(8|64|512)|(16|128|1024))|(2048)),
VERS_FROM32 => ((2)|((4|32|256)|(8|64|512)|(16|128|1024))),
VERS_FROM40 => (((4|32|256)|(8|64|512)|(16|128|1024))|(2048)|(4096)),
VERS_XHTML => (256|512|1024|2048|4096|262144),
VERS_ALL => ((1)|(2)|(((4|32|256)|(8|64|512)|(16|128|1024))|(2048)|(4096))|262144|131072),
VERS_PROPRIETARY => (16384|32768|8192),
};
my $taginfo = HTML::Valid::tag_information ();
view release on metacpan or search on metacpan
doc/Content.pm.html view on Meta::CPAN
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>
WebMake: Documentation: HTML::WebMake::Content
view release on metacpan or search on metacpan
examples/article-examples/cgi-script/H-W-NM-serve.pl view on Meta::CPAN
my $nav_links_template = <<'EOF';
[% USE HTML %]
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html>
<head>
<title>[% title %]</title>
<style type="text/css">
view release on metacpan or search on metacpan
cgi/templates/main.html view on Meta::CPAN
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>html2wiki - Convert HTML text to wiki markup</title>