view release on metacpan or search on metacpan
docs/Ext.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">
<head>
<title>HTML::Merge::Ext - Extending Merge by writing your own tags</title>
<link rev="made" href="mailto:root@localhost" />
</head>
view release on metacpan or search on metacpan
t/002-simple.t view on Meta::CPAN
'Default robots content'
);
is(
$robots->meta,
'<meta name="robots" content="index,follow,archive,odp,ydir,snippet"/>',
'Default XHTML meta tag'
);
is(
$robots->meta(1),
'<meta name="robots" content="index,follow,archive,odp,ydir,snippet">',
'Default HTMLv4 meta tag'
view release on metacpan or search on metacpan
lib/HTML/Microformats.pm view on Meta::CPAN
=item C<< $doc = HTML::Microformats->new_document($html, $uri, %opts) >>
Constructs a document object.
$html is the HTML or XHTML source (string) or an XML::LibXML::Document.
$uri is the document URI, important for resolving relative URL references.
%opts are additional parameters; currently only one option is defined:
$opts{'type'} is set to 'text/html' or 'application/xhtml+xml', to
view release on metacpan or search on metacpan
lib/HTML/MobileJp/Filter/DoCoMoCSS.pm view on Meta::CPAN
default => sub {{
base_dir => '',
xml_declaration_replace => 1,
xml_declaration => <<'END'
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//i-mode group (ja)//DTD XHTML i-XHTML(Locale/Ver.=ja/1.0) 1.0//EN" "i-xhtml_4ja_10.dtd">
END
,
}},
);
lib/HTML/MobileJp/Filter/DoCoMoCSS.pm view on Meta::CPAN
base_dir => '',
xml_declaration_replace => 1,
xml_declaration => <<'END'
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//i-mode group (ja)//DTD XHTML i-XHTML(Locale/Ver.=ja/1.0) 1.0//EN" "i-xhtml_4ja_10.dtd">
END
XML 宣言や DTD ãŒãªã„ã¨æ–‡å—ãŒå…¨éƒ¨å®Ÿä½“å‚ç…§ã«ãªã£ãŸã‚Šã†ã¾ã parse ã§ããªã„ã®ã§
ヘッダを付ã‘替ãˆã‚‹ã“ã¨ã§ HTML::DoCoMoCSS ã®ä¸ã® XML::libXML ã«æŒ‡ç¤ºã‚’ã—ã¦ã„ã¾ã™ã€‚
view release on metacpan or search on metacpan
lib/HTML/MobileJpCSS.pm view on Meta::CPAN
use HTML::MobileJpCSS;
my $inliner = HTML::MobileJpCSS->new(base_dir => '/path/to/documentroot/');
$inliner->apply(<<'...');
<?xml version="1.0" encoding="Shift_JIS"?>
<!DOCTYPE html PUBLIC "-//i-mode group (ja)//DTD XHTML i-XHTML(Locale/Ver.=ja/2.1) 1.0//EN"
"i-xhtml_4ja_10.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ja" lang="ja">
<head>
<link rel="stylesheet" href="/css/foo.css" />
</head>
lib/HTML/MobileJpCSS.pm view on Meta::CPAN
color: red;
}
# result
<?xml version="1.0" encoding="Shift_JIS"?>
<!DOCTYPE html PUBLIC "-//i-mode group (ja)//DTD XHTML i-XHTML(Locale/Ver.=ja/2.1) 1.0//EN"
"i-xhtml_4ja_10.dtd">
<html>
<head>
</head>
<body>
view release on metacpan or search on metacpan
source/myhtml/token.c view on Meta::CPAN
bool myhtml_token_doctype_check_xhtml_1_0(myhtml_tree_doctype_t* return_doctype)
{
if(return_doctype->attr_system == NULL)
return true;
return myhtml_strcmp(return_doctype->attr_public, "-//W3C//DTD XHTML 1.0 Strict//EN") &&
myhtml_strcmp(return_doctype->attr_system, "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd");
}
bool myhtml_token_doctype_check_xhtml_1_1(myhtml_tree_doctype_t* return_doctype)
{
if(return_doctype->attr_system == NULL)
return true;
return myhtml_strcmp(return_doctype->attr_public, "-//W3C//DTD XHTML 1.1//EN") &&
myhtml_strcmp(return_doctype->attr_system, "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd");
}
bool myhtml_token_release_and_check_doctype_attributes(myhtml_token_t* token, myhtml_token_node_t* target, myhtml_tree_doctype_t* return_doctype)
{
view release on metacpan or search on metacpan
lib/HTML/Native/Document.pm view on Meta::CPAN
"Hello world!"
);
print $doc;
# prints:
# <?xml version="1.0" encoding="UTF-8"?>
# <!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>Home</title></head>
# <body><h1>Welcome</h1>Hello world!</body>
# </html>
lib/HTML/Native/Document.pm view on Meta::CPAN
L<HTML::Native::Document> provides several predefined HTML document
types:
=over 4
=item HTML::Native::Document::XHTML10::Strict - XHTML 1.0 Strict
=item HTML::Native::Document::XHTML10::Transitional - XHTML 1.0 Transitional
=item HTML::Native::Document::XHTML10::Frameset - XHTML 1.0 Frameset
=item HTML::Native::Document::XHTML11 - XHTML 1.1
=item HTML::Native::Document::HTML401::Strict - HTML 4.01 Strict
=item HTML::Native::Document::HTML401::Transitional - HTML 4.01 Transitional
lib/HTML/Native/Document.pm view on Meta::CPAN
my $title = shift || "";
my $self = $class->next::method ( $title,
"<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n".
"<!DOCTYPE html PUBLIC ".
"\"-//W3C//DTD XHTML 1.0 Strict//EN\" ".
"\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n" );
$self->{xmlns} = "http://www.w3.org/1999/xhtml";
return $self;
}
lib/HTML/Native/Document.pm view on Meta::CPAN
my $title = shift || "";
my $self = $class->next::method ( $title,
"<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n".
"<!DOCTYPE html PUBLIC ".
"\"-//W3C//DTD XHTML 1.0 Transitional//EN\" ".
"\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">\n" );
$self->{xmlns} = "http://www.w3.org/1999/xhtml";
return $self;
}
lib/HTML/Native/Document.pm view on Meta::CPAN
my $title = shift || "";
my $self = $class->next::method ( $title,
"<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n".
"<!DOCTYPE html PUBLIC ".
"\"-//W3C//DTD XHTML 1.0 Frameset//EN\" ".
"\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd\">\n" );
$self->{xmlns} = "http://www.w3.org/1999/xhtml";
return $self;
}
lib/HTML/Native/Document.pm view on Meta::CPAN
my $title = shift || "";
my $self = $class->next::method ( $title,
"<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n".
"<!DOCTYPE html PUBLIC ".
"\"-//W3C//DTD XHTML 1.1//EN\" ".
"\"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd\">\n" );
$self->{xmlns} = "http://www.w3.org/1999/xhtml";
return $self;
}
view release on metacpan or search on metacpan
lib/HTML/Normalize.pm view on Meta::CPAN
=item I<-compact>: optional
Setting C<< -compact => 1 >> suppresses generation of 'optional' close tags.
This reduces the sizeof the output slightly at the expense of breaking any hope
of XHTML compliance.
=item I<-default>: optional - multiple
Define a default attribute for an element. Default attributes are removed if the
attribute value has not been overridden in a parent node. For element such as
view release on metacpan or search on metacpan
lib/HTML/Obj2HTML.pm view on Meta::CPAN
Which currency to format output for when encountering the built in C<currency>
element.
=item * C<mode>
XHTML or HTML
=item * C<warn_on_unknown_tag>
Whether or not to print a warning to STDERR (using carp) when encountering an
element that doesn't look like an HTML element, or registered extension element
view release on metacpan or search on metacpan
lib/HTML/Parser/Simple.pm view on Meta::CPAN
$self -> current_node($self -> create_new_node('root', '', Tree::Simple -> ROOT) );
$self -> root($self -> current_node);
if ($self -> xhtml)
{
# Compared to the non-XHTML re, this has an extra ':' in the first [].
$self -> tagged_attribute
(
q#^(<(\w+)((?:\s+[-:\w]+(?:\s*=\s*(?:(?:"[^"]*")|(?:'[^']*')|[^>\s]+))?)*)\s*(\/?)>)#
);
lib/HTML/Parser/Simple.pm view on Meta::CPAN
if ($new)
{
$self -> tagged_attribute
(
# Compared to the non-XHTML re, this has an extra ':' in the first [].
q#^(<(\w+)((?:\s+[-:\w]+(?:\s*=\s*(?:(?:"[^"]*")|(?:'[^']*')|[^>\s]+))?)*)\s*(\/?)>)#
);
}
else
lib/HTML/Parser/Simple.pm view on Meta::CPAN
=item o xhtml => $Boolean
This takes either a 0 or a 1.
0 means do not accept an XML declaration, such as <?xml version="1.0" encoding="UTF-8"?>
at the start of the input file, and some other XHTML features, explained next.
1 means accept XHTML input.
Default: 0.
The only XHTML changes to this code, so far, are:
=over 4
=item o Accept the XML declaration
view release on metacpan or search on metacpan
lib/HTML/HeadParser.pm view on Meta::CPAN
# <link href="http:..." rel="xxx" rev="xxx" title="xxx">
my $href = delete($attr->{href});
$href =~ s/^\s+//; $href =~ s/\s+$//; # HTML5
my $h_val = "<$href>";
for (sort keys %{$attr}) {
next if $_ eq "/"; # XHTML junk
$h_val .= qq(; $_="$attr->{$_}");
}
$self->{'header'}->push_header(Link => $h_val);
} elsif ($tag eq 'head' || $tag eq 'html') {
# ignore
view release on metacpan or search on metacpan
and server-side-include technology. The syntax is designed to minimize
its footprint in a design-intensive consulting environment where designers,
not programmers, controlled and maintained the final HTML product.
Inherently, all Web apps are built using MVC architecture. The MVC View
consists of formatting languages HTML, XHTML and JavaScript; the MVC Model
is developed in a control language- if you're reading this, probably Perl.
It follows, then, that every solution for web app development implements
MVC. Given its original circumstances, the Pen solution implements the
View-Control integration with a stronger bias towards the View side.
view release on metacpan or search on metacpan
lib/HTML/Perlinfo/Base.pm view on Meta::CPAN
sub print_htmlstart {
my $html = <<"END_OF_HTML";
<?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">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
END_OF_HTML
}
view release on metacpan or search on metacpan
t/html/acidtest.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">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<script type="text/javascript" src="http://ajax.googleapis.com/ajax/libs/jquery/1.4/jquery.min.js"></script>
<title>Untitled Document</title>
view release on metacpan or search on metacpan
lib/HTML/RelExtor.pm view on Meta::CPAN
=back
=head1 EXAMPLES
Collect A links tagged with C<< rel="friend" >> used in XFN (XHTML Friend Network).
my $p = HTML::RelExtor->new();
$p->parse($html);
my @links = map { $_->href }
view release on metacpan or search on metacpan
lib/HTML/ResolveLink.pm view on Meta::CPAN
);
$html = $resolver->resolve($html);
=head1 DESCRIPTION
HTML::ResolveLink is a module to rewrite relative links in XHTML or
HTML into absolute URI.
For example. when you have
<a href="foo.html">foo</a>
view release on metacpan or search on metacpan
t/declaration.t view on Meta::CPAN
is $hr->process($text), q{}, 'declaration not preserved';
$hr->allow_declaration(1);
is $hr->process($text), '<!DOCTYPE HTML>', 'declaration is preserved';
$text
= q{<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">};
is $hr->process($text), $text, 'declaration preserved';
done_testing();
view release on metacpan or search on metacpan
lib/HTML/Seamstress.pm view on Meta::CPAN
=head2 Reap the benefits of using HTML::Tree
=head3 Pragmatic HTML instead of strict X(HT)ML
The real world is unfortunately more about getting HTML to work with
IE and maybe 1 or 2 other browsers. Strict XHTML may not be acceptable
under time and corporate pressures to get things to work with quirky
browsers.
=head3 Rich API and User Contributions
view release on metacpan or search on metacpan
lib/HTML/SimpleLinkExtor.pm view on Meta::CPAN
You can extract all the links or some of the links (based on the HTML
tag name or attribute name). If a C<< <BASE HREF> >> tag is found,
all of the relative URLs will be resolved according to that reference.
This module is simply a subclass around C<HTML::LinkExtor>, so it can
only parse what that module can handle. Invalid HTML or XHTML may
cause problems.
If you parse multiple files, the link list grows and contains the
aggregate list of links for all of the files parsed. If you want to
reset the link list between files, use the clear_links method.
view release on metacpan or search on metacpan
t/data/sites/fully-correct/index.html view on Meta::CPAN
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE
html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en-US">
<head>
<title>Main site</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
view release on metacpan or search on metacpan
lib/HTML/Spry/DataSet.pm view on Meta::CPAN
unless ( defined $html ) {
Carp::croak("Failed to open '$file' for write");
}
# Write the file
$html->say('<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">');
$html->say('<html>');
$html->say('<head>');
$html->say('<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />');
$html->say('</head>');
$html->say('<body>');
view release on metacpan or search on metacpan
Actual tests!
2002-04-09 0.06 Sixth release
Add well_formed() method to control trailing slash in elements
(unfortunately defaults to false - thanks, Netscape)
Make sure everything is otherwise XHTML compliant
Fix text() and textarea() examples
2001-06-15 0.05 Fifth release
Add set_sticky() method to allow re-counting of parameters/forcing stickiness
Add values_as_labels() attribute/method
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
t/14xhtml.t view on Meta::CPAN
file => './t/xhtml.html',
param => $q,
);
like($s->output, qr/<\?xml version="1.0" encoding="utf-8"\?>/);
like($s->output, qr(<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1\.0 Transitional//EN"));
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>