| XML-Generator-RSS10 documentation | Contained in the XML-Generator-RSS10 distribution. |
XML::Generator::RSS10::admin - Support for the Administrative (admin) RSS 1.0 module
use XML::Generator::RSS10;
my $rss = XML::Generator::RSS10->new( Handler => $sax_handler );
$rss->item( title => 'Exciting News About my Pants!',
link => 'http://pants.example.com/my/news.html',
description => 'My pants are full of ants!',
);
$rss->channel( title => 'Pants',
link => 'http://pants.example.com/',
description => 'A fascinating pants site',
admin => { errorReportsTo => 'pantsmaster@example.com',
generatorAgent => 'http://generator.example.com/',
},
);
This module provides support for the Administrative (admin) RSS 1.0 module.
This module handles only two parameters, "errorReportsTo" and "generatorAgent", both of which are channel subelements.
| XML-Generator-RSS10 documentation | Contained in the XML-Generator-RSS10 distribution. |
package XML::Generator::RSS10::admin; use strict; use base 'XML::Generator::RSS10::Module'; sub NamespaceURI { 'http://webns.net/mvcb/' } sub contents { my $class = shift; my $rss = shift; my $p = shift; foreach my $elt ( sort keys %$p ) { $rss->_element( $class->Prefix, $elt, [ 'rdf', 'resource', $p->{$elt} ], ); $rss->_newline_if_pretty; } } 1; __END__