File Coverage

blib/lib/WQS/SPARQL/Query/Count.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	6	6	100.0
condition			n/a
subroutine	7	7	100.0
pod	3	3	100.0
total	45	45	100.0

package WQS::SPARQL::Query::Count;

use strict;
use warnings;

use Class::Utils qw(set_params);
use Error::Pure qw(err);

our $VERSION = 0.03;

sub new {
	my ($class, @params) = @_;

	# Create object.
	my $self = bless {}, $class;

	# Process parameters.
	set_params($self, @params);

	return $self;
}

sub count_item {
	my ($self, $property, $item) = @_;

	if ($property !~ m/^P\d+$/ms) {
		err "Bad property '$property'.";
	}
	if ($item !~ m/^Q\d+$/ms) {
		err "Bad item '$item'.";
	}

	my $sparql = <<"END";
SELECT (COUNT(?item) as ?count) WHERE {
  ?item wdt:$property wd:$item
}
END

	return $sparql;
}

sub count_value {
	my ($self, $property, $value) = @_;

	if ($property !~ m/^P\d+$/ms) {
		err "Bad property '$property'.";
	}

	$value =~ s/'/\\'/msg;
	my $sparql = <<"END";
SELECT (COUNT(?item) as ?count) WHERE {
  ?item wdt:$property '$value'
}
END

	return $sparql;
}

1;

__END__