#
# COPYRIGHT:
#
-# This software is Copyright (c) 1996-2011 Best Practical Solutions, LLC
+# This software is Copyright (c) 1996-2015 Best Practical Solutions, LLC
# <sales@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
use strict;
use warnings;
+
use base 'Class::Accessor::Fast';
-use UNIVERSAL::require;
__PACKAGE__->mk_accessors(qw(Name Rules));
my ($class, %args) = @_;
return [
grep { $_->Prepare }
- map { $_->new(CurrentUser => $RT::SystemUser, %args) }
+ map { $_->new(CurrentUser => RT->SystemUser, %args) }
grep { $_->_Stage eq $args{Stage} }
map { @{$_->Rules} } @RULE_SETS
];