svn commit: r264626 - user/des/fbp/lib/FBP/Schema/Result

[Dag-Erling Smørgrav]

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.