File Coverage

blib/lib/XML/RSS/Headline/Fark.pm

Criterion	Covered	Total	%
statement	12	24	50.0
branch			n/a
condition			n/a
subroutine	4	5	80.0
pod	1	1	100.0
total	17	30	56.6

package XML::RSS::Headline::Fark;
use strict;
use warnings;
use base qw(XML::RSS::Headline);
use URI::Escape qw(uri_unescape);

our $VERSION = 2.32;

sub item {
    my ( $self, $item ) = @_;
    $self->SUPER::item($item);    # set url and description

    my $headline = $self->headline;
    $headline =~ s/\[.+?\]\s+//;
    $self->headline($headline);

    my $domain = qr{ http [:] [/] [/] go [.] fark [.] com }x;
    my $uri    = qr{ [/] cgi [/] fark [/] go [.] pl }x;
    my $args   = qr{ [?] IDLink [=] \d+ [&] location [=] }x;

    my $url = $self->url;
    $url =~ s/$domain$uri$args//;
    $self->url( uri_unescape($url) );

    return;
}

1;

__END__