Bug 787668: Use |use parent| instead of |use base|

Bugzilla/Attachment.pm

@@ -46,7 +46,7 @@ use Bugzilla::Hook;
 use File::Copy;
 use List::Util qw(max);
 
-use base qw(Bugzilla::Object);
+use parent qw(Bugzilla::Object);
 
 ###############################
 ####    Initialization     ####

Bugzilla/Auth/Login/CGI.pm

@@ -10,7 +10,7 @@ package Bugzilla::Auth::Login::CGI;
 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;

Bugzilla/Auth/Login/Cookie.pm

@@ -10,7 +10,7 @@ package Bugzilla::Auth::Login::Cookie;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::Auth::Login);
+use parent qw(Bugzilla::Auth::Login);
 
 use Bugzilla::Constants;
 use Bugzilla::Util;

Bugzilla/Auth/Login/Env.pm

@@ -10,7 +10,7 @@ package Bugzilla::Auth::Login::Env;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::Auth::Login);
+use parent qw(Bugzilla::Auth::Login);
 
 use Bugzilla::Constants;
 use Bugzilla::Error;

Bugzilla/Auth/Verify/DB.pm

@@ -10,7 +10,7 @@ package Bugzilla::Auth::Verify::DB;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::Auth::Verify);
+use parent qw(Bugzilla::Auth::Verify);
 
 use Bugzilla::Constants;
 use Bugzilla::Token;

Bugzilla/Auth/Verify/RADIUS.pm

@@ -10,7 +10,7 @@ package Bugzilla::Auth::Verify::RADIUS;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::Auth::Verify);
+use parent qw(Bugzilla::Auth::Verify);
 
 use Bugzilla::Constants;
 use Bugzilla::Error;

Bugzilla/Bug.pm

@@ -36,7 +36,7 @@ use URI;
 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

Bugzilla/BugUrl.pm

@@ -10,7 +10,7 @@ package Bugzilla::BugUrl;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::Object);
+use parent qw(Bugzilla::Object);
 
 use Bugzilla::Util;
 use Bugzilla::Error;

Bugzilla/BugUrl/Bugzilla.pm

@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::Bugzilla;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::BugUrl);
+use parent qw(Bugzilla::BugUrl);
 
 use Bugzilla::Error;
 use Bugzilla::Util;

Bugzilla/BugUrl/Bugzilla/Local.pm

@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::Bugzilla::Local;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::BugUrl::Bugzilla);
+use parent qw(Bugzilla::BugUrl::Bugzilla);
 
 use Bugzilla::Error;
 use Bugzilla::Util;

Bugzilla/BugUrl/Debian.pm

@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::Debian;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::BugUrl);
+use parent qw(Bugzilla::BugUrl);
 
 ###############################
 ####        Methods        ####

Bugzilla/BugUrl/GitHub.pm

@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::GitHub;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::BugUrl);
+use parent qw(Bugzilla::BugUrl);
 
 ###############################
 ####        Methods        ####

Bugzilla/BugUrl/Google.pm

@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::Google;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::BugUrl);
+use parent qw(Bugzilla::BugUrl);
 
 ###############################
 ####        Methods        ####

Bugzilla/BugUrl/JIRA.pm

@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::JIRA;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::BugUrl);
+use parent qw(Bugzilla::BugUrl);
 
 ###############################
 ####        Methods        ####

Bugzilla/BugUrl/Launchpad.pm

@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::Launchpad;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::BugUrl);
+use parent qw(Bugzilla::BugUrl);
 
 ###############################
 ####        Methods        ####

Bugzilla/BugUrl/MantisBT.pm

@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::MantisBT;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::BugUrl);
+use parent qw(Bugzilla::BugUrl);
 
 ###############################
 ####        Methods        ####

Bugzilla/BugUrl/SourceForge.pm

@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::SourceForge;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::BugUrl);
+use parent qw(Bugzilla::BugUrl);
 
 ###############################
 ####        Methods        ####

Bugzilla/BugUrl/Trac.pm

@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::Trac;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::BugUrl);
+use parent qw(Bugzilla::BugUrl);
 
 ###############################
 ####        Methods        ####

Bugzilla/CGI.pm

@@ -10,7 +10,7 @@ package Bugzilla::CGI;
 use 5.10.1;
 use strict;
 
-use base qw(CGI);
+use parent qw(CGI);
 
 use Bugzilla::Constants;
 use Bugzilla::Error;

Bugzilla/Classification.pm

@@ -16,7 +16,7 @@ use Bugzilla::Util;
 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);
 
 ###############################

Bugzilla/Comment.pm

@@ -10,7 +10,7 @@ package Bugzilla::Comment;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::Object);
+use parent qw(Bugzilla::Object);
 
 use Bugzilla::Attachment;
 use Bugzilla::Constants;

Bugzilla/Component.pm

@@ -10,7 +10,7 @@ package Bugzilla::Component;
 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;

Bugzilla/Config.pm

@@ -10,7 +10,7 @@ package Bugzilla::Config;
 use 5.10.1;
 use strict;
 
-use base qw(Exporter);
+use parent qw(Exporter);
 use Bugzilla::Constants;
 use Bugzilla::Hook;
 use Data::Dumper;

Bugzilla/Config/Common.pm

@@ -19,7 +19,7 @@ use Bugzilla::Field;
 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

Bugzilla/Constants.pm

@@ -10,7 +10,7 @@ package Bugzilla::Constants;
 use 5.10.1;
 use strict;
 
-use base qw(Exporter);
+use parent qw(Exporter);
 
 # For bz_locations
 use File::Basename;

Bugzilla/DB.pm

@@ -13,7 +13,7 @@ use strict;
 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;

Bugzilla/DB/Mysql.pm

@@ -24,7 +24,7 @@ package Bugzilla::DB::Mysql;
 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);

Bugzilla/DB/Oracle.pm

@@ -24,7 +24,7 @@ package Bugzilla::DB::Oracle;
 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);
@@ -720,7 +720,7 @@ package Bugzilla::DB::Oracle::st;
 use 5.10.1;
 use strict;
 
-use base qw(DBI::st);
+use parent qw(DBI::st);
  
 sub fetchrow_arrayref {
     my $self = shift;

Bugzilla/DB/Pg.pm

@@ -28,7 +28,7 @@ use Bugzilla::Error;
 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 };
 

Bugzilla/DB/Schema/Mysql.pm

@@ -18,7 +18,7 @@ use strict;
 
 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

Bugzilla/DB/Schema/Oracle.pm

@@ -16,7 +16,7 @@ package Bugzilla::DB::Schema::Oracle;
 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;
 

Bugzilla/DB/Schema/Pg.pm

@@ -16,7 +16,7 @@ package Bugzilla::DB::Schema::Pg;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::DB::Schema);
+use parent qw(Bugzilla::DB::Schema);
 use Storable qw(dclone);
 
 #------------------------------------------------------------------------------

Bugzilla/DB/Schema/Sqlite.pm

@@ -10,7 +10,7 @@ package Bugzilla::DB::Schema::Sqlite;
 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);

Bugzilla/DB/Sqlite.pm

@@ -10,7 +10,7 @@ package Bugzilla::DB::Sqlite;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::DB);
+use parent qw(Bugzilla::DB);
 
 use Bugzilla::Constants;
 use Bugzilla::Error;

Bugzilla/Error.pm

@@ -10,7 +10,7 @@ package Bugzilla::Error;
 use 5.10.1;
 use strict;
 
-use base qw(Exporter);
+use parent qw(Exporter);
 
 @Bugzilla::Error::EXPORT = qw(ThrowCodeError ThrowTemplateError ThrowUserError);
 

Bugzilla/Extension.pm

@@ -240,7 +240,7 @@ F<extensions/Foo.pm>:
 
  package Bugzilla::Extension::Foo
  use strict;
- use base qw(Bugzilla::Extension);
+ use parent qw(Bugzilla::Extension);
 
  our $VERSION = '0.02';
  use constant NAME => 'Foo';

Bugzilla/Field.pm

@@ -60,7 +60,7 @@ package Bugzilla::Field;
 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;

Bugzilla/Field/Choice.pm

@@ -10,7 +10,7 @@ package Bugzilla::Field::Choice;
 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;
@@ -95,7 +95,7 @@ sub type {
     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
     }

Bugzilla/Flag.pm

@@ -50,7 +50,7 @@ use Bugzilla::Mailer;
 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);
 
 ###############################

Bugzilla/FlagType.pm

@@ -41,7 +41,7 @@ use Bugzilla::Group;
 
 use Email::Address;
 
-use base qw(Bugzilla::Object);
+use parent qw(Bugzilla::Object);
 
 ###############################
 ####    Initialization     ####

Bugzilla/Group.pm

@@ -10,7 +10,7 @@ package Bugzilla::Group;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::Object);
+use parent qw(Bugzilla::Object);
 
 use Bugzilla::Constants;
 use Bugzilla::Util;

Bugzilla/Install/CPAN.pm

@@ -10,7 +10,7 @@ package Bugzilla::Install::CPAN;
 use 5.10.1;
 use strict;
 
-use base qw(Exporter);
+use parent qw(Exporter);
 our @EXPORT = qw(
     BZ_LIB
 

Bugzilla/Install/Filesystem.pm

@@ -33,7 +33,7 @@ use File::Spec;
 use IO::File;
 use POSIX ();
 
-use base qw(Exporter);
+use parent qw(Exporter);
 our @EXPORT = qw(
     update_filesystem
     create_htaccess

Bugzilla/Install/Localconfig.pm

@@ -27,7 +27,7 @@ use File::Basename qw(dirname);
 use Safe;
 use Term::ANSIColor;
 
-use base qw(Exporter);
+use parent qw(Exporter);
 
 our @EXPORT_OK = qw(
     read_localconfig

Bugzilla/Install/Requirements.pm

@@ -23,7 +23,7 @@ use List::Util qw(max);
 use Safe;
 use Term::ANSIColor;
 
-use base qw(Exporter);
+use parent qw(Exporter);
 our @EXPORT = qw(
     REQUIRED_MODULES
     OPTIONAL_MODULES

Bugzilla/Install/Util.pm

@@ -24,7 +24,7 @@ use Scalar::Util qw(tainted);
 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

Bugzilla/Job/Mailer.pm

@@ -11,7 +11,7 @@ use 5.10.1;
 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;

Bugzilla/JobQueue.pm

@@ -13,7 +13,7 @@ use strict;
 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.

Bugzilla/JobQueue/Runner.pm

@@ -22,7 +22,7 @@ use Pod::Usage;
 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;
 

Bugzilla/Keyword.pm

@@ -10,7 +10,7 @@ package Bugzilla::Keyword;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::Object);
+use parent qw(Bugzilla::Object);
 
 use Bugzilla::Error;
 use Bugzilla::Util;

Bugzilla/Mailer.pm

@@ -10,7 +10,7 @@ package Bugzilla::Mailer;
 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;

Bugzilla/Migrate/Gnats.pm

@@ -10,7 +10,7 @@ package Bugzilla::Migrate::Gnats;
 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);

Bugzilla/Milestone.pm

@@ -10,7 +10,7 @@ package Bugzilla::Milestone;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::Object);
+use parent qw(Bugzilla::Object);
 
 use Bugzilla::Constants;
 use Bugzilla::Util;

Bugzilla/Product.pm

@@ -10,7 +10,7 @@ package Bugzilla::Product;
 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;

Bugzilla/RNG.pm

@@ -10,7 +10,7 @@ package Bugzilla::RNG;
 use 5.10.1;
 use strict;
 
-use base qw(Exporter);
+use parent qw(Exporter);
 use Bugzilla::Constants qw(ON_WINDOWS);
 
 use Math::Random::ISAAC;

Bugzilla/Report.pm

@@ -10,7 +10,7 @@ package Bugzilla::Report;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::Object);
+use parent qw(Bugzilla::Object);
 
 use Bugzilla::CGI;
 use Bugzilla::Constants;

Bugzilla/Search.pm

@@ -10,7 +10,7 @@ package Bugzilla::Search;
 use 5.10.1;
 use strict;
 
-use base qw(Exporter);
+use parent qw(Exporter);
 @Bugzilla::Search::EXPORT = qw(
     IsValidQueryType
     split_order_term

Bugzilla/Search/Condition.pm

@@ -10,7 +10,7 @@ package Bugzilla::Search::Condition;
 use 5.10.1;
 use strict;
 
-use base qw(Exporter);
+use parent qw(Exporter);
 our @EXPORT_OK = qw(condition);
 
 sub new {

Bugzilla/Search/Quicksearch.pm

@@ -21,7 +21,7 @@ use List::Util qw(min max);
 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.

Bugzilla/Search/Recent.pm

@@ -10,7 +10,7 @@ package Bugzilla::Search::Recent;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::Object);
+use parent qw(Bugzilla::Object);
 
 use Bugzilla::Constants;
 use Bugzilla::Error;

Bugzilla/Search/Saved.pm

@@ -10,7 +10,7 @@ package Bugzilla::Search::Saved;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::Object);
+use parent qw(Bugzilla::Object);
 
 use Bugzilla::CGI;
 use Bugzilla::Constants;

Bugzilla/Send/Sendmail.pm

@@ -10,7 +10,7 @@ package Bugzilla::Send::Sendmail;
 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);

Bugzilla/Status.pm

@@ -14,7 +14,7 @@ use strict;
 # 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

Bugzilla/Template.pm

@@ -34,7 +34,7 @@ use IO::Dir;
 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];

Bugzilla/Template/Context.pm

@@ -11,7 +11,7 @@ package Bugzilla::Template::Context;
 use 5.10.1;
 use strict;
 
-use base qw(Template::Context);
+use parent qw(Template::Context);
 
 use Bugzilla::Hook;
 use Scalar::Util qw(blessed);

Bugzilla/Template/Plugin/Bugzilla.pm

@@ -10,7 +10,7 @@ package Bugzilla::Template::Plugin::Bugzilla;
 use 5.10.1;
 use strict;
 
-use base qw(Template::Plugin);
+use parent qw(Template::Plugin);
 
 use Bugzilla;
 

Bugzilla/Template/Plugin/Hook.pm

@@ -10,7 +10,7 @@ package Bugzilla::Template::Plugin::Hook;
 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); 

Bugzilla/Token.pm

@@ -21,7 +21,7 @@ use Date::Parse;
 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);

Bugzilla/User.pm

@@ -27,7 +27,7 @@ use Storable qw(dclone);
 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

Bugzilla/User/Setting.pm

@@ -11,7 +11,7 @@ package Bugzilla::User::Setting;
 use 5.10.1;
 use strict;
 
-use base qw(Exporter);
+use parent qw(Exporter);
 
 
 # Module stuff

Bugzilla/User/Setting/Lang.pm

@@ -10,7 +10,7 @@ package Bugzilla::User::Setting::Lang;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::User::Setting);
+use parent qw(Bugzilla::User::Setting);
 
 use Bugzilla::Constants;
 

Bugzilla/User/Setting/Skin.pm

@@ -11,7 +11,7 @@ package Bugzilla::User::Setting::Skin;
 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;

Bugzilla/User/Setting/Timezone.pm

@@ -12,7 +12,7 @@ use strict;
 
 use DateTime::TimeZone;
 
-use base qw(Bugzilla::User::Setting);
+use parent qw(Bugzilla::User::Setting);
 
 use Bugzilla::Constants;
 

Bugzilla/UserAgent.pm

@@ -10,7 +10,7 @@ package Bugzilla::UserAgent;
 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;

Bugzilla/Util.pm

@@ -10,7 +10,7 @@ package Bugzilla::Util;
 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

Bugzilla/Version.pm

@@ -10,7 +10,7 @@ package Bugzilla::Version;
 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;

Bugzilla/WebService/Bug.pm

@@ -10,7 +10,7 @@ package Bugzilla::WebService::Bug;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::WebService);
+use parent qw(Bugzilla::WebService);
 
 use Bugzilla::Comment;
 use Bugzilla::Constants;

Bugzilla/WebService/Bugzilla.pm

@@ -10,7 +10,7 @@ package Bugzilla::WebService::Bugzilla;
 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);

Bugzilla/WebService/Classification.pm

@@ -10,7 +10,7 @@ package Bugzilla::WebService::Classification;
 use 5.10.1;
 use strict;
 
-use base qw (Bugzilla::WebService);
+use parent qw (Bugzilla::WebService);
 
 use Bugzilla::Classification;
 use Bugzilla::Error;

Bugzilla/WebService/Constants.pm

@@ -10,7 +10,7 @@ package Bugzilla::WebService::Constants;
 use 5.10.1;
 use strict;
 
-use base qw(Exporter);
+use parent qw(Exporter);
 
 our @EXPORT = qw(
     WS_ERROR_CODE

Bugzilla/WebService/Group.pm

@@ -10,7 +10,7 @@ package Bugzilla::WebService::Group;
 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);

Bugzilla/WebService/Product.pm

@@ -10,7 +10,7 @@ package Bugzilla::WebService::Product;
 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;

Bugzilla/WebService/README

@@ -11,7 +11,7 @@ When XMLRPC::Lite calls a method, $self is the name of the *class* the
 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

Bugzilla/WebService/Server/XMLRPC.pm

@@ -79,7 +79,7 @@ package Bugzilla::XMLRPC::Deserializer;
 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);
@@ -204,7 +204,7 @@ use 5.10.1;
 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);

Bugzilla/WebService/User.pm

@@ -10,7 +10,7 @@ package Bugzilla::WebService::User;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::WebService);
+use parent qw(Bugzilla::WebService);
 
 use Bugzilla::Constants;
 use Bugzilla::Error;

Bugzilla/WebService/Util.pm

@@ -10,7 +10,7 @@ package Bugzilla::WebService::Util;
 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().

Bugzilla/Whine.pm

@@ -10,7 +10,7 @@ package Bugzilla::Whine;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::Object);
+use parent qw(Bugzilla::Object);
 
 use Bugzilla::Constants;
 use Bugzilla::Error;

Bugzilla/Whine/Query.pm

@@ -10,7 +10,7 @@ package Bugzilla::Whine::Query;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::Object);
+use parent qw(Bugzilla::Object);
 
 use Bugzilla::Constants;
 use Bugzilla::Search::Saved;

Bugzilla/Whine/Schedule.pm

@@ -10,7 +10,7 @@ package Bugzilla::Whine::Schedule;
 use 5.10.1;
 use strict;
 
-use base qw(Bugzilla::Object);
+use parent qw(Bugzilla::Object);
 
 use Bugzilla::Constants;
 

contrib/extension-convert.pl

@@ -76,7 +76,7 @@ END
 my $extension_pm = <<END;
 package Bugzilla::Extension::$extension_name;
 use strict;
-use base qw(Bugzilla::Extension);
+use parent qw(Bugzilla::Extension);
 
 $modules
 

docs/lib/Pod/Simple/HTML/Bugzilla.pm

@@ -10,7 +10,7 @@ package Pod::Simple::HTML::Bugzilla;
 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;

docs/lib/Pod/Simple/HTMLBatch/Bugzilla.pm

@@ -10,7 +10,7 @@ package Pod::Simple::HTMLBatch::Bugzilla;
 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 }

extensions/BmpConvert/Extension.pm

@@ -7,7 +7,7 @@
 
 package Bugzilla::Extension::BmpConvert;
 use strict;
-use base qw(Bugzilla::Extension);
+use parent qw(Bugzilla::Extension);
 
 use Image::Magick;
 

extensions/Example/Extension.pm

@@ -7,7 +7,7 @@
 
 package Bugzilla::Extension::Example;
 use strict;
-use base qw(Bugzilla::Extension);
+use parent qw(Bugzilla::Extension);
 
 use Bugzilla::Constants;
 use Bugzilla::Error;

extensions/Example/lib/Auth/Login.pm

@@ -7,7 +7,7 @@
 
 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;
 

extensions/Example/lib/Auth/Verify.pm

@@ -7,7 +7,7 @@
 
 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.

extensions/Example/lib/WebService.pm

@@ -8,7 +8,7 @@
 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.

extensions/MoreBugUrl/Extension.pm

@@ -7,7 +7,7 @@
 
 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

extensions/MoreBugUrl/lib/GetSatisfaction.pm

@@ -7,7 +7,7 @@
 
 package Bugzilla::Extension::MoreBugUrl::GetSatisfaction;
 use strict;
-use base qw(Bugzilla::BugUrl);
+use parent qw(Bugzilla::BugUrl);
 
 ###############################
 ####        Methods        ####

extensions/MoreBugUrl/lib/PHP.pm

@@ -7,7 +7,7 @@
 
 package Bugzilla::Extension::MoreBugUrl::PHP;
 use strict;
-use base qw(Bugzilla::BugUrl);
+use parent qw(Bugzilla::BugUrl);
 
 ###############################
 ####        Methods        ####

extensions/MoreBugUrl/lib/RT.pm

@@ -7,7 +7,7 @@
 
 package Bugzilla::Extension::MoreBugUrl::RT;
 use strict;
-use base qw(Bugzilla::BugUrl);
+use parent qw(Bugzilla::BugUrl);
 
 ###############################
 ####        Methods        ####

extensions/MoreBugUrl/lib/ReviewBoard.pm

@@ -7,7 +7,7 @@
 
 package Bugzilla::Extension::MoreBugUrl::ReviewBoard;
 use strict;
-use base qw(Bugzilla::BugUrl);
+use parent qw(Bugzilla::BugUrl);
 
 ###############################
 ####        Methods        ####

extensions/MoreBugUrl/lib/Rietveld.pm

@@ -7,7 +7,7 @@
 
 package Bugzilla::Extension::MoreBugUrl::Rietveld;
 use strict;
-use base qw(Bugzilla::BugUrl);
+use parent qw(Bugzilla::BugUrl);
 
 ###############################
 ####        Methods        ####

extensions/OldBugMove/Extension.pm

@@ -7,7 +7,7 @@
 
 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;

extensions/Voting/Extension.pm

@@ -7,7 +7,7 @@
 
 package Bugzilla::Extension::Voting;
 use strict;
-use base qw(Bugzilla::Extension);
+use parent qw(Bugzilla::Extension);
 
 use Bugzilla::Bug;
 use Bugzilla::BugMail;

mod_perl.pl

@@ -113,7 +113,7 @@ package Bugzilla::ModPerl::ResponseHandler;
 use 5.10.1;
 use strict;
 
-use base qw(ModPerl::Registry);
+use parent qw(ModPerl::Registry);
 use Bugzilla;
 
 sub handler : method {

t/010dependencies.t

@@ -27,7 +27,7 @@ use constant MODULE_REGEX => qr/
     ['"]?
     ([\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) {
@@ -59,7 +59,7 @@ foreach my $module (keys %mods) {
       }
       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/;

t/Support/Templates.pm

@@ -10,7 +10,7 @@ package Support::Templates;
 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);

template/en/default/extensions/extension.pm.tmpl

@@ -14,7 +14,7 @@
 
 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;

template/en/default/extensions/util.pm.tmpl

@@ -14,7 +14,7 @@
 
 package B[% %]ugzilla::Extension::[% name %]::Util;
 use strict;
-use base qw(Exporter);
+use parent qw(Exporter);
 our @EXPORT = qw(
     
 );

xt/lib/Bugzilla/Test/Search/AndTest.pm

@@ -8,7 +8,7 @@
 # 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);

xt/lib/Bugzilla/Test/Search/Constants.pm

@@ -12,7 +12,7 @@
 # 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);
 

xt/lib/Bugzilla/Test/Search/CustomTest.pm

@@ -9,7 +9,7 @@
 # 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;
 

xt/lib/Bugzilla/Test/Search/FieldTestNormal.pm

@@ -10,7 +10,7 @@
 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);
 

xt/lib/Bugzilla/Test/Search/InjectionTest.pm

@@ -8,7 +8,7 @@
 # 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;

xt/lib/Bugzilla/Test/Search/NotTest.pm

@@ -12,7 +12,7 @@
 # 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;

xt/lib/Bugzilla/Test/Search/OrTest.pm

@@ -8,7 +8,7 @@
 # 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);