—
—

              
package Catalyst::View::REST::XML;
use strict;
use base 'Catalyst::View';
use XML::Simple;
our $VERSION = '0.02';
HideShow 31 lines of Pod
=head1 NAME
Catalyst::View::REST::XML - (DEPRECATED) XML View Class
=head1 SYNOPSIS
    # lib/MyApp/View/REST.pm
    package MyApp::View::REST;
    use base 'Catalyst::View::REST::XML';
    1;
    $c->forward('MyApp::View::REST');
=head1 DEPRECATION NOTICE
This module has been deprecated in favor of L<Catalyst::Action::REST>.
=head1 DESCRIPTION
This is the C<XML::Simple> view class.
=head2 OVERLOADED METHODS
=head3 process
Serializes $c->stash to $c->response->output.
=cut
sub process {
    my ( $self, $c ) = @_;
    $c->response->headers->content_type('text/xml');
    $c->response->output( XMLout $c->stash, RootName => 'response' );
    return 1;
}
HideShow 15 lines of Pod
=head1 SEE ALSO
L<Catalyst>.
=head1 AUTHOR
Sebastian Riedel, C<sri@cpan.org>
=head1 COPYRIGHT
This program is free software, you can redistribute it and/or modify it under
the same terms as Perl itself.
=cut
1;