File Coverage

blib/lib/Web/Feed.pm

Criterion	Covered	Total	%
statement	21	105	20.0
branch	0	12	0.0
condition	1	4	25.0
subroutine	7	10	70.0
pod	0	3	0.0
total	29	134	21.6

package Web::Feed;
use strict;
use warnings;
use 5.010;
use DateTime::Tiny;
use Time::Local qw(timegm);
use POSIX ();

our $VERSION = '0.12';

sub new {
	my ($class, %data) = @_;
	my $self = bless \%data, $class;
	$self->{path} //= 'atom';
	return $self;
}


sub atom {
	my ($self) = @_;

	my $url = $self->{url};
	$url =~ s{/*$}{};

	my $xml = '';
	$xml .= qq{\n};
	$xml .= qq{\n};
	$xml .= qq{\n};
	$xml .= qq{$self->{title}\n};
	$xml .= qq{$url/\n};
	$xml .= qq{$self->{updated}Z\n};

	foreach my $e (@{ $self->{entries} }) {
		$xml .= qq{\n};

		$xml .= qq{  $e->{title}\n};
		$xml .= qq{  $e->{summary}\n};
		$xml .= qq{  $e->{updated}Z\n};

		$xml .= qq{  };
		my $id = $e->{id};
		if (not $id) {
			$id = $e->{link};
			$id =~ s/\?.*//;
		}
		$xml .= qq{  $id\n};
		my $content = $e->{content} // '';
		$xml .= qq{  $content\n};

		if ($e->{author}) {
			$xml .= qq{    \n};
			$xml .= qq{      $e->{author}{name}\n};
			#$xml .= qq{      $e->{author}{email}\n};
			$xml .= qq{    \n};
		}

		$xml .= qq{\n};
	};
	$xml .= qq{\n};

	return $xml;
}

sub _pubDate {
	my ($date) = @_;
	my $dt = DateTime::Tiny->from_string( "$date" ); # forced stringification
	my $pubDate = POSIX::strftime("%a, %d %b %Y %H:%M:%S GMT", gmtime timegm( $dt->second, $dt->minute, $dt->hour, $dt->day, $dt->month-1, $dt->year ));
	return $pubDate;
}


sub rss {
	my ($self) = @_;

	my $url = $self->{url};
	$url =~ s{/*$}{};
	my $pubDate = _pubDate($self->{updated});

	# itunes specs: http://www.apple.com/itunes/podcasts/specs.html
	my $xml = '';
	$xml .= qq{\n};
	$xml .= qq{\n};
	$xml .= qq{\n};
	$xml .= qq{  $self->{title}\n};
	$xml .= qq{  $url/\n};
	$xml .= qq{  $pubDate\n};
	$xml .= qq{  $self->{description}\n};
	$xml .= qq{  $self->{language}\n};
	$xml .= qq{  $self->{copyright}\n};

	$xml .= qq{  $self->{subtitle}\n};
	$xml .= qq{  $self->{author}\n};
	$xml .= qq{  $self->{summary}\n};
	if ($self->{image}) {
		$xml .= qq{  \n};
	}
	if ($self->{keywords}) {
		my $keywords = join ', ', @{ $self->{keywords} };
		$xml .= qq{  $keywords\n};
	}
	$xml .= qq{  \n};
	$xml .= qq{    $self->{itunes_name}\n};
	$xml .= qq{    $self->{itunes_email}\n};
	$xml .= qq{  \n};
    $xml .= qq{  no\n};
	$xml .= qq{  \n};

	foreach my $e (@{ $self->{entries} }) {
		$xml .= qq{  \n};
		$xml .= qq{    $e->{title}\n};
		$xml .= qq{    $e->{link}\n};
		$xml .= qq{    $e->{link}\n};
		$xml .= qq{    $e->{summary}\n};
#		$xml .= qq{    $e->{updated}Z\n};

#		$xml .= qq{    $e->{id}\n};
#		$xml .= qq{    $e->{content}\n};
		if ($e->{author}) {
			$xml .= qq{    $e->{author}{name}\n};
#			$xml .= qq{    \n};
#			$xml .= qq{      $e->{author}{name}\n};
#			$xml .= qq{      $e->{author}{email}\n};
#			$xml .= qq{    \n};
		}

		if ($e->{itunes}) {
			my $pubDate = _pubDate($e->{updated});
			$xml .= qq{    $pubDate\n};
			$xml .= qq{    $e->{itunes}{author}\n};
#			$xml .= qq{    \n};
			$xml .= qq{    $e->{itunes}{summary}\n};
#			$xml .= qq{    \n};
			$xml .= qq{    \n};
			$xml .= qq{    $e->{itunes}{duration}\n};
		}


		$xml .= qq{  \n};
	}

	$xml .= qq{\n};
	$xml .= qq{\n};

	return $xml;
}

1;

=pod

=head1 NAME

Web::Feed - generate Atom and RSS feeds and sitemaps.xml files

=head1 DESCRIPTION

Experimental code.

=head1 COPYRIGHT

(c) 2014 Gabor Szabo

=head1 LICENSE

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

=cut

# Copyright 2014 Gabor Szabo
# LICENSE
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl 5 itself.