use File::Copy;
use List::Util qw(max);
-use base qw(Bugzilla::Object);
+use parent qw(Bugzilla::Object);
###############################
#### Initialization ####
use 5.10.1;
use strict;
-use base qw(Bugzilla::Auth::Login);
+use parent qw(Bugzilla::Auth::Login);
use constant user_can_create_account => 1;
use Bugzilla::Constants;
use 5.10.1;
use strict;
-use base qw(Bugzilla::Auth::Login);
+use parent qw(Bugzilla::Auth::Login);
use Bugzilla::Constants;
use Bugzilla::Util;
use 5.10.1;
use strict;
-use base qw(Bugzilla::Auth::Login);
+use parent qw(Bugzilla::Auth::Login);
use Bugzilla::Constants;
use Bugzilla::Error;
use 5.10.1;
use strict;
-use base qw(Bugzilla::Auth::Verify);
+use parent qw(Bugzilla::Auth::Verify);
use Bugzilla::Constants;
use Bugzilla::Token;
use 5.10.1;
use strict;
-use base qw(Bugzilla::Auth::Verify);
+use parent qw(Bugzilla::Auth::Verify);
use Bugzilla::Constants;
use Bugzilla::Error;
use URI::QueryParam;
use Scalar::Util qw(blessed);
-use base qw(Bugzilla::Object Exporter);
+use parent qw(Bugzilla::Object Exporter);
@Bugzilla::Bug::EXPORT = qw(
bug_alias_to_id
LogActivityEntry
use 5.10.1;
use strict;
-use base qw(Bugzilla::Object);
+use parent qw(Bugzilla::Object);
use Bugzilla::Util;
use Bugzilla::Error;
use 5.10.1;
use strict;
-use base qw(Bugzilla::BugUrl);
+use parent qw(Bugzilla::BugUrl);
use Bugzilla::Error;
use Bugzilla::Util;
use 5.10.1;
use strict;
-use base qw(Bugzilla::BugUrl::Bugzilla);
+use parent qw(Bugzilla::BugUrl::Bugzilla);
use Bugzilla::Error;
use Bugzilla::Util;
use 5.10.1;
use strict;
-use base qw(Bugzilla::BugUrl);
+use parent qw(Bugzilla::BugUrl);
###############################
#### Methods ####
use 5.10.1;
use strict;
-use base qw(Bugzilla::BugUrl);
+use parent qw(Bugzilla::BugUrl);
###############################
#### Methods ####
use 5.10.1;
use strict;
-use base qw(Bugzilla::BugUrl);
+use parent qw(Bugzilla::BugUrl);
###############################
#### Methods ####
use 5.10.1;
use strict;
-use base qw(Bugzilla::BugUrl);
+use parent qw(Bugzilla::BugUrl);
###############################
#### Methods ####
use 5.10.1;
use strict;
-use base qw(Bugzilla::BugUrl);
+use parent qw(Bugzilla::BugUrl);
###############################
#### Methods ####
use 5.10.1;
use strict;
-use base qw(Bugzilla::BugUrl);
+use parent qw(Bugzilla::BugUrl);
###############################
#### Methods ####
use 5.10.1;
use strict;
-use base qw(Bugzilla::BugUrl);
+use parent qw(Bugzilla::BugUrl);
###############################
#### Methods ####
use 5.10.1;
use strict;
-use base qw(Bugzilla::BugUrl);
+use parent qw(Bugzilla::BugUrl);
###############################
#### Methods ####
use 5.10.1;
use strict;
-use base qw(CGI);
+use parent qw(CGI);
use Bugzilla::Constants;
use Bugzilla::Error;
use Bugzilla::Error;
use Bugzilla::Product;
-use base qw(Bugzilla::Field::ChoiceInterface Bugzilla::Object Exporter);
+use parent qw(Bugzilla::Field::ChoiceInterface Bugzilla::Object Exporter);
@Bugzilla::Classification::EXPORT = qw(sort_products_by_classification);
###############################
use 5.10.1;
use strict;
-use base qw(Bugzilla::Object);
+use parent qw(Bugzilla::Object);
use Bugzilla::Attachment;
use Bugzilla::Constants;
use 5.10.1;
use strict;
-use base qw(Bugzilla::Field::ChoiceInterface Bugzilla::Object);
+use parent qw(Bugzilla::Field::ChoiceInterface Bugzilla::Object);
use Bugzilla::Constants;
use Bugzilla::Util;
use 5.10.1;
use strict;
-use base qw(Exporter);
+use parent qw(Exporter);
use Bugzilla::Constants;
use Bugzilla::Hook;
use Data::Dumper;
use Bugzilla::Group;
use Bugzilla::Status;
-use base qw(Exporter);
+use parent qw(Exporter);
@Bugzilla::Config::Common::EXPORT =
qw(check_multi check_numeric check_regexp check_url check_group
check_sslbase check_priority check_severity check_platform
use 5.10.1;
use strict;
-use base qw(Exporter);
+use parent qw(Exporter);
# For bz_locations
use File::Basename;
use DBI;
# Inherit the DB class from DBI::db.
-use base qw(DBI::db);
+use parent -norequire, qw(DBI::db);
use Bugzilla::Constants;
use Bugzilla::Install::Requirements;
use 5.10.1;
use strict;
-use base qw(Bugzilla::DB);
+use parent qw(Bugzilla::DB);
use Bugzilla::Constants;
use Bugzilla::Install::Util qw(install_string);
use 5.10.1;
use strict;
-use base qw(Bugzilla::DB);
+use parent qw(Bugzilla::DB);
use DBD::Oracle;
use DBD::Oracle qw(:ora_types);
use 5.10.1;
use strict;
-use base qw(DBI::st);
+use parent qw(DBI::st);
sub fetchrow_arrayref {
my $self = shift;
use DBD::Pg;
# This module extends the DB interface via inheritance
-use base qw(Bugzilla::DB);
+use parent qw(Bugzilla::DB);
use constant BLOB_TYPE => { pg_type => DBD::Pg::PG_BYTEA };
use Bugzilla::Error;
-use base qw(Bugzilla::DB::Schema);
+use parent qw(Bugzilla::DB::Schema);
# This is for column_info_to_column, to know when a tinyint is a
# boolean and when it's really a tinyint. This only has to be accurate
use 5.10.1;
use strict;
-use base qw(Bugzilla::DB::Schema);
+use parent qw(Bugzilla::DB::Schema);
use Carp qw(confess);
use Bugzilla::Util;
use 5.10.1;
use strict;
-use base qw(Bugzilla::DB::Schema);
+use parent qw(Bugzilla::DB::Schema);
use Storable qw(dclone);
#------------------------------------------------------------------------------
use 5.10.1;
use strict;
-use base qw(Bugzilla::DB::Schema);
+use parent qw(Bugzilla::DB::Schema);
use Bugzilla::Error;
use Bugzilla::Util qw(generate_random_password);
use 5.10.1;
use strict;
-use base qw(Bugzilla::DB);
+use parent qw(Bugzilla::DB);
use Bugzilla::Constants;
use Bugzilla::Error;
use 5.10.1;
use strict;
-use base qw(Exporter);
+use parent qw(Exporter);
@Bugzilla::Error::EXPORT = qw(ThrowCodeError ThrowTemplateError ThrowUserError);
package Bugzilla::Extension::Foo
use strict;
- use base qw(Bugzilla::Extension);
+ use parent qw(Bugzilla::Extension);
our $VERSION = '0.02';
use constant NAME => 'Foo';
use 5.10.1;
use strict;
-use base qw(Exporter Bugzilla::Object);
+use parent qw(Exporter Bugzilla::Object);
@Bugzilla::Field::EXPORT = qw(check_field get_field_id get_legal_field_values);
use Bugzilla::Constants;
use 5.10.1;
use strict;
-use base qw(Bugzilla::Field::ChoiceInterface Bugzilla::Object);
+use parent qw(Bugzilla::Field::ChoiceInterface Bugzilla::Object);
use Bugzilla::Config qw(SetParam write_params);
use Bugzilla::Constants;
if (!defined *{"${package}::DB_TABLE"}) {
eval <<EOC;
package $package;
- use base qw(Bugzilla::Field::Choice);
+ use parent qw(Bugzilla::Field::Choice);
use constant DB_TABLE => '$field_name';
EOC
}
use Bugzilla::Constants;
use Bugzilla::Field;
-use base qw(Bugzilla::Object Exporter);
+use parent qw(Bugzilla::Object Exporter);
@Bugzilla::Flag::EXPORT = qw(SKIP_REQUESTEE_ON_ERROR);
###############################
use Email::Address;
-use base qw(Bugzilla::Object);
+use parent qw(Bugzilla::Object);
###############################
#### Initialization ####
use 5.10.1;
use strict;
-use base qw(Bugzilla::Object);
+use parent qw(Bugzilla::Object);
use Bugzilla::Constants;
use Bugzilla::Util;
use 5.10.1;
use strict;
-use base qw(Exporter);
+use parent qw(Exporter);
our @EXPORT = qw(
BZ_LIB
use IO::File;
use POSIX ();
-use base qw(Exporter);
+use parent qw(Exporter);
our @EXPORT = qw(
update_filesystem
create_htaccess
use Safe;
use Term::ANSIColor;
-use base qw(Exporter);
+use parent qw(Exporter);
our @EXPORT_OK = qw(
read_localconfig
use Safe;
use Term::ANSIColor;
-use base qw(Exporter);
+use parent qw(Exporter);
our @EXPORT = qw(
REQUIRED_MODULES
OPTIONAL_MODULES
use Term::ANSIColor qw(colored);
use PerlIO;
-use base qw(Exporter);
+use parent qw(Exporter);
our @EXPORT_OK = qw(
bin_loc
get_version_and_os
use strict;
use Bugzilla::Mailer;
-BEGIN { eval "use base qw(TheSchwartz::Worker)"; }
+BEGIN { eval "use parent qw(TheSchwartz::Worker)"; }
# The longest we expect a job to possibly take, in seconds.
use constant grab_for => 300;
use Bugzilla::Constants;
use Bugzilla::Error;
use Bugzilla::Install::Util qw(install_string);
-use base qw(TheSchwartz);
+use parent qw(TheSchwartz);
# This maps job names for Bugzilla::JobQueue to the appropriate modules.
# If you add new types of jobs, you should add a mapping here.
use Bugzilla::Constants;
use Bugzilla::JobQueue;
use Bugzilla::Util qw(get_text);
-BEGIN { eval "use base qw(Daemon::Generic)"; }
+BEGIN { eval "use parent qw(Daemon::Generic)"; }
our $VERSION = BUGZILLA_VERSION;
use 5.10.1;
use strict;
-use base qw(Bugzilla::Object);
+use parent qw(Bugzilla::Object);
use Bugzilla::Error;
use Bugzilla::Util;
use 5.10.1;
use strict;
-use base qw(Exporter);
+use parent qw(Exporter);
@Bugzilla::Mailer::EXPORT = qw(MessageToMTA build_thread_marker);
use Bugzilla::Constants;
use 5.10.1;
use strict;
-use base qw(Bugzilla::Migrate);
+use parent qw(Bugzilla::Migrate);
use Bugzilla::Constants;
use Bugzilla::Install::Util qw(indicate_progress);
use 5.10.1;
use strict;
-use base qw(Bugzilla::Object);
+use parent qw(Bugzilla::Object);
use Bugzilla::Constants;
use Bugzilla::Util;
use 5.10.1;
use strict;
-use base qw(Bugzilla::Field::ChoiceInterface Bugzilla::Object);
+use parent qw(Bugzilla::Field::ChoiceInterface Bugzilla::Object);
use Bugzilla::Constants;
use Bugzilla::Util;
use 5.10.1;
use strict;
-use base qw(Exporter);
+use parent qw(Exporter);
use Bugzilla::Constants qw(ON_WINDOWS);
use Math::Random::ISAAC;
use 5.10.1;
use strict;
-use base qw(Bugzilla::Object);
+use parent qw(Bugzilla::Object);
use Bugzilla::CGI;
use Bugzilla::Constants;
use 5.10.1;
use strict;
-use base qw(Exporter);
+use parent qw(Exporter);
@Bugzilla::Search::EXPORT = qw(
IsValidQueryType
split_order_term
use 5.10.1;
use strict;
-use base qw(Exporter);
+use parent qw(Exporter);
our @EXPORT_OK = qw(condition);
sub new {
use List::MoreUtils qw(firstidx);
use Text::ParseWords qw(parse_line);
-use base qw(Exporter);
+use parent qw(Exporter);
@Bugzilla::Search::Quicksearch::EXPORT = qw(quicksearch);
# Custom mappings for some fields.
use 5.10.1;
use strict;
-use base qw(Bugzilla::Object);
+use parent qw(Bugzilla::Object);
use Bugzilla::Constants;
use Bugzilla::Error;
use 5.10.1;
use strict;
-use base qw(Bugzilla::Object);
+use parent qw(Bugzilla::Object);
use Bugzilla::CGI;
use Bugzilla::Constants;
use 5.10.1;
use strict;
-use base qw(Email::Send::Sendmail);
+use parent qw(Email::Send::Sendmail);
use Return::Value;
use Symbol qw(gensym);
# ChoiceInterface, because a bug status literally is a special type
# of Field::Choice, not just an object that happens to have the same
# methods.
-use base qw(Bugzilla::Field::Choice Exporter);
+use parent qw(Bugzilla::Field::Choice Exporter);
@Bugzilla::Status::EXPORT = qw(
BUG_STATE_OPEN
SPECIAL_STATUS_WORKFLOW_ACTIONS
use List::MoreUtils qw(firstidx);
use Scalar::Util qw(blessed);
-use base qw(Template);
+use parent qw(Template);
use constant FORMAT_TRIPLE => '%19s|%-28s|%-28s';
use constant FORMAT_3_SIZE => [19,28,28];
use 5.10.1;
use strict;
-use base qw(Template::Context);
+use parent qw(Template::Context);
use Bugzilla::Hook;
use Scalar::Util qw(blessed);
use 5.10.1;
use strict;
-use base qw(Template::Plugin);
+use parent qw(Template::Plugin);
use Bugzilla;
use 5.10.1;
use strict;
-use base qw(Template::Plugin);
+use parent qw(Template::Plugin);
use Bugzilla::Constants;
use Bugzilla::Install::Util qw(template_include_path);
use File::Basename;
use Digest::SHA qw(hmac_sha256_base64);
-use base qw(Exporter);
+use parent qw(Exporter);
@Bugzilla::Token::EXPORT = qw(issue_session_token check_token_data delete_token
issue_hash_token check_hash_token);
use URI;
use URI::QueryParam;
-use base qw(Bugzilla::Object Exporter);
+use parent qw(Bugzilla::Object Exporter);
@Bugzilla::User::EXPORT = qw(is_available_username
login_to_id user_id_to_login validate_password
USER_MATCH_MULTIPLE USER_MATCH_FAILED USER_MATCH_SUCCESS
use 5.10.1;
use strict;
-use base qw(Exporter);
+use parent qw(Exporter);
# Module stuff
use 5.10.1;
use strict;
-use base qw(Bugzilla::User::Setting);
+use parent qw(Bugzilla::User::Setting);
use Bugzilla::Constants;
use 5.10.1;
use strict;
-use base qw(Bugzilla::User::Setting);
+use parent qw(Bugzilla::User::Setting);
use Bugzilla::Constants;
use File::Spec::Functions;
use DateTime::TimeZone;
-use base qw(Bugzilla::User::Setting);
+use parent qw(Bugzilla::User::Setting);
use Bugzilla::Constants;
use 5.10.1;
use strict;
-use base qw(Exporter);
+use parent qw(Exporter);
our @EXPORT = qw(detect_platform detect_op_sys);
use Bugzilla::Field;
use 5.10.1;
use strict;
-use base qw(Exporter);
+use parent qw(Exporter);
@Bugzilla::Util::EXPORT = qw(trick_taint detaint_natural detaint_signed
html_quote url_quote xml_quote
css_class_quote html_light_quote
use 5.10.1;
use strict;
-use base qw(Bugzilla::Object);
+use parent qw(Bugzilla::Object);
use Bugzilla::Install::Util qw(vers_cmp);
use Bugzilla::Util;
use 5.10.1;
use strict;
-use base qw(Bugzilla::WebService);
+use parent qw(Bugzilla::WebService);
use Bugzilla::Comment;
use Bugzilla::Constants;
use 5.10.1;
use strict;
-use base qw(Bugzilla::WebService);
+use parent qw(Bugzilla::WebService);
use Bugzilla::Constants;
use Bugzilla::Util qw(datetime_from);
use Bugzilla::WebService::Util qw(validate filter_wants);
use 5.10.1;
use strict;
-use base qw (Bugzilla::WebService);
+use parent qw (Bugzilla::WebService);
use Bugzilla::Classification;
use Bugzilla::Error;
use 5.10.1;
use strict;
-use base qw(Exporter);
+use parent qw(Exporter);
our @EXPORT = qw(
WS_ERROR_CODE
use 5.10.1;
use strict;
-use base qw(Bugzilla::WebService);
+use parent qw(Bugzilla::WebService);
use Bugzilla::Constants;
use Bugzilla::Error;
use Bugzilla::WebService::Util qw(validate translate params_to_objects);
use 5.10.1;
use strict;
-use base qw(Bugzilla::WebService);
+use parent qw(Bugzilla::WebService);
use Bugzilla::Product;
use Bugzilla::User;
use Bugzilla::Error;
method is in. For example, if we call Bugzilla.version(), the first argument
is Bugzilla::WebService::Bugzilla. So in order to have $self
(our first argument) act correctly in XML-RPC, we make all WebService
-classes use base qw(Bugzilla::WebService).
+classes use parent qw(Bugzilla::WebService).
When JSON::RPC calls a method, $self is the JSON-RPC *server object*. In other
words, it's an instance of Bugzilla::WebService::Server::JSONRPC. So we have
use 5.10.1;
use strict;
-# We can't use "use base" because XMLRPC::Serializer doesn't return
+# We can't use "use parent" because XMLRPC::Serializer doesn't return
# a true value.
use XMLRPC::Lite;
our @ISA = qw(XMLRPC::Deserializer);
use strict;
use Scalar::Util qw(blessed);
-# We can't use "use base" because XMLRPC::Serializer doesn't return
+# We can't use "use parent" because XMLRPC::Serializer doesn't return
# a true value.
use XMLRPC::Lite;
our @ISA = qw(XMLRPC::Serializer);
use 5.10.1;
use strict;
-use base qw(Bugzilla::WebService);
+use parent qw(Bugzilla::WebService);
use Bugzilla::Constants;
use Bugzilla::Error;
use 5.10.1;
use strict;
-use base qw(Exporter);
+use parent qw(Exporter);
# We have to "require", not "use" this, because otherwise it tries to
# use features of Test::More during import().
use 5.10.1;
use strict;
-use base qw(Bugzilla::Object);
+use parent qw(Bugzilla::Object);
use Bugzilla::Constants;
use Bugzilla::Error;
use 5.10.1;
use strict;
-use base qw(Bugzilla::Object);
+use parent qw(Bugzilla::Object);
use Bugzilla::Constants;
use Bugzilla::Search::Saved;
use 5.10.1;
use strict;
-use base qw(Bugzilla::Object);
+use parent qw(Bugzilla::Object);
use Bugzilla::Constants;
my $extension_pm = <<END;
package Bugzilla::Extension::$extension_name;
use strict;
-use base qw(Bugzilla::Extension);
+use parent qw(Bugzilla::Extension);
$modules
use 5.10.1;
use strict;
-use base qw(Pod::Simple::HTML);
+use parent qw(Pod::Simple::HTML);
# Without this constant, HTMLBatch will throw undef warnings.
use constant VERSION => $Pod::Simple::HTML::VERSION;
use 5.10.1;
use strict;
-use base qw(Pod::Simple::HTMLBatch);
+use parent qw(Pod::Simple::HTMLBatch);
# This is the same hack that HTMLBatch does to "import" this subroutine.
BEGIN { *esc = \&Pod::Simple::HTML::esc }
package Bugzilla::Extension::BmpConvert;
use strict;
-use base qw(Bugzilla::Extension);
+use parent qw(Bugzilla::Extension);
use Image::Magick;
package Bugzilla::Extension::Example;
use strict;
-use base qw(Bugzilla::Extension);
+use parent qw(Bugzilla::Extension);
use Bugzilla::Constants;
use Bugzilla::Error;
package Bugzilla::Extension::Example::Auth::Login;
use strict;
-use base qw(Bugzilla::Auth::Login);
+use parent qw(Bugzilla::Auth::Login);
use constant user_can_create_account => 0;
use Bugzilla::Constants;
package Bugzilla::Extension::Example::Auth::Verify;
use strict;
-use base qw(Bugzilla::Auth::Verify);
+use parent qw(Bugzilla::Auth::Verify);
use Bugzilla::Constants;
# A verifier that always fails.
package Bugzilla::Extension::Example::WebService;
use strict;
use warnings;
-use base qw(Bugzilla::WebService);
+use parent qw(Bugzilla::WebService);
use Bugzilla::Error;
# This can be called as Example.hello() from the WebService.
package Bugzilla::Extension::MoreBugUrl;
use strict;
-use base qw(Bugzilla::Extension);
+use parent qw(Bugzilla::Extension);
use constant MORE_SUB_CLASSES => qw(
Bugzilla::Extension::MoreBugUrl::ReviewBoard
package Bugzilla::Extension::MoreBugUrl::GetSatisfaction;
use strict;
-use base qw(Bugzilla::BugUrl);
+use parent qw(Bugzilla::BugUrl);
###############################
#### Methods ####
package Bugzilla::Extension::MoreBugUrl::PHP;
use strict;
-use base qw(Bugzilla::BugUrl);
+use parent qw(Bugzilla::BugUrl);
###############################
#### Methods ####
package Bugzilla::Extension::MoreBugUrl::RT;
use strict;
-use base qw(Bugzilla::BugUrl);
+use parent qw(Bugzilla::BugUrl);
###############################
#### Methods ####
package Bugzilla::Extension::MoreBugUrl::ReviewBoard;
use strict;
-use base qw(Bugzilla::BugUrl);
+use parent qw(Bugzilla::BugUrl);
###############################
#### Methods ####
package Bugzilla::Extension::MoreBugUrl::Rietveld;
use strict;
-use base qw(Bugzilla::BugUrl);
+use parent qw(Bugzilla::BugUrl);
###############################
#### Methods ####
package Bugzilla::Extension::OldBugMove;
use strict;
-use base qw(Bugzilla::Extension);
+use parent qw(Bugzilla::Extension);
use Bugzilla::Constants;
use Bugzilla::Error;
use Bugzilla::Field::Choice;
package Bugzilla::Extension::Voting;
use strict;
-use base qw(Bugzilla::Extension);
+use parent qw(Bugzilla::Extension);
use Bugzilla::Bug;
use Bugzilla::BugMail;
use 5.10.1;
use strict;
-use base qw(ModPerl::Registry);
+use parent qw(ModPerl::Registry);
use Bugzilla;
sub handler : method {
['"]?
([\w:\.\\]+)
/x;
-use constant BASE_REGEX => qr/^use base qw\(([^\)]+)/;
+use constant BASE_REGEX => qr/^use (?:base|parent) (?:-norequire, )?qw\(([^\)]+)/;
# Extract all Perl modules.
foreach my $file (@Support::Files::testitems) {
}
elsif ($line =~ BASE_REGEX or $line =~ MODULE_REGEX) {
my $used_string = $1;
- # "use base" can have multiple modules
+ # "use base"/"use parent" can have multiple modules
my @used_array = split(/\s+/, $used_string);
foreach my $used (@used_array) {
next if $used !~ /^Bugzilla/;
use strict;
use lib 't';
-use base qw(Exporter);
+use parent qw(Exporter);
@Support::Templates::EXPORT =
qw(@languages @include_paths $english_default_include_path
%include_path @referenced_files %actual_files $num_actual_files);
package B[% %]ugzilla::Extension::[% name %];
use strict;
-use base qw(B[% %]ugzilla::Extension);
+use parent qw(B[% %]ugzilla::Extension);
# This code for this is in [% path %]/lib/Util.pm
use B[% %]ugzilla::Extension::[% name %]::Util;
package B[% %]ugzilla::Extension::[% name %]::Util;
use strict;
-use base qw(Exporter);
+use parent qw(Exporter);
our @EXPORT = qw(
);
# This test combines two field/operator combinations using AND in
# a single boolean chart.
package Bugzilla::Test::Search::AndTest;
-use base qw(Bugzilla::Test::Search::OrTest);
+use parent qw(Bugzilla::Test::Search::OrTest);
use Bugzilla::Test::Search::Constants;
use List::MoreUtils qw(all);
# More detailed information on each constant is available in the comments
# in this file.
package Bugzilla::Test::Search::Constants;
-use base qw(Exporter);
+use parent qw(Exporter);
use Bugzilla::Constants;
use Bugzilla::Util qw(generate_random_password);
# Tests like this are specified in CUSTOM_SEARCH_TESTS in
# Bugzilla::Test::Search::Constants.
package Bugzilla::Test::Search::CustomTest;
-use base qw(Bugzilla::Test::Search::FieldTest);
+use parent qw(Bugzilla::Test::Search::FieldTest);
use strict;
use warnings;
package Bugzilla::Test::Search::FieldTestNormal;
use strict;
use warnings;
-use base qw(Bugzilla::Test::Search::FieldTest);
+use parent qw(Bugzilla::Test::Search::FieldTest);
use Scalar::Util qw(blessed);
# This module represents the SQL Injection tests that get run on a single
# operator/field combination for Bugzilla::Test::Search.
package Bugzilla::Test::Search::InjectionTest;
-use base qw(Bugzilla::Test::Search::FieldTest);
+use parent qw(Bugzilla::Test::Search::FieldTest);
use strict;
use warnings;
# it to OrTest and AndTest, but without Moose there isn't much of an
# easy way to do that.
package Bugzilla::Test::Search::NotTest;
-use base qw(Bugzilla::Test::Search::FieldTest);
+use parent qw(Bugzilla::Test::Search::FieldTest);
use strict;
use warnings;
use Bugzilla::Test::Search::Constants;
# This test combines two field/operator combinations using OR in
# a single boolean chart.
package Bugzilla::Test::Search::OrTest;
-use base qw(Bugzilla::Test::Search::FieldTest);
+use parent qw(Bugzilla::Test::Search::FieldTest);
use Bugzilla::Test::Search::Constants;
use List::MoreUtils qw(all any uniq);
projects / thirdparty / bugzilla.git / commitdiff
