package XML::RSS::Private::Output::V1_0; use strict; use vars (qw(@ISA)); use XML::RSS::Private::Output::Base; use XML::RSS::Private::Output::Roles::ModulesElems; @ISA = (qw(XML::RSS::Private::Output::Roles::ModulesElems XML::RSS::Private::Output::Base)); sub _get_top_elem_about { my ($self, $tag, $about_sub) = @_; return ' rdf:about="' . $self->_encode($about_sub->()) . '"'; } sub _out_textinput_rss_1_0_elems { my $self = shift; $self->_out_dc_elements($self->textinput()); # Ad-hoc modules # TODO : Should this follow the %rdf_resources conventions of the items' # and channel's modules' support ? while (my ($url, $prefix) = each %{$self->_modules()}) { next if $prefix =~ /^(dc|syn|taxo)$/; while (my ($el, $value) = each %{$self->textinput($prefix) || {}}) { $self->_out_ns_tag($prefix, $el, $value); } } } sub _get_rdf_decl_open_tag { return "_out_dc_elements($self->image()); } sub _out_item_1_0_tags { my ($self, $item) = @_; $self->_out_dc_elements($item); # Taxonomy module $self->_output_taxo_topics($item); } sub _output_rss_middle { my $self = shift; # PICS rating - Dublin Core has not decided how to incorporate PICS ratings yet #$$output .= ''.$self->{channel}->{rating}.''."\n" #$if $self->{channel}->{rating}; $self->_out_copyright(); # publication date $self->_out_defined_tag("dc:date", $self->_calc_dc_date()); # external CDF URL #$output .= ''.$self->{channel}->{docs}.''."\n" #if $self->{channel}->{docs}; $self->_out_editors; $self->_out_all_modules_elems; $self->_out_seq_items(); if ($self->_is_image_defined()) { $self->_out('\n" ); } if (defined(my $textinput_link = $self->textinput('link'))) { $self->_out('\n" ); } $self->_end_channel; $self->_output_main_elements; } sub _get_end_tag { return "rdf:RDF"; } 1;