The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
{   package Catalyst::Action::SOAP::HTTPGet;

    use base qw/Catalyst::Action::SOAP/;

    sub execute {
        my $self = shift;
        my ( $controller, $c ) = @_;
        $self->prepare_soap_helper($controller,$c);
        $self->next::method(@_);
    }
};

1;

__END__

=head1 NAME

Catalyst::Action::SOAP::HTTPGet - HTTP Get service

=head1 SYNOPSIS

  # not used directly.

=head1 DESCRIPTION

This actually is here just to help delivering services that are
invoked by simple http get requests, as defined in the SOAP spec. It
won't do much, except for preparing the $c->stash->{soap} variable, so
the returns can be implemented.

=head1 TODO

There is not much to be done here.

=head1 AUTHORS

Daniel Ruoso <daniel@ruoso.com>

=head1 BUG REPORTS

Please submit all bugs regarding C<Catalyst::Controller::SOAP> to
C<bug-catalyst-controller-soap@rt.cpan.org>

=head1 LICENSE

This library is free software, you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut