Index: /lang/perl/WebService-Simple/trunk/t/02_parser_xml_feed.t
===================================================================
--- /lang/perl/WebService-Simple/trunk/t/02_parser_xml_feed.t (revision 29327)
+++ /lang/perl/WebService-Simple/trunk/t/02_parser_xml_feed.t (revision 29327)
@@ -0,0 +1,23 @@
+use strict;
+use Test::More qw( no_plan );
+
+BEGIN {
+    use_ok("WebService::Simple");
+}
+
+{
+    my $service = WebService::Simple->new(
+        response_parser => 'XML::Feed',
+        base_url        => "http://gdata.youtube.com/feeds/api/videos",
+    );
+
+    isa_ok( $service->response_parser,
+        "WebService::Simple::Parser::XML::Feed" );
+
+    my $response =
+      $service->get( { q => "oasis" } );
+    my $feed = $response->parse_response;
+    isa_ok( $feed, 'XML::Feed::Atom');
+}
+
+
Index: /lang/perl/WebService-Simple/trunk/lib/WebService/Simple/Parser/XML/Feed.pm
===================================================================
--- /lang/perl/WebService-Simple/trunk/lib/WebService/Simple/Parser/XML/Feed.pm (revision 29327)
+++ /lang/perl/WebService-Simple/trunk/lib/WebService/Simple/Parser/XML/Feed.pm (revision 29327)
@@ -0,0 +1,46 @@
+package WebService::Simple::Parser::XML::Feed;
+use strict;
+use warnings;
+use base qw(WebService::Simple::Parser);
+use XML::Feed;
+
+sub new {
+    my $class = shift;
+    my %args  = @_;
+    my $self  = $class->SUPER::new(%args);
+    return $self;
+}
+
+sub parse_response {
+    my $self = shift;
+    my $content = $_[0]->content;
+    XML::Feed->parse( \$content );
+}
+
+1;
+
+__END__
+=head1 NAME
+
+WebService::Simple::Parser::XML::Feed - Parse XML content using XML::Feed
+
+=head1 SYNOPSIS
+
+  my $service = WebService::Simple->new(
+    base_url => ...,
+    response_parser => 'XML::Feed',
+  );
+  my $res = $service->get(...);
+  my $feed = $res->parse_response();
+
+=head1 METHODS
+
+=head2 new
+
+=head2 parse_response
+
+=head1 AUTHOR
+
+Yusuke Wada  C<< <yusuke@kamawada.com> >>
+
+=cut