Date: Thu, 17 Apr 2014 20:47:30 +0000 (UTC) From: Dag-Erling Smørgrav <des@FreeBSD.org> To: src-committers@freebsd.org, svn-src-user@freebsd.org Subject: svn commit: r264626 - user/des/fbp/lib/FBP/Schema/Result Message-ID: <201404172047.s3HKlUYY040778@svn.freebsd.org>
next in thread | raw e-mail | index | archive | help
Author: des Date: Thu Apr 17 20:47:30 2014 New Revision: 264626 URL: http://svnweb.freebsd.org/changeset/base/264626 Log: Add "voters" accessor to polls and questions. Modified: user/des/fbp/lib/FBP/Schema/Result/Poll.pm user/des/fbp/lib/FBP/Schema/Result/Question.pm Modified: user/des/fbp/lib/FBP/Schema/Result/Poll.pm ============================================================================== --- user/des/fbp/lib/FBP/Schema/Result/Poll.pm Thu Apr 17 20:42:03 2014 (r264625) +++ user/des/fbp/lib/FBP/Schema/Result/Poll.pm Thu Apr 17 20:47:30 2014 (r264626) @@ -233,6 +233,32 @@ sub votes_rs($) { return $self->questions->search_related_rs('votes'); } +=head2 voters + +Return persons who have voted in this poll. In list context, returns +a list of voters. In scalar context, returns a resultset. + +=cut + +sub voters($) { + my ($self) = @_; + + return wantarray() ? $self->voters_rs->all : $self->voters_rs; +} + +=head2 voters_rs + +Return persons who have voted in this poll as a resultset. + +=cut + +sub voters_rs($) { + my ($self) = @_; + + return $self->questions->search_related_rs('votes')-> + search_related_rs('voter', undef, { distinct => 1 }); +} + =head2 validate_answer Validates an answer to this poll and dies if it is not valid. Modified: user/des/fbp/lib/FBP/Schema/Result/Question.pm ============================================================================== --- user/des/fbp/lib/FBP/Schema/Result/Question.pm Thu Apr 17 20:42:03 2014 (r264625) +++ user/des/fbp/lib/FBP/Schema/Result/Question.pm Thu Apr 17 20:47:30 2014 (r264626) @@ -182,6 +182,31 @@ __PACKAGE__->has_many( # Created by DBIx::Class::Schema::Loader v0.07039 @ 2014-04-16 20:57:55 # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:I/1G7NpDuffuLD3XnoJLpw +=head2 voters + +Return persons who have responded to this question. In list context, +returns a list of voters. In scalar context, returns a resultset. + +=cut + +sub voters($) { + my ($self) = @_; + + return wantarray() ? $self->voters_rs->all : $self->voters_rs; +} + +=head2 voters_rs + +Return persons who have responded to this question as a resultset. + +=cut + +sub voters_rs($) { + my ($self) = @_; + + return $self->votes->search_related_rs('voter', undef, { distinct => 1 }); +} + =head2 validate_answer Validates an answer to this question and dies if it is not valid.
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201404172047.s3HKlUYY040778>