22、Perl编程：POE与测试模块的实用指南

Perl编程：POE与测试模块的实用指南

1. POE实现RSS聚合

POE（Perl Object Environment）是一个强大的模块，可有效降低创建基于事件的程序的复杂性。下面是一个使用 POE::Component::RSSAggregator 的简单RSS新闻聚合器示例：

use XML::RSS::Feed::Factory;
my @feeds = feed_factory(
    {   url => "http://slashdot.org/slashdot.rss",
       name => "Slashdot",
      delay => 60 },
    {   url => "http://blog.simon-cozens.org/blosxom.cgi/xml",
       name => "Simon Cozens",
      delay => 60 },
    {   url => "http://use.perl.org/perl-news-short.rdf",
       name => "Perl news",
      delay => 60 }
);
my $aggie = POE::Component::RSSAggregator->new(
               feeds    => \@feeds,
               callback => \&new_headlines
);
POE::Kernel->run;

sub