view release on metacpan or  search on metacpan

lib/Catalyst/Action/Fixup/XHTML.pm  view on Meta::CPAN

    my $ret = $self->next::method( @_ );
    $self->process($c);
    return $ret;
}

1;
__END__

=head1 NAME

Catalyst::Action::Fixup::XHTML - Catalyst action which serves application/xhtml+xml content if the browser accepts it.

=head1 SYNOPSIS

    sub end : ActionClass('Fixup::XHTML') {}

=head1 DESCRIPTION

A simple module to use L<Catalyst::View::ContentNegotiation::XHTML>

It's an action because I think it can be used in other views like Mason.

t/00-load.t  view on Meta::CPAN

#!perl -T

use Test::More tests => 1;

BEGIN {
	use_ok( 'Catalyst::Action::Fixup::XHTML' );
}

diag( "Testing Catalyst::Action::Fixup::XHTML $Catalyst::Action::Fixup::XHTML::VERSION, Perl $], $^X" );