File Coverage

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

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

## XML::Generator::RSS10::egms
## An extension to Dave Rolsky's XML::Generator::RSS10 to handle the UK Government eGMS category metadata
## Written by Andrew Green, Article Seven, http://www.article7.co.uk/
## Sponsored by Woking Borough Council, http://www.woking.gov.uk/
## Last updated: Tuesday, 02 May 2006

package XML::Generator::RSS10::egms;

$VERSION = '0.02';

use strict;
use Carp;

use XML::Generator::RSS10::gcl;
use XML::Generator::RSS10::lgcl;
use XML::Generator::RSS10::ipsv;

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

1;

####

sub NamespaceURI {

   'http://www.esd.org.uk/standards/egms/3.0/egms-schema#'

}

####

sub contents {

   my $self = shift;
   my $rss = shift;
   my $p = shift;

   foreach my $elt ( sort keys %{$p} ) {
      if ($elt eq 'SubjectCategory') {
         $rss->_start_element('egms','SubjectCategory');
         $rss->_newline_if_pretty;
         if ((ref($p->{$elt}) eq 'ARRAY') && (scalar(@{$p->{$elt}}) == 1)) {
            $self->_category_data($rss,${$p->{$elt}}[0]);
         } elsif (ref($p->{$elt}) eq 'ARRAY') {
            $rss->_start_element('rdf','Bag');
            $rss->_newline_if_pretty;
            foreach my $category (@{$p->{$elt}}) {
               $rss->_start_element('rdf','li');
               $rss->_newline_if_pretty;
               $self->_category_data($rss,$category);
               $rss->_end_element('rdf','li');
               $rss->_newline_if_pretty;
            }
            $rss->_end_element('rdf', 'Bag');
            $rss->_newline_if_pretty;
         } elsif (ref($p->{$elt}) eq 'SCALAR') {
            $self->_generic_category_data($rss,$p->{$elt});
         } else {
            croak "SubjectCategory data must be an array of arrays or a single scalar\n";
         }
         $rss->_end_element('egms','SubjectCategory');
      } else {
         # this is where we should really handle the optional eGMS elements formally...
         $rss->_element_with_data('egms',$elt,$p->{$elt});
      }
      $rss->_newline_if_pretty;
   }
}

####

sub _category_data {

   my ($self,$rss,$category) = @_;

   if (lc($category->[0]) eq 'ipsv') {
      croak "Can't add IPSV category data without 'ipsv' in your list of modules\n" unless ($rss->{'modules'}{'ipsv'});
      XML::Generator::RSS10::ipsv->category($rss,$category->[1]);
   } elsif (lc($category->[0]) eq 'gcl') {
      croak "Can't add GCL category data without 'gcl' in your list of modules\n" unless ($rss->{'modules'}{'gcl'});
      XML::Generator::RSS10::gcl->category($rss,$category->[1]);
   } elsif (lc($category->[0]) eq 'lgcl') {
      croak "Can't add LGCL category data without 'lgcl' in your list of modules\n" unless ($rss->{'modules'}{'lgcl'});
      XML::Generator::RSS10::lgcl->category($rss,$category->[1]);
   } else {
      $self->_generic_category_data($rss,$category->[1]);
   }

}

####

sub _generic_category_data {

   my ($self,$rss,$category_value) = @_;

   $rss->_start_element('egms','SubjectCategoryClass');
   $rss->_newline_if_pretty;
   $rss->_element_with_data('rdf','value',$category_value);
   $rss->_newline_if_pretty;
   $rss->_end_element('egms','SubjectCategoryClass');
   $rss->_newline_if_pretty;

}

####

__END__