#
# COPYRIGHT:
#
-# This software is Copyright (c) 1996-2011 Best Practical Solutions, LLC
+# This software is Copyright (c) 1996-2017 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
];
push @RULE_SETS, $class->new(\%args);
}
-eval "require RT::Ruleset_Vendor";
-if ($@ && $@ !~ qr{^Can't locate RT/Ruleset_Vendor.pm}) {
- die $@;
-};
-
-eval "require RT::Ruleset_Local";
-if ($@ && $@ !~ qr{^Can't locate RT/Ruleset_Local.pm}) {
- die $@;
-};
+RT::Base->_ImportOverlays();
1;