File Coverage

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

Criterion	Covered	Total	%
statement	9	19	47.3
branch	0	2	0.0
condition	0	8	0.0
subroutine	3	4	75.0
pod	1	1	100.0
total	13	34	38.2

package XML::RSS::Headline::PerlJobs;
use strict;
use warnings;
use base qw(XML::RSS::Headline);

our $VERSION = 2.32;

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

    my $key = 'http://jobs.perl.org/rss/';

    my $name     = $item->{$key}{company_name}     || '';
    my $location = $item->{$key}{location}         || 'Unknown Location';
    my $hours    = $item->{$key}{hours}            || 'Unknown Hours';
    my $terms    = $item->{$key}{employment_terms} || 'Unknown Terms';

    my $name_location = $name ? $name . ' - ' . $location : $location;
    $self->headline("$item->{title}\n$name_location\n$hours, $terms");

    return;
}

1;

__END__