Commits

Toby Inkster committed c8cd191

get pod tests passing

Comments (0)

Files changed (4)

lib/RDF/vCard/Entity.pm

 
   print "In London\n" if $vcard->matches(ADR => /London/);
 
+=item * C<< add_component($thing) >>
+
+Adds a nested entity within this one. This method is unused for vCard, but
+is a hook for the benefit of L<RDF::iCalendar>.
+
+=item * C<< components >>
+
+Lists nested entities within this one.
+
 =back
 
+=begin private
+
+=item TO_JSON
+
+=end private
+
 =head1 SEE ALSO
 
 L<RDF::vCard>.

lib/RDF/vCard/Exporter.pm

 The subject provided must be an RDF::Trine::Node::Blank or
 RDF::Trine::Node::Resource of type v:VCard.
 
+=item * C<< is_v3 >>
+
+Returns true if this exporter is in vCard 3.0 mode.
+
+=item * C<< is_v4 >>
+
+Returns true if this exporter is in vCard 4.0 mode.
+
 =back
 
 =head2 RDF Input

lib/RDF/vCard/Importer.pm

 
 *TO_RDF = \&model;
 
-sub ua
+sub _ua
 {
 	my ($self) = @_;
 	$self->{ua} ||= LWP::UserAgent->new(agent => sprintf('%s/%s', __PACKAGE__, $VERSION));
 	open my $fh, "<:encoding(UTF-8)", $file;
 	my $cards = Text::vFile::asData->new->parse($fh);
 	close $fh;
-	return $self->process($cards, %options);
+	return $self->_process($cards, %options);
 }
 
 sub import_fh
 {
 	my ($self, $fh, %options) = @_;
 	my $cards = Text::vFile::asData->new->parse($fh);
-	return $self->process($cards, %options);
+	return $self->_process($cards, %options);
 }
 
 sub import_url
 {
 	my ($self, $url) = @_;
-	my $r = $self->ua->get($url, Accept=>'text/directory;profile=vCard, text/vcard, text/x-vcard, text/directory;q=0.1');
+	my $r = $self->_ua->get($url, Accept=>'text/directory;profile=vCard, text/vcard, text/x-vcard, text/directory;q=0.1');
 	return unless $r->is_success;
 	return $self->import_string($r->decoded_content, lang => $r->content_language);
 }
 	my ($self, $data, %options) = @_;
 	my @lines = split /\r?\n/, $data;
 	my $cards = Text::vFile::asData->new->parse_lines(@lines);
-	return $self->process($cards, %options);
+	return $self->_process($cards, %options);
 }
 
-sub process
+sub _process
 {
 	my ($self, $cards, %options) = @_;
 	
 
 =back
 
+=begin private
+
+=item TO_RDF
+
+=end private
+
 =head2 vCard Input
 
 vCard 3.0 should be supported fairly completely. Some vCard 4.0 constructs

xt/02pod_coverage.t

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