1 package Catalyst::View::ContentNegotiation::XHTML;
4 use MooseX::Types::Moose qw/Num Str ArrayRef/;
5 use MooseX::Types::Structured qw/Tuple/;
6 use HTTP::Negotiate qw/choose/;
8 use namespace::clean -except => 'meta';
10 # Remember to bump $VERSION in View::TT::XHTML also.
11 our $VERSION = '1.101';
17 isa => ArrayRef[Tuple[Str, Num, Str]],
19 builder => '_build_variants',
24 [qw| xhtml 1.000 application/xhtml+xml |],
25 [qw| html 0.900 text/html |],
29 after process => sub {
31 if ( my $accept = $self->pragmatic_accept($c) and $c->response->headers->{'content-type'} =~ m|text/html|) {
32 my $headers = $c->request->headers->clone;
33 $headers->header('Accept' => $accept);
34 if ( choose($self->variants, $headers) eq 'xhtml') {
35 $c->response->headers->{'content-type'} =~ s|text/html|application/xhtml+xml|;
40 sub pragmatic_accept {
42 my $accept = $c->request->header('Accept') or return;
43 if ($accept =~ m|text/html|) {
44 $accept =~ s!\*/\*\s*([,]+|$)!*/*;q=0.5$1!;
47 $accept =~ s!\*/\*\s*([,]+|$)!text/html,*/*;q=0.5$1!;
58 Catalyst::View::ContentNegotiation::XHTML - Adjusts the response Content-Type
59 header to application/xhtml+xml if the browser accepts it.
63 package Catalyst::View::TT;
66 use namespace::clean -except => 'meta';
68 extends qw/Catalyst::View::TT/;
69 with qw/Catalyst::View::ContentNegotiation::XHTML/;
75 This is a simple Role which sets the response C<Content-Type> to be
76 C<application/xhtml+xml> if the users browser sends an C<Accept> header
77 indicating that it is willing to process that MIME type.
79 Changing the C<Content-Type> to C<application/xhtml+xml> causes browsers to
80 interpret the page as XML, meaning that your markup must be well formed.
84 This is useful when you're developing your application, as you know that all
85 pages you view are parsed as XML, so any errors caused by your markup not
86 being well-formed will show up at once.
88 Whilst this module is has been tested against most popular browsers including
89 Internet Explorer, it may cause unexpected results on browsers which do not
90 properly support the C<application/xhtml+xml> MIME type.
92 =head1 METHOD MODIFIERS
96 Changes the response C<Content-Type> if appropriate (from the requests
101 =head2 pragmatic_accept
103 Some browsers (such as Internet Explorer) have a nasty way of sending Accept
104 */* and this claiming to support XHTML just as well as HTML. Saving to a file
105 on disk or opening with another application does count as accepting, but it
106 really should have a lower q value then text/html. This sub takes a pragmatic
107 approach and corrects this mistake by modifying the Accept header before
108 passing it to content negotiation.
114 Returns an array ref of 3 part arrays, comprising name, priority, output
115 mime-type, which is used for the content negotiation algorithm.
117 =head1 PRIVATE METHODS
119 =head2 _build_variants
121 Returns the default variant attribute contents.
127 =item L<Catalyst::View::TT::XHTML> - Trivial Catalyst TT view using this role.
129 =item L<http://www.w3.org/Protocols/rfc2616/rfc2616-sec12.html> - Content
136 Should be split into a base ContentNegotiation role which is consumed by
137 ContentNegotiation::XHTML.
141 Original author and maintainer - Tomas Doran (t0m)
142 C<< <bobtfish@bobtfish.net> >>
148 =item David Dorward - test patches and */* pragmatism to make it work for
149 browsers which aren't firefox.
151 =item Florian Ragwitz (rafl) C<< <rafl@debian.org> >> - Conversion into a
152 Moose Role, which is what the module should have been originally.
158 This module itself is copyright (c) 2008 Tomas Doran and is licensed under the
159 same terms as Perl itself.