File Coverage

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

Criterion	Covered	Total	%
statement	9	22	40.9
branch			n/a
condition			n/a
subroutine	3	6	50.0
pod	0	2	0.0
total	12	30	40.0

## XML::Generator::RSS10::gcl
## An extension to Dave Rolsky's XML::Generator::RSS10 to handle categories in the UK Government Category List
## To be used in conjunction with XML::Generator::RSS10::egms
## Written by Andrew Green, Article Seven, http://www.article7.co.uk/
## Sponsored by Woking Borough Council, http://www.woking.gov.uk/
## Last updated: Wednesday, 8 September 2004

package XML::Generator::RSS10::gcl;

$VERSION = '0.01';

use strict;
use Carp;

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

1;

####

sub NamespaceURI {

   'http://www.esd.org.uk/standards/gcl/2.00/gcl-schema#'

}

####

sub category {

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

   my $camelcategory = $self->_camelcase($category_value);

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

}

####

sub _camelcase {

   my ($self,$cat) = @_;
   $cat =~ s/\s*(\w+)\s*/\u\L$1/g;
   $cat =~ s/[^A-Za-z]//g;
   return $cat;

}

####

__END__