CPAN::Groonga

age RDF::vCard::Entity;

use 5.008;
use strict;
use warnings;
no warnings qw(uninitialized);

use JSON qw[];
use RDF::TrineX::Functions
	-shortcuts,
	statement => { -as => 'rdf_statement' },
	iri     

return $self;
}

sub to_jcard
{
	my ($self, $hashref) = @_;
	return ($hashref ? $self->TO_JSON : JSON::to_json($self));
}

{
	my @singular = qw(fn n bday tz geo sort-string uid class rev
		anniversary

 dday death gender kind prodid sex version);
	my @typed = qw(email tel adr label impp);
	
	sub TO_JSON
	{
		my ($self) = @_;
		my $object = {};
		
		foreach my $line (@{ $self->lines })
		{
			my $p =