The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

XML::RSS::Headline::Fark - XML::RSS::Headline Example Subclass

SYNOPSIS

Strip out the extra Fark redirect URL and strip out the various [blahblah] blocks in the headline

    use XML::RSS::Feed;
    use XML::RSS::Headline::Fark;
    use LWP::Simple qw(get);

    my $feed = XML::RSS::Feed->new(
        url   => "http://www.pluck.com/rss/fark.rss",
        hlobj => "XML::RSS::Headline::Fark",
        name  => "fark",
    );

    while (1) {
        $feed->parse(get($feed->url));
        print $_->headline . "\n" for $feed->late_breaking_news;
        sleep($feed->delay); 
    }

Here is the before output in #news on irc.perl.org

    <rssbot>  - [Sad] Elizabeth Edwards diagnosed with breast cancer
    <rssbot>    http://go.fark.com/cgi/fark/go.pl?IDLink=1200026&location=http://www.msnbc.msn.com/id/6408022

and here is the updated output

    <rssbot>  - Elizabeth Edwards diagnosed with breast cancer
    <rssbot>    http://www.msnbc.msn.com/id/6408022

MUTAITED METHOD

$headline->item( $item )

Init the object for a parsed RSS item returned by XML::RSS.

AUTHOR

Copyright 2004 Jeff Bisbee <jbisbee@cpan.org>

http://search.cpan.org/~jbisbee/

COPYRIGHT

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

The full text of the license can be found in the LICENSE file included with this module.

SEE ALSO

XML::RSS::Feed, XML::RSS::Headline, XML::RSS::Headline::PerlJobs, POE::Component::RSSAggregator