Commit b4adb1ab authored by Matt Selsky's avatar Matt Selsky Committed by Frédéric Buclin

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

r/a=LpSolit
parent 45f67203
......@@ -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 ####
......
......@@ -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;
......
......@@ -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;
......
......@@ -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;
......
......@@ -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;
......
......@@ -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;
......
......@@ -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
......
......@@ -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;
......
......@@ -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;
......
......@@ -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;
......
......@@ -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 ####
......
......@@ -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 ####
......
......@@ -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 ####
......
......@@ -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 ####
......
......@@ -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 ####
......
......@@ -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 ####
......
......@@ -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 ####
......
......@@ -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 ####
......
......@@ -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;
......
......@@ -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);
###############################
......
......@@ -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;
......
......@@ -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;
......
......@@ -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;
......
......@@ -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
......
......@@ -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;
......
......@@ -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;
......
......@@ -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);
......
......@@ -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;
......
......@@ -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 };
......
......@@ -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
......
......@@ -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;
......
......@@ -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);
#------------------------------------------------------------------------------
......
......@@ -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);
......
......@@ -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;
......
......@@ -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);
......
......@@ -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';
......
......@@ -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;
......
......@@ -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
}
......
......@@ -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);
###############################
......
......@@ -41,7 +41,7 @@ use Bugzilla::Group;
use Email::Address;
use base qw(Bugzilla::Object);
use parent qw(Bugzilla::Object);
###############################
#### Initialization ####
......
......@@ -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;
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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;
......
......@@ -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.
......
......@@ -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;
......
......@@ -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;
......
......@@ -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;
......
......@@ -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);
......
......@@ -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;
......
......@@ -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;
......
......@@ -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;
......
......@@ -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;
......
......@@ -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
......
......@@ -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 {
......
......@@ -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.
......
......@@ -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;
......
......@@ -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;
......
......@@ -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);
......
......@@ -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
......
......@@ -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];
......
......@@ -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);
......
......@@ -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;
......
......@@ -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);
......
......@@ -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);
......
......@@ -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
......
......@@ -11,7 +11,7 @@ package Bugzilla::User::Setting;
use 5.10.1;
use strict;
use base qw(Exporter);
use parent qw(Exporter);
# Module stuff
......
......@@ -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;
......
......@@ -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;
......
......@@ -12,7 +12,7 @@ use strict;
use DateTime::TimeZone;
use base qw(Bugzilla::User::Setting);
use parent qw(Bugzilla::User::Setting);
use Bugzilla::Constants;
......
......@@ -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;
......
......@@ -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
......
......@@ -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;
......
......@@ -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;
......
......@@ -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);
......
......@@ -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;
......
......@@ -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
......
......@@ -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);
......
......@@ -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;
......
......@@ -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
......
......@@ -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);
......
......@@ -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;
......
......@@ -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().
......
......@@ -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;
......
......@@ -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;
......
......@@ -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;
......
......@@ -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
......
......@@ -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;
......
......@@ -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 }
......
......@@ -7,7 +7,7 @@
package Bugzilla::Extension::BmpConvert;
use strict;
use base qw(Bugzilla::Extension);
use parent qw(Bugzilla::Extension);
use Image::Magick;
......
......@@ -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;
......
......@@ -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;
......
......@@ -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.
......
......@@ -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.
......
......@@ -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
......
......@@ -7,7 +7,7 @@
package Bugzilla::Extension::MoreBugUrl::GetSatisfaction;
use strict;
use base qw(Bugzilla::BugUrl);
use parent qw(Bugzilla::BugUrl);
###############################
#### Methods ####
......
......@@ -7,7 +7,7 @@
package Bugzilla::Extension::MoreBugUrl::PHP;
use strict;
use base qw(Bugzilla::BugUrl);
use parent qw(Bugzilla::BugUrl);
###############################
#### Methods ####
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment