view release on metacpan or  search on metacpan

lib/P2/Scheduler.pm  view on Meta::CPAN

use Moose;
use POSIX       qw(ceil);
use UUID        qw(uuid);
use Date::Calc  qw(
    Days_in_Month
    Day_of_Week
);

# resources per priority
has 'resources' => (is => 'ro', isa => 'ArrayRef', required => 1);

# the type of resource
has 'resource_type' => (is => 'ro', isa => 'Str', default => 'namespace');

# how many tests per priority per day
has 'weight'     => (is => 'rw', isa => 'ArrayRef', default => sub {[3,2,1]});

# use this to set the hours in the testing slot
has 'hour_slots' => (is => 'rw', isa => 'ArrayRef', default => sub {[1,2,3,4,5]} );
has 'fixed_intervals' => ( is => 'rw', isa => 'Bool', default => 0 );