svn commit: r235760 - in user/des/fbce: . lib/FBCE/Model

[Dag-Erling Smorgrav]

Author: des
Date: Mon May 21 23:49:14 2012
New Revision: 235760
URL: http://svn.freebsd.org/changeset/base/235760

Log:
  Add a configuration setting for the cutoff period.

Modified:
  user/des/fbce/fbce.conf
  user/des/fbce/lib/FBCE/Model/Schedule.pm

Modified: user/des/fbce/fbce.conf
==============================================================================
--- user/des/fbce/fbce.conf	Mon May 21 23:48:27 2012	(r235759)
+++ user/des/fbce/fbce.conf	Mon May 21 23:49:14 2012	(r235760)
@@ -19,6 +19,7 @@ title = 2012 FreeBSD Core Team Election
   investiture = 2012-07-04
   # XXX does not belong here
   max_votes = 9
+  cutoff = 1 year
 </Model::Schedule>
 
 <Session>

Modified: user/des/fbce/lib/FBCE/Model/Schedule.pm
==============================================================================
--- user/des/fbce/lib/FBCE/Model/Schedule.pm	Mon May 21 23:48:27 2012	(r235759)
+++ user/des/fbce/lib/FBCE/Model/Schedule.pm	Mon May 21 23:49:14 2012	(r235760)
@@ -1,7 +1,7 @@
 package FBCE::Model::Schedule;
 use Moose;
 use MooseX::Types::Common::Numeric qw(PositiveInt);
-use MooseX::Types::DateTime::MoreCoercions qw(DateTime);
+use MooseX::Types::DateTime::MoreCoercions qw(DateTime Duration);
 use DateTime;
 use namespace::autoclean;
 
@@ -66,6 +66,14 @@ has max_votes => (
     required => 1
 );
 
+# XXX does not belong here
+has cutoff => (
+    isa => Duration,
+    coerce => 1,
+    is => 'ro',
+    required => 1,
+);
+
 sub _phase($$$) {
     my ($self, $phase, $now) = @_;