File Coverage

blib/lib/RDF/DOAP/Person.pm

Criterion	Covered	Total	%
statement	39	43	90.7
branch	14	24	58.3
condition	4	14	28.5
subroutine	9	9	100.0
pod	0	1	0.0
total	66	91	72.5

package RDF::DOAP::Person;

our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION   = '0.103';

use Moose;
extends qw(RDF::DOAP::Resource);

use overload
	q[""]    => sub { shift->to_string },
	fallback => 1;

use RDF::DOAP::Types -types;
use RDF::DOAP::Utils -traits;

use RDF::Trine::Namespace qw(rdf rdfs owl xsd);
my $foaf = 'RDF::Trine::Namespace'->new('http://xmlns.com/foaf/0.1/');

has $_ => (
	traits     => [ WithURI ],
	is         => 'ro',
	isa        => String,
	coerce     => 1,
	uri        => $foaf->$_,
) for qw( name nick );

has mbox => (
	traits     => [ WithURI ],
	is         => 'ro',
	isa        => ArrayRef[Identifier],
	coerce     => 1,
	uri        => $foaf->mbox,
	multi      => 1,
	lazy       => 1,
	builder    => '_build_mbox',
);

has cpanid => (
	is         => 'ro',
	isa        => Maybe[Str],
	lazy       => 1,
	builder    => '_build_cpanid',
);

sub _build_cpanid
{
	my $self = shift;
	return unless $self->has_rdf_about;
	return unless $self->rdf_about->is_resource;
	$self->rdf_about->uri =~ m{^http://purl\.org/NET/cpan-uri/person/(\w+)$}
		and return $1;
	return;
}

sub _build_mbox
{
	my $self = shift;
	return [sprintf('mailto:[e-mail]', $self->cpanid)]
		if defined $self->cpanid;
	return [];
}

sub to_string
{
	my $self = shift;

	return $self->name
		|| $self->nick
		|| $self->cpanid
		|| ($self->mbox && $self->mbox->[0]->uri)
		|| ($self->rdf_about && $self->rdf_about->uri)
		|| 'Anonymous'
		if @_ && $_[0] eq 'compact';

	my @parts;
	if ($self->name)
	{
		push @parts, $self->name;
		if ($self->cpanid)
		{
			push @parts, sprintf('(%s)', uc $self->cpanid);
		}
	}
	else
	{
		my $nick = uc($self->nick) || uc($self->cpanid);
		push @parts, $nick if $nick;
	}

	for my $mbox (@{$self->mbox})
	{
		if ($mbox and $mbox->uri =~ /^mailto:(.+)$/)
		{
			push @parts, "<$1>";
			last;
		}
	}

	for my $mbox (@{$self->mbox})
	{
		push @parts, $mbox if !@parts;
	}

	push @parts, $self->rdf_about if !@parts && $self->has_rdf_about;

	join(" ", grep !!$_, @parts) or 'Anonymous';
}

1;