Date: Thu, 17 Apr 2014 11:48:34 +0000 (UTC) From: Dag-Erling Smørgrav <des@FreeBSD.org> To: src-committers@freebsd.org, svn-src-user@freebsd.org Subject: svn commit: r264591 - user/des/fbp/lib/FBP/Schema/Result Message-ID: <201404171148.s3HBmYDe010824@svn.freebsd.org>
next in thread | raw e-mail | index | archive | help
Author: des Date: Thu Apr 17 11:48:34 2014 New Revision: 264591 URL: http://svnweb.freebsd.org/changeset/base/264591 Log: Add accessors for indirect relationships. Modified: user/des/fbp/lib/FBP/Schema/Result/Poll.pm user/des/fbp/lib/FBP/Schema/Result/Vote.pm Modified: user/des/fbp/lib/FBP/Schema/Result/Poll.pm ============================================================================== --- user/des/fbp/lib/FBP/Schema/Result/Poll.pm Thu Apr 17 10:53:10 2014 (r264590) +++ user/des/fbp/lib/FBP/Schema/Result/Poll.pm Thu Apr 17 11:48:34 2014 (r264591) @@ -181,6 +181,31 @@ sub active($;$) { DateTime->compare($when, $self->ends) <= 0; } +=head2 votes + +Return votes cast in this poll. In list context, returns a list of +votes. In scalar context, returns a resultset. + +=cut + +sub votes($) { + my ($self) = @_; + + return wantarray() ? $self->votes_rs->all : $self->votes_rs; +} + +=head2 votes_rs + +Return votes cast in this poll as a resultset. + +=cut + +sub votes_rs($) { + my ($self) = @_; + + return $self->questions->search_related_rs('votes'); +} + =head2 validate_answer Validates an answer to this poll and dies if it is not valid. @@ -207,6 +232,12 @@ sub validate_answer($%) { } } +=head2 commit_answer + +Commits an answer to this poll. + +=cut + sub commit_answer($$%) { my ($self, $voter, %answers) = @_; Modified: user/des/fbp/lib/FBP/Schema/Result/Vote.pm ============================================================================== --- user/des/fbp/lib/FBP/Schema/Result/Vote.pm Thu Apr 17 10:53:10 2014 (r264590) +++ user/des/fbp/lib/FBP/Schema/Result/Vote.pm Thu Apr 17 11:48:34 2014 (r264591) @@ -160,6 +160,18 @@ __PACKAGE__->belongs_to( # Created by DBIx::Class::Schema::Loader v0.07039 @ 2014-04-16 20:57:55 # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:TIV5w+lodXu0vgk/zqosbA +=head2 poll + +Returns the poll in which this vote was cast. + +=cut + +sub poll($) { + my ($self) = @_; + + return $self->question->poll; +} + =head1 AUTHOR Dag-Erling Smørgrav <des@freebsd.org>
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201404171148.s3HBmYDe010824>