Commits

Toby Inkster committed 92ed563

prepare for release

  • Participants
  • Parent commits 820a702

Comments (0)

Files changed (7)

File lib/RDF/iCalendar.pm

 use 5.008;
 use strict;
 use RDF::iCalendar::Exporter;
-use RDF::iCalendar::Importer;
 
-our $VERSION = '0.003';
+BEGIN {
+	$RDF::iCalendar::AUTHORITY = 'cpan:TOBYINK';
+	$RDF::iCalendar::VERSION   = '0.003';
+}
 
 1;
 

File lib/RDF/iCalendar/Exporter.pm

 	IX('category')   => ['categories', \&_value_export_category],
 	);
 	
-sub rebless
+sub _rebless
 {
 	my ($self, $thing) = @_;
 	if ($thing->isa('RDF::vCard::Line'))
 	}
 }
 
-sub debug
+sub _debug
 {
 #	my ($self, @debug) = @_;
 #	printf(@debug);
 	
 	my $c = RDF::iCalendar::Entity->new( profile=>$profile );
 	
-	$self->debug("COMPONENT: %s", flatten_node($subject));
+	$self->_debug("COMPONENT: %s", flatten_node($subject));
 	
 	my $lists = {};
 	
 	my $triples = $model->get_statements($subject, undef, undef);
 	while (my $triple = $triples->next)
 	{
-		$self->debug("  %s %s", $triple->predicate->sse, $triple->object->sse);
+		$self->_debug("  %s %s", $triple->predicate->sse, $triple->object->sse);
 	
 		if (defined $dispatch{$triple->predicate->uri}
 		and ref($dispatch{$triple->predicate->uri}) eq 'CODE')
 		{
-			$self->debug("   -> dispatch");
+			$self->_debug("   -> dispatch");
 			my $code = $dispatch{$triple->predicate->uri};
 			my $r    = $code->($self, $model, $triple);
 			if (blessed($r) and $r->isa('RDF::iCalendar::Line'))
 		elsif (defined $list_dispatch{$triple->predicate->uri}
 		and ref($list_dispatch{$triple->predicate->uri}) eq 'ARRAY')
 		{
-			$self->debug("   -> list_dispatch");
+			$self->_debug("   -> list_dispatch");
 			my ($listname, $code) = @{ $list_dispatch{$triple->predicate->uri} };
 			push @{ $lists->{$listname} }, $code->($self, $model, $triple);
 		}
 		elsif ((substr($triple->predicate->uri, 0, length(&I)) eq &I
 		or substr($triple->predicate->uri, 0, length(&IX)) eq &IX))
 		{
-			$self->debug("   -> default");
+			$self->_debug("   -> default");
 			$c->add($self->_prop_export_simple($model, $triple))
 				unless $triple->object->is_blank;
 		}
 		else
 		{
-			$self->debug("   -> NO ACTION");
+			$self->_debug("   -> NO ACTION");
 		}
 	}
 	
 {
 	my ($self, $model, $triple) = @_;
 	my $rv = $self->SUPER::_prop_export_simple($model, $triple);
-	return $self->rebless($rv);
+	return $self->_rebless($rv);
 }
 
 # iCalendar forces different datetime/date formats than
 {
 	my ($self, $model, $triple) = @_;
 
-	$self->debug("      Location: %s", flatten_node($triple->object));
+	$self->_debug("      Location: %s", flatten_node($triple->object));
 
 	if ($triple->object->is_literal)
 	{
-		$self->debug("       -> literal");
+		$self->_debug("       -> literal");
 		return $self->_prop_export_simple($model, $triple);
 	}
 
 			)
 		)
 	{
-		$self->debug("       -> vcard");
+		$self->_debug("       -> vcard");
 		my $card = $self->export_card($model, $triple->object);
 		return RDF::iCalendar::Line->new(
 			property => 'location',
 			)
 		)
 	{
-		$self->debug("       -> adr");
-		my $line = $self->rebless( $self->_prop_export_adr($model, $triple) );
+		$self->_debug("       -> adr");
+		my $line = $self->_rebless( $self->_prop_export_adr($model, $triple) );
 		$line->{property} = 'location';
 		return $line;
 	}
 			)
 		)
 	{
-		$self->debug("       -> geo");
-		my $line = $self->rebless( $self->SUPER::_prop_export_geo($model, $triple) );
+		$self->_debug("       -> geo");
+		my $line = $self->_rebless( $self->SUPER::_prop_export_geo($model, $triple) );
 		$line->{property} = 'location';
 		return $line;
 	}

File meta/changes.ttl

 	:file-release   <http://backpan.cpan.org/authors/id/T/TO/TOBYINK/RDF-iCalendar-0.003.tar.gz> ;
 	dcs:changeset [
 		dcs:versus my:v_0-002 ;
+		dcs:item   [ rdfs:label "Drop some dependencies." ] ;
+		dcs:item   [ rdfs:label "Various minor cleanups." ] ;
 		dcs:item   [ rdfs:label "Module::Package::RDF." ; a dcs:Packaging ] 
 	] .
 
+use Test::More;
+eval "use Test::Pod 1.00";
+plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
+all_pod_files_ok();
+

File xt/02pod_coverage.t

+use Test::More;
+use Test::Pod::Coverage;
+
+my @modules = qw(RDF::iCalendar::Exporter RDF::iCalendar::Entity RDF::iCalendar::Line);
+pod_coverage_ok($_, "$_ is covered")
+	foreach @modules;
+done_testing(scalar @modules);
+

File xt/03meta_uptodate.t

+use Test::More tests => 1;
+use Test::RDF::DOAP::Version;
+doap_version_ok('RDF-iCalendar', 'RDF::iCalendar');
+
+use Test::EOL;
+all_perl_files_ok();