lib/Bookmarks/V/TT.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

package Bookmarks::V::TT; 
 
use strict;
use base 'Catalyst::View::TT';
 
sub process {
    my ( $self, $c ) = @_;
    my $ret=$self->NEXT::process($c);
    if ($ret==1
            and $c->res->content_type =~ m{text/html}) {
        my $ct=$c->res->content_type;
        $ct=~s{text/html}{application/xhtml+xml};
        $c->res->content_type($ct);
    }
    return $ret;
}
 
=head1 NAME
 
Bookmarks::V::TT - TT View Component
 
=head1 SYNOPSIS
 
See L<Bookmarks>
 
=head1 DESCRIPTION
 
TT View Component.
 
=head1 AUTHOR
 
A clever guy
 
=head1 LICENSE
 
This library is free software . You can redistribute it and/or modify
it under the same terms as perl itself.
 
=cut
 
1;