File Coverage

blib/lib/XML/Generator/RSS10/ev.pm

Criterion	Covered	Total	%
statement	21	43	48.8
branch	0	10	0.0
condition	0	6	0.0
subroutine	7	10	70.0
pod	0	2	0.0
total	28	71	39.4

## XML::Generator::RSS10::ev
## An extension to Dave Rolsky's XML::Generator::RSS10 to handle event metadata
## Written by Andrew Green, Article Seven, http://www.article7.co.uk/
## Sponsored by Woking Borough Council, http://www.woking.gov.uk/
## Last updated: Friday, 10 March 2006

package XML::Generator::RSS10::ev;

$VERSION = '0.01';

use strict;
use Carp;

use base 'XML::Generator::RSS10::Module';

use Params::Validate qw( validate SCALAR HASHREF OBJECT );

use constant CONTENTS_SPEC => { startdate  => { type => SCALAR | HASHREF | OBJECT },
                                enddate    => { type => SCALAR | HASHREF | OBJECT },
                                location   => { type => SCALAR, optional => 1 },
                                organizer  => { type => SCALAR, optional => 1 },
                                type       => { type => SCALAR, optional => 1 }
                              };

use DateTime;
use DateTime::Format::W3CDTF;

1;

####

sub NamespaceURI {

   'http://purl.org/rss/1.0/modules/event/'

}

####

sub contents {

   my $self = shift;
   my $rss = shift;
   my %p = validate( @_, CONTENTS_SPEC );

   foreach my $elt ( sort keys %p ) {
      if (($elt eq 'startdate') || ($elt eq 'enddate')) {
			$self->_evdate($rss,$elt,$p{$elt});
      } else {
         $rss->_element_with_data('ev',$elt,$p{$elt});
      }
      $rss->_newline_if_pretty;
   }
}

####

sub _evdate {

	# if we're handed a hashref, convert it to a DateTime object and output it as W3CDTF
	# if we're handed a DateTime object, output it as W3CDTF;
	# if we're handed an integer, treat it as an epoch, make it a DateTime object, and output it as W3CDTF;
	# if we're handed any other scalar, assume it's already W3CDTF and output it verbatim

   my ($self,$rss,$elt,$date) = @_;

	my $w3cdtf;

	if (ref $date eq 'HASH') { # it's a date definition...
		my $dt = DateTime->new($date);
		my $f = DateTime::Format::W3CDTF->new;
		$w3cdtf = (exists $date->{'hour'} || exists $date->{'minute'} || exists $date->{'second'}) ? $f->format_datetime($dt) : $f->format_date($dt); # use the date alone if the hashref has no time values
	} elsif (ref $date eq 'DateTime') { # it's an object...
		my $f = DateTime::Format::W3CDTF->new;
		$w3cdtf = $f->format_datetime($date);
	} elsif ($date =~ /^[0-9]+$/) { # it's an epoch...
		my $dt = DateTime->from_epoch( epoch => $date );
		my $f = DateTime::Format::W3CDTF->new;
		$w3cdtf = $f->format_datetime($dt);
	} else {
		$w3cdtf = $date;
	}

	$rss->_element_with_data('ev',$elt,$w3cdtf);

}

__END__