use strict;
sub Rss::Titles {
- return join(' ',@_)=~m/<title>\s*(.*?)\s*<\/title>/gi;
+ return join( ' ', @_ ) =~ m/<title>\s*(.*?)\s*<\/title>/gi;
}
sub Rss::Rss {
- my ($message) = @_;
- my @results = &::getURL($message);
- my $retval = "i could not get the rss feed.";
+ my ($message) = @_;
+ my @results = &::getURL($message);
+ my $retval = "i could not get the rss feed.";
- my @list = &Rss::Titles(@results) if (scalar @results);
- $retval = &::formListReply(0, 'Titles: ', @list) if (scalar @list);
+ my @list = &Rss::Titles(@results) if ( scalar @results );
+ $retval = &::formListReply( 0, 'Titles: ', @list ) if ( scalar @list );
- &::performStrictReply($retval);
+ &::performStrictReply($retval);
}
1;