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; ...@@ -46,7 +46,7 @@ use Bugzilla::Hook;
use File::Copy; use File::Copy;
use List::Util qw(max); use List::Util qw(max);
use base qw(Bugzilla::Object); use parent qw(Bugzilla::Object);
############################### ###############################
#### Initialization #### #### Initialization ####
......
...@@ -10,7 +10,7 @@ package Bugzilla::Auth::Login::CGI; ...@@ -10,7 +10,7 @@ package Bugzilla::Auth::Login::CGI;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::Auth::Login); use parent qw(Bugzilla::Auth::Login);
use constant user_can_create_account => 1; use constant user_can_create_account => 1;
use Bugzilla::Constants; use Bugzilla::Constants;
......
...@@ -10,7 +10,7 @@ package Bugzilla::Auth::Login::Cookie; ...@@ -10,7 +10,7 @@ package Bugzilla::Auth::Login::Cookie;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::Auth::Login); use parent qw(Bugzilla::Auth::Login);
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::Util; use Bugzilla::Util;
......
...@@ -10,7 +10,7 @@ package Bugzilla::Auth::Login::Env; ...@@ -10,7 +10,7 @@ package Bugzilla::Auth::Login::Env;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::Auth::Login); use parent qw(Bugzilla::Auth::Login);
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::Error; use Bugzilla::Error;
......
...@@ -10,7 +10,7 @@ package Bugzilla::Auth::Verify::DB; ...@@ -10,7 +10,7 @@ package Bugzilla::Auth::Verify::DB;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::Auth::Verify); use parent qw(Bugzilla::Auth::Verify);
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::Token; use Bugzilla::Token;
......
...@@ -10,7 +10,7 @@ package Bugzilla::Auth::Verify::RADIUS; ...@@ -10,7 +10,7 @@ package Bugzilla::Auth::Verify::RADIUS;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::Auth::Verify); use parent qw(Bugzilla::Auth::Verify);
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::Error; use Bugzilla::Error;
......
...@@ -36,7 +36,7 @@ use URI; ...@@ -36,7 +36,7 @@ use URI;
use URI::QueryParam; use URI::QueryParam;
use Scalar::Util qw(blessed); use Scalar::Util qw(blessed);
use base qw(Bugzilla::Object Exporter); use parent qw(Bugzilla::Object Exporter);
@Bugzilla::Bug::EXPORT = qw( @Bugzilla::Bug::EXPORT = qw(
bug_alias_to_id bug_alias_to_id
LogActivityEntry LogActivityEntry
......
...@@ -10,7 +10,7 @@ package Bugzilla::BugUrl; ...@@ -10,7 +10,7 @@ package Bugzilla::BugUrl;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::Object); use parent qw(Bugzilla::Object);
use Bugzilla::Util; use Bugzilla::Util;
use Bugzilla::Error; use Bugzilla::Error;
......
...@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::Bugzilla; ...@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::Bugzilla;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::BugUrl); use parent qw(Bugzilla::BugUrl);
use Bugzilla::Error; use Bugzilla::Error;
use Bugzilla::Util; use Bugzilla::Util;
......
...@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::Bugzilla::Local; ...@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::Bugzilla::Local;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::BugUrl::Bugzilla); use parent qw(Bugzilla::BugUrl::Bugzilla);
use Bugzilla::Error; use Bugzilla::Error;
use Bugzilla::Util; use Bugzilla::Util;
......
...@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::Debian; ...@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::Debian;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::BugUrl); use parent qw(Bugzilla::BugUrl);
############################### ###############################
#### Methods #### #### Methods ####
......
...@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::GitHub; ...@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::GitHub;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::BugUrl); use parent qw(Bugzilla::BugUrl);
############################### ###############################
#### Methods #### #### Methods ####
......
...@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::Google; ...@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::Google;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::BugUrl); use parent qw(Bugzilla::BugUrl);
############################### ###############################
#### Methods #### #### Methods ####
......
...@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::JIRA; ...@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::JIRA;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::BugUrl); use parent qw(Bugzilla::BugUrl);
############################### ###############################
#### Methods #### #### Methods ####
......
...@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::Launchpad; ...@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::Launchpad;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::BugUrl); use parent qw(Bugzilla::BugUrl);
############################### ###############################
#### Methods #### #### Methods ####
......
...@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::MantisBT; ...@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::MantisBT;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::BugUrl); use parent qw(Bugzilla::BugUrl);
############################### ###############################
#### Methods #### #### Methods ####
......
...@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::SourceForge; ...@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::SourceForge;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::BugUrl); use parent qw(Bugzilla::BugUrl);
############################### ###############################
#### Methods #### #### Methods ####
......
...@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::Trac; ...@@ -10,7 +10,7 @@ package Bugzilla::BugUrl::Trac;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::BugUrl); use parent qw(Bugzilla::BugUrl);
############################### ###############################
#### Methods #### #### Methods ####
......
...@@ -10,7 +10,7 @@ package Bugzilla::CGI; ...@@ -10,7 +10,7 @@ package Bugzilla::CGI;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(CGI); use parent qw(CGI);
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::Error; use Bugzilla::Error;
......
...@@ -16,7 +16,7 @@ use Bugzilla::Util; ...@@ -16,7 +16,7 @@ use Bugzilla::Util;
use Bugzilla::Error; use Bugzilla::Error;
use Bugzilla::Product; 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::Classification::EXPORT = qw(sort_products_by_classification);
############################### ###############################
......
...@@ -10,7 +10,7 @@ package Bugzilla::Comment; ...@@ -10,7 +10,7 @@ package Bugzilla::Comment;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::Object); use parent qw(Bugzilla::Object);
use Bugzilla::Attachment; use Bugzilla::Attachment;
use Bugzilla::Constants; use Bugzilla::Constants;
......
...@@ -10,7 +10,7 @@ package Bugzilla::Component; ...@@ -10,7 +10,7 @@ package Bugzilla::Component;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::Field::ChoiceInterface Bugzilla::Object); use parent qw(Bugzilla::Field::ChoiceInterface Bugzilla::Object);
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::Util; use Bugzilla::Util;
......
...@@ -10,7 +10,7 @@ package Bugzilla::Config; ...@@ -10,7 +10,7 @@ package Bugzilla::Config;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Exporter); use parent qw(Exporter);
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::Hook; use Bugzilla::Hook;
use Data::Dumper; use Data::Dumper;
......
...@@ -19,7 +19,7 @@ use Bugzilla::Field; ...@@ -19,7 +19,7 @@ use Bugzilla::Field;
use Bugzilla::Group; use Bugzilla::Group;
use Bugzilla::Status; use Bugzilla::Status;
use base qw(Exporter); use parent qw(Exporter);
@Bugzilla::Config::Common::EXPORT = @Bugzilla::Config::Common::EXPORT =
qw(check_multi check_numeric check_regexp check_url check_group qw(check_multi check_numeric check_regexp check_url check_group
check_sslbase check_priority check_severity check_platform check_sslbase check_priority check_severity check_platform
......
...@@ -10,7 +10,7 @@ package Bugzilla::Constants; ...@@ -10,7 +10,7 @@ package Bugzilla::Constants;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Exporter); use parent qw(Exporter);
# For bz_locations # For bz_locations
use File::Basename; use File::Basename;
......
...@@ -13,7 +13,7 @@ use strict; ...@@ -13,7 +13,7 @@ use strict;
use DBI; use DBI;
# Inherit the DB class from DBI::db. # Inherit the DB class from DBI::db.
use base qw(DBI::db); use parent -norequire, qw(DBI::db);
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::Install::Requirements; use Bugzilla::Install::Requirements;
......
...@@ -24,7 +24,7 @@ package Bugzilla::DB::Mysql; ...@@ -24,7 +24,7 @@ package Bugzilla::DB::Mysql;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::DB); use parent qw(Bugzilla::DB);
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::Install::Util qw(install_string); use Bugzilla::Install::Util qw(install_string);
......
...@@ -24,7 +24,7 @@ package Bugzilla::DB::Oracle; ...@@ -24,7 +24,7 @@ package Bugzilla::DB::Oracle;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::DB); use parent qw(Bugzilla::DB);
use DBD::Oracle; use DBD::Oracle;
use DBD::Oracle qw(:ora_types); use DBD::Oracle qw(:ora_types);
...@@ -720,7 +720,7 @@ package Bugzilla::DB::Oracle::st; ...@@ -720,7 +720,7 @@ package Bugzilla::DB::Oracle::st;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(DBI::st); use parent qw(DBI::st);
sub fetchrow_arrayref { sub fetchrow_arrayref {
my $self = shift; my $self = shift;
......
...@@ -28,7 +28,7 @@ use Bugzilla::Error; ...@@ -28,7 +28,7 @@ use Bugzilla::Error;
use DBD::Pg; use DBD::Pg;
# This module extends the DB interface via inheritance # 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 constant BLOB_TYPE => { pg_type => DBD::Pg::PG_BYTEA };
......
...@@ -18,7 +18,7 @@ use strict; ...@@ -18,7 +18,7 @@ use strict;
use Bugzilla::Error; 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 # 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 # boolean and when it's really a tinyint. This only has to be accurate
......
...@@ -16,7 +16,7 @@ package Bugzilla::DB::Schema::Oracle; ...@@ -16,7 +16,7 @@ package Bugzilla::DB::Schema::Oracle;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::DB::Schema); use parent qw(Bugzilla::DB::Schema);
use Carp qw(confess); use Carp qw(confess);
use Bugzilla::Util; use Bugzilla::Util;
......
...@@ -16,7 +16,7 @@ package Bugzilla::DB::Schema::Pg; ...@@ -16,7 +16,7 @@ package Bugzilla::DB::Schema::Pg;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::DB::Schema); use parent qw(Bugzilla::DB::Schema);
use Storable qw(dclone); use Storable qw(dclone);
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
......
...@@ -10,7 +10,7 @@ package Bugzilla::DB::Schema::Sqlite; ...@@ -10,7 +10,7 @@ package Bugzilla::DB::Schema::Sqlite;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::DB::Schema); use parent qw(Bugzilla::DB::Schema);
use Bugzilla::Error; use Bugzilla::Error;
use Bugzilla::Util qw(generate_random_password); use Bugzilla::Util qw(generate_random_password);
......
...@@ -10,7 +10,7 @@ package Bugzilla::DB::Sqlite; ...@@ -10,7 +10,7 @@ package Bugzilla::DB::Sqlite;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::DB); use parent qw(Bugzilla::DB);
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::Error; use Bugzilla::Error;
......
...@@ -10,7 +10,7 @@ package Bugzilla::Error; ...@@ -10,7 +10,7 @@ package Bugzilla::Error;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Exporter); use parent qw(Exporter);
@Bugzilla::Error::EXPORT = qw(ThrowCodeError ThrowTemplateError ThrowUserError); @Bugzilla::Error::EXPORT = qw(ThrowCodeError ThrowTemplateError ThrowUserError);
......
...@@ -240,7 +240,7 @@ F<extensions/Foo.pm>: ...@@ -240,7 +240,7 @@ F<extensions/Foo.pm>:
package Bugzilla::Extension::Foo package Bugzilla::Extension::Foo
use strict; use strict;
use base qw(Bugzilla::Extension); use parent qw(Bugzilla::Extension);
our $VERSION = '0.02'; our $VERSION = '0.02';
use constant NAME => 'Foo'; use constant NAME => 'Foo';
......
...@@ -60,7 +60,7 @@ package Bugzilla::Field; ...@@ -60,7 +60,7 @@ package Bugzilla::Field;
use 5.10.1; use 5.10.1;
use strict; 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); @Bugzilla::Field::EXPORT = qw(check_field get_field_id get_legal_field_values);
use Bugzilla::Constants; use Bugzilla::Constants;
......
...@@ -10,7 +10,7 @@ package Bugzilla::Field::Choice; ...@@ -10,7 +10,7 @@ package Bugzilla::Field::Choice;
use 5.10.1; use 5.10.1;
use strict; 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::Config qw(SetParam write_params);
use Bugzilla::Constants; use Bugzilla::Constants;
...@@ -95,7 +95,7 @@ sub type { ...@@ -95,7 +95,7 @@ sub type {
if (!defined *{"${package}::DB_TABLE"}) { if (!defined *{"${package}::DB_TABLE"}) {
eval <<EOC; eval <<EOC;
package $package; package $package;
use base qw(Bugzilla::Field::Choice); use parent qw(Bugzilla::Field::Choice);
use constant DB_TABLE => '$field_name'; use constant DB_TABLE => '$field_name';
EOC EOC
} }
......
...@@ -50,7 +50,7 @@ use Bugzilla::Mailer; ...@@ -50,7 +50,7 @@ use Bugzilla::Mailer;
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::Field; use Bugzilla::Field;
use base qw(Bugzilla::Object Exporter); use parent qw(Bugzilla::Object Exporter);
@Bugzilla::Flag::EXPORT = qw(SKIP_REQUESTEE_ON_ERROR); @Bugzilla::Flag::EXPORT = qw(SKIP_REQUESTEE_ON_ERROR);
############################### ###############################
......
...@@ -41,7 +41,7 @@ use Bugzilla::Group; ...@@ -41,7 +41,7 @@ use Bugzilla::Group;
use Email::Address; use Email::Address;
use base qw(Bugzilla::Object); use parent qw(Bugzilla::Object);
############################### ###############################
#### Initialization #### #### Initialization ####
......
...@@ -10,7 +10,7 @@ package Bugzilla::Group; ...@@ -10,7 +10,7 @@ package Bugzilla::Group;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::Object); use parent qw(Bugzilla::Object);
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::Util; use Bugzilla::Util;
......
...@@ -10,7 +10,7 @@ package Bugzilla::Install::CPAN; ...@@ -10,7 +10,7 @@ package Bugzilla::Install::CPAN;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Exporter); use parent qw(Exporter);
our @EXPORT = qw( our @EXPORT = qw(
BZ_LIB BZ_LIB
......
...@@ -33,7 +33,7 @@ use File::Spec; ...@@ -33,7 +33,7 @@ use File::Spec;
use IO::File; use IO::File;
use POSIX (); use POSIX ();
use base qw(Exporter); use parent qw(Exporter);
our @EXPORT = qw( our @EXPORT = qw(
update_filesystem update_filesystem
create_htaccess create_htaccess
......
...@@ -27,7 +27,7 @@ use File::Basename qw(dirname); ...@@ -27,7 +27,7 @@ use File::Basename qw(dirname);
use Safe; use Safe;
use Term::ANSIColor; use Term::ANSIColor;
use base qw(Exporter); use parent qw(Exporter);
our @EXPORT_OK = qw( our @EXPORT_OK = qw(
read_localconfig read_localconfig
......
...@@ -23,7 +23,7 @@ use List::Util qw(max); ...@@ -23,7 +23,7 @@ use List::Util qw(max);
use Safe; use Safe;
use Term::ANSIColor; use Term::ANSIColor;
use base qw(Exporter); use parent qw(Exporter);
our @EXPORT = qw( our @EXPORT = qw(
REQUIRED_MODULES REQUIRED_MODULES
OPTIONAL_MODULES OPTIONAL_MODULES
......
...@@ -24,7 +24,7 @@ use Scalar::Util qw(tainted); ...@@ -24,7 +24,7 @@ use Scalar::Util qw(tainted);
use Term::ANSIColor qw(colored); use Term::ANSIColor qw(colored);
use PerlIO; use PerlIO;
use base qw(Exporter); use parent qw(Exporter);
our @EXPORT_OK = qw( our @EXPORT_OK = qw(
bin_loc bin_loc
get_version_and_os get_version_and_os
......
...@@ -11,7 +11,7 @@ use 5.10.1; ...@@ -11,7 +11,7 @@ use 5.10.1;
use strict; use strict;
use Bugzilla::Mailer; 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. # The longest we expect a job to possibly take, in seconds.
use constant grab_for => 300; use constant grab_for => 300;
......
...@@ -13,7 +13,7 @@ use strict; ...@@ -13,7 +13,7 @@ use strict;
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::Error; use Bugzilla::Error;
use Bugzilla::Install::Util qw(install_string); 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. # This maps job names for Bugzilla::JobQueue to the appropriate modules.
# If you add new types of jobs, you should add a mapping here. # If you add new types of jobs, you should add a mapping here.
......
...@@ -22,7 +22,7 @@ use Pod::Usage; ...@@ -22,7 +22,7 @@ use Pod::Usage;
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::JobQueue; use Bugzilla::JobQueue;
use Bugzilla::Util qw(get_text); use Bugzilla::Util qw(get_text);
BEGIN { eval "use base qw(Daemon::Generic)"; } BEGIN { eval "use parent qw(Daemon::Generic)"; }
our $VERSION = BUGZILLA_VERSION; our $VERSION = BUGZILLA_VERSION;
......
...@@ -10,7 +10,7 @@ package Bugzilla::Keyword; ...@@ -10,7 +10,7 @@ package Bugzilla::Keyword;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::Object); use parent qw(Bugzilla::Object);
use Bugzilla::Error; use Bugzilla::Error;
use Bugzilla::Util; use Bugzilla::Util;
......
...@@ -10,7 +10,7 @@ package Bugzilla::Mailer; ...@@ -10,7 +10,7 @@ package Bugzilla::Mailer;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Exporter); use parent qw(Exporter);
@Bugzilla::Mailer::EXPORT = qw(MessageToMTA build_thread_marker); @Bugzilla::Mailer::EXPORT = qw(MessageToMTA build_thread_marker);
use Bugzilla::Constants; use Bugzilla::Constants;
......
...@@ -10,7 +10,7 @@ package Bugzilla::Migrate::Gnats; ...@@ -10,7 +10,7 @@ package Bugzilla::Migrate::Gnats;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::Migrate); use parent qw(Bugzilla::Migrate);
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::Install::Util qw(indicate_progress); use Bugzilla::Install::Util qw(indicate_progress);
......
...@@ -10,7 +10,7 @@ package Bugzilla::Milestone; ...@@ -10,7 +10,7 @@ package Bugzilla::Milestone;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::Object); use parent qw(Bugzilla::Object);
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::Util; use Bugzilla::Util;
......
...@@ -10,7 +10,7 @@ package Bugzilla::Product; ...@@ -10,7 +10,7 @@ package Bugzilla::Product;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::Field::ChoiceInterface Bugzilla::Object); use parent qw(Bugzilla::Field::ChoiceInterface Bugzilla::Object);
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::Util; use Bugzilla::Util;
......
...@@ -10,7 +10,7 @@ package Bugzilla::RNG; ...@@ -10,7 +10,7 @@ package Bugzilla::RNG;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Exporter); use parent qw(Exporter);
use Bugzilla::Constants qw(ON_WINDOWS); use Bugzilla::Constants qw(ON_WINDOWS);
use Math::Random::ISAAC; use Math::Random::ISAAC;
......
...@@ -10,7 +10,7 @@ package Bugzilla::Report; ...@@ -10,7 +10,7 @@ package Bugzilla::Report;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::Object); use parent qw(Bugzilla::Object);
use Bugzilla::CGI; use Bugzilla::CGI;
use Bugzilla::Constants; use Bugzilla::Constants;
......
...@@ -10,7 +10,7 @@ package Bugzilla::Search; ...@@ -10,7 +10,7 @@ package Bugzilla::Search;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Exporter); use parent qw(Exporter);
@Bugzilla::Search::EXPORT = qw( @Bugzilla::Search::EXPORT = qw(
IsValidQueryType IsValidQueryType
split_order_term split_order_term
......
...@@ -10,7 +10,7 @@ package Bugzilla::Search::Condition; ...@@ -10,7 +10,7 @@ package Bugzilla::Search::Condition;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Exporter); use parent qw(Exporter);
our @EXPORT_OK = qw(condition); our @EXPORT_OK = qw(condition);
sub new { sub new {
......
...@@ -21,7 +21,7 @@ use List::Util qw(min max); ...@@ -21,7 +21,7 @@ use List::Util qw(min max);
use List::MoreUtils qw(firstidx); use List::MoreUtils qw(firstidx);
use Text::ParseWords qw(parse_line); use Text::ParseWords qw(parse_line);
use base qw(Exporter); use parent qw(Exporter);
@Bugzilla::Search::Quicksearch::EXPORT = qw(quicksearch); @Bugzilla::Search::Quicksearch::EXPORT = qw(quicksearch);
# Custom mappings for some fields. # Custom mappings for some fields.
......
...@@ -10,7 +10,7 @@ package Bugzilla::Search::Recent; ...@@ -10,7 +10,7 @@ package Bugzilla::Search::Recent;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::Object); use parent qw(Bugzilla::Object);
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::Error; use Bugzilla::Error;
......
...@@ -10,7 +10,7 @@ package Bugzilla::Search::Saved; ...@@ -10,7 +10,7 @@ package Bugzilla::Search::Saved;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::Object); use parent qw(Bugzilla::Object);
use Bugzilla::CGI; use Bugzilla::CGI;
use Bugzilla::Constants; use Bugzilla::Constants;
......
...@@ -10,7 +10,7 @@ package Bugzilla::Send::Sendmail; ...@@ -10,7 +10,7 @@ package Bugzilla::Send::Sendmail;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Email::Send::Sendmail); use parent qw(Email::Send::Sendmail);
use Return::Value; use Return::Value;
use Symbol qw(gensym); use Symbol qw(gensym);
......
...@@ -14,7 +14,7 @@ use strict; ...@@ -14,7 +14,7 @@ use strict;
# ChoiceInterface, because a bug status literally is a special type # ChoiceInterface, because a bug status literally is a special type
# of Field::Choice, not just an object that happens to have the same # of Field::Choice, not just an object that happens to have the same
# methods. # methods.
use base qw(Bugzilla::Field::Choice Exporter); use parent qw(Bugzilla::Field::Choice Exporter);
@Bugzilla::Status::EXPORT = qw( @Bugzilla::Status::EXPORT = qw(
BUG_STATE_OPEN BUG_STATE_OPEN
SPECIAL_STATUS_WORKFLOW_ACTIONS SPECIAL_STATUS_WORKFLOW_ACTIONS
......
...@@ -34,7 +34,7 @@ use IO::Dir; ...@@ -34,7 +34,7 @@ use IO::Dir;
use List::MoreUtils qw(firstidx); use List::MoreUtils qw(firstidx);
use Scalar::Util qw(blessed); use Scalar::Util qw(blessed);
use base qw(Template); use parent qw(Template);
use constant FORMAT_TRIPLE => '%19s|%-28s|%-28s'; use constant FORMAT_TRIPLE => '%19s|%-28s|%-28s';
use constant FORMAT_3_SIZE => [19,28,28]; use constant FORMAT_3_SIZE => [19,28,28];
......
...@@ -11,7 +11,7 @@ package Bugzilla::Template::Context; ...@@ -11,7 +11,7 @@ package Bugzilla::Template::Context;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Template::Context); use parent qw(Template::Context);
use Bugzilla::Hook; use Bugzilla::Hook;
use Scalar::Util qw(blessed); use Scalar::Util qw(blessed);
......
...@@ -10,7 +10,7 @@ package Bugzilla::Template::Plugin::Bugzilla; ...@@ -10,7 +10,7 @@ package Bugzilla::Template::Plugin::Bugzilla;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Template::Plugin); use parent qw(Template::Plugin);
use Bugzilla; use Bugzilla;
......
...@@ -10,7 +10,7 @@ package Bugzilla::Template::Plugin::Hook; ...@@ -10,7 +10,7 @@ package Bugzilla::Template::Plugin::Hook;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Template::Plugin); use parent qw(Template::Plugin);
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::Install::Util qw(template_include_path); use Bugzilla::Install::Util qw(template_include_path);
......
...@@ -21,7 +21,7 @@ use Date::Parse; ...@@ -21,7 +21,7 @@ use Date::Parse;
use File::Basename; use File::Basename;
use Digest::SHA qw(hmac_sha256_base64); 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 @Bugzilla::Token::EXPORT = qw(issue_session_token check_token_data delete_token
issue_hash_token check_hash_token); issue_hash_token check_hash_token);
......
...@@ -27,7 +27,7 @@ use Storable qw(dclone); ...@@ -27,7 +27,7 @@ use Storable qw(dclone);
use URI; use URI;
use URI::QueryParam; use URI::QueryParam;
use base qw(Bugzilla::Object Exporter); use parent qw(Bugzilla::Object Exporter);
@Bugzilla::User::EXPORT = qw(is_available_username @Bugzilla::User::EXPORT = qw(is_available_username
login_to_id user_id_to_login validate_password login_to_id user_id_to_login validate_password
USER_MATCH_MULTIPLE USER_MATCH_FAILED USER_MATCH_SUCCESS USER_MATCH_MULTIPLE USER_MATCH_FAILED USER_MATCH_SUCCESS
......
...@@ -11,7 +11,7 @@ package Bugzilla::User::Setting; ...@@ -11,7 +11,7 @@ package Bugzilla::User::Setting;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Exporter); use parent qw(Exporter);
# Module stuff # Module stuff
......
...@@ -10,7 +10,7 @@ package Bugzilla::User::Setting::Lang; ...@@ -10,7 +10,7 @@ package Bugzilla::User::Setting::Lang;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::User::Setting); use parent qw(Bugzilla::User::Setting);
use Bugzilla::Constants; use Bugzilla::Constants;
......
...@@ -11,7 +11,7 @@ package Bugzilla::User::Setting::Skin; ...@@ -11,7 +11,7 @@ package Bugzilla::User::Setting::Skin;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::User::Setting); use parent qw(Bugzilla::User::Setting);
use Bugzilla::Constants; use Bugzilla::Constants;
use File::Spec::Functions; use File::Spec::Functions;
......
...@@ -12,7 +12,7 @@ use strict; ...@@ -12,7 +12,7 @@ use strict;
use DateTime::TimeZone; use DateTime::TimeZone;
use base qw(Bugzilla::User::Setting); use parent qw(Bugzilla::User::Setting);
use Bugzilla::Constants; use Bugzilla::Constants;
......
...@@ -10,7 +10,7 @@ package Bugzilla::UserAgent; ...@@ -10,7 +10,7 @@ package Bugzilla::UserAgent;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Exporter); use parent qw(Exporter);
our @EXPORT = qw(detect_platform detect_op_sys); our @EXPORT = qw(detect_platform detect_op_sys);
use Bugzilla::Field; use Bugzilla::Field;
......
...@@ -10,7 +10,7 @@ package Bugzilla::Util; ...@@ -10,7 +10,7 @@ package Bugzilla::Util;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Exporter); use parent qw(Exporter);
@Bugzilla::Util::EXPORT = qw(trick_taint detaint_natural detaint_signed @Bugzilla::Util::EXPORT = qw(trick_taint detaint_natural detaint_signed
html_quote url_quote xml_quote html_quote url_quote xml_quote
css_class_quote html_light_quote css_class_quote html_light_quote
......
...@@ -10,7 +10,7 @@ package Bugzilla::Version; ...@@ -10,7 +10,7 @@ package Bugzilla::Version;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::Object); use parent qw(Bugzilla::Object);
use Bugzilla::Install::Util qw(vers_cmp); use Bugzilla::Install::Util qw(vers_cmp);
use Bugzilla::Util; use Bugzilla::Util;
......
...@@ -10,7 +10,7 @@ package Bugzilla::WebService::Bug; ...@@ -10,7 +10,7 @@ package Bugzilla::WebService::Bug;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::WebService); use parent qw(Bugzilla::WebService);
use Bugzilla::Comment; use Bugzilla::Comment;
use Bugzilla::Constants; use Bugzilla::Constants;
......
...@@ -10,7 +10,7 @@ package Bugzilla::WebService::Bugzilla; ...@@ -10,7 +10,7 @@ package Bugzilla::WebService::Bugzilla;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::WebService); use parent qw(Bugzilla::WebService);
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::Util qw(datetime_from); use Bugzilla::Util qw(datetime_from);
use Bugzilla::WebService::Util qw(validate filter_wants); use Bugzilla::WebService::Util qw(validate filter_wants);
......
...@@ -10,7 +10,7 @@ package Bugzilla::WebService::Classification; ...@@ -10,7 +10,7 @@ package Bugzilla::WebService::Classification;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw (Bugzilla::WebService); use parent qw (Bugzilla::WebService);
use Bugzilla::Classification; use Bugzilla::Classification;
use Bugzilla::Error; use Bugzilla::Error;
......
...@@ -10,7 +10,7 @@ package Bugzilla::WebService::Constants; ...@@ -10,7 +10,7 @@ package Bugzilla::WebService::Constants;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Exporter); use parent qw(Exporter);
our @EXPORT = qw( our @EXPORT = qw(
WS_ERROR_CODE WS_ERROR_CODE
......
...@@ -10,7 +10,7 @@ package Bugzilla::WebService::Group; ...@@ -10,7 +10,7 @@ package Bugzilla::WebService::Group;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::WebService); use parent qw(Bugzilla::WebService);
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::Error; use Bugzilla::Error;
use Bugzilla::WebService::Util qw(validate translate params_to_objects); use Bugzilla::WebService::Util qw(validate translate params_to_objects);
......
...@@ -10,7 +10,7 @@ package Bugzilla::WebService::Product; ...@@ -10,7 +10,7 @@ package Bugzilla::WebService::Product;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::WebService); use parent qw(Bugzilla::WebService);
use Bugzilla::Product; use Bugzilla::Product;
use Bugzilla::User; use Bugzilla::User;
use Bugzilla::Error; use Bugzilla::Error;
......
...@@ -11,7 +11,7 @@ When XMLRPC::Lite calls a method, $self is the name of the *class* the ...@@ -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 method is in. For example, if we call Bugzilla.version(), the first argument
is Bugzilla::WebService::Bugzilla. So in order to have $self is Bugzilla::WebService::Bugzilla. So in order to have $self
(our first argument) act correctly in XML-RPC, we make all WebService (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 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 words, it's an instance of Bugzilla::WebService::Server::JSONRPC. So we have
......
...@@ -79,7 +79,7 @@ package Bugzilla::XMLRPC::Deserializer; ...@@ -79,7 +79,7 @@ package Bugzilla::XMLRPC::Deserializer;
use 5.10.1; use 5.10.1;
use strict; 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. # a true value.
use XMLRPC::Lite; use XMLRPC::Lite;
our @ISA = qw(XMLRPC::Deserializer); our @ISA = qw(XMLRPC::Deserializer);
...@@ -204,7 +204,7 @@ use 5.10.1; ...@@ -204,7 +204,7 @@ use 5.10.1;
use strict; use strict;
use Scalar::Util qw(blessed); 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. # a true value.
use XMLRPC::Lite; use XMLRPC::Lite;
our @ISA = qw(XMLRPC::Serializer); our @ISA = qw(XMLRPC::Serializer);
......
...@@ -10,7 +10,7 @@ package Bugzilla::WebService::User; ...@@ -10,7 +10,7 @@ package Bugzilla::WebService::User;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::WebService); use parent qw(Bugzilla::WebService);
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::Error; use Bugzilla::Error;
......
...@@ -10,7 +10,7 @@ package Bugzilla::WebService::Util; ...@@ -10,7 +10,7 @@ package Bugzilla::WebService::Util;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Exporter); use parent qw(Exporter);
# We have to "require", not "use" this, because otherwise it tries to # We have to "require", not "use" this, because otherwise it tries to
# use features of Test::More during import(). # use features of Test::More during import().
......
...@@ -10,7 +10,7 @@ package Bugzilla::Whine; ...@@ -10,7 +10,7 @@ package Bugzilla::Whine;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::Object); use parent qw(Bugzilla::Object);
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::Error; use Bugzilla::Error;
......
...@@ -10,7 +10,7 @@ package Bugzilla::Whine::Query; ...@@ -10,7 +10,7 @@ package Bugzilla::Whine::Query;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::Object); use parent qw(Bugzilla::Object);
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::Search::Saved; use Bugzilla::Search::Saved;
......
...@@ -10,7 +10,7 @@ package Bugzilla::Whine::Schedule; ...@@ -10,7 +10,7 @@ package Bugzilla::Whine::Schedule;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Bugzilla::Object); use parent qw(Bugzilla::Object);
use Bugzilla::Constants; use Bugzilla::Constants;
......
...@@ -76,7 +76,7 @@ END ...@@ -76,7 +76,7 @@ END
my $extension_pm = <<END; my $extension_pm = <<END;
package Bugzilla::Extension::$extension_name; package Bugzilla::Extension::$extension_name;
use strict; use strict;
use base qw(Bugzilla::Extension); use parent qw(Bugzilla::Extension);
$modules $modules
......
...@@ -10,7 +10,7 @@ package Pod::Simple::HTML::Bugzilla; ...@@ -10,7 +10,7 @@ package Pod::Simple::HTML::Bugzilla;
use 5.10.1; use 5.10.1;
use strict; use strict;
use base qw(Pod::Simple::HTML); use parent qw(Pod::Simple::HTML);
# Without this constant, HTMLBatch will throw undef warnings. # Without this constant, HTMLBatch will throw undef warnings.
use constant VERSION => $Pod::Simple::HTML::VERSION; use constant VERSION => $Pod::Simple::HTML::VERSION;
......
...@@ -10,7 +10,7 @@ package Pod::Simple::HTMLBatch::Bugzilla; ...@@ -10,7 +10,7 @@ package Pod::Simple::HTMLBatch::Bugzilla;
use 5.10.1; use 5.10.1;
use strict; 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. # This is the same hack that HTMLBatch does to "import" this subroutine.
BEGIN { *esc = \&Pod::Simple::HTML::esc } BEGIN { *esc = \&Pod::Simple::HTML::esc }
......
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
package Bugzilla::Extension::BmpConvert; package Bugzilla::Extension::BmpConvert;
use strict; use strict;
use base qw(Bugzilla::Extension); use parent qw(Bugzilla::Extension);
use Image::Magick; use Image::Magick;
......
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
package Bugzilla::Extension::Example; package Bugzilla::Extension::Example;
use strict; use strict;
use base qw(Bugzilla::Extension); use parent qw(Bugzilla::Extension);
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::Error; use Bugzilla::Error;
......
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
package Bugzilla::Extension::Example::Auth::Login; package Bugzilla::Extension::Example::Auth::Login;
use strict; use strict;
use base qw(Bugzilla::Auth::Login); use parent qw(Bugzilla::Auth::Login);
use constant user_can_create_account => 0; use constant user_can_create_account => 0;
use Bugzilla::Constants; use Bugzilla::Constants;
......
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
package Bugzilla::Extension::Example::Auth::Verify; package Bugzilla::Extension::Example::Auth::Verify;
use strict; use strict;
use base qw(Bugzilla::Auth::Verify); use parent qw(Bugzilla::Auth::Verify);
use Bugzilla::Constants; use Bugzilla::Constants;
# A verifier that always fails. # A verifier that always fails.
......
...@@ -8,7 +8,7 @@ ...@@ -8,7 +8,7 @@
package Bugzilla::Extension::Example::WebService; package Bugzilla::Extension::Example::WebService;
use strict; use strict;
use warnings; use warnings;
use base qw(Bugzilla::WebService); use parent qw(Bugzilla::WebService);
use Bugzilla::Error; use Bugzilla::Error;
# This can be called as Example.hello() from the WebService. # This can be called as Example.hello() from the WebService.
......
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
package Bugzilla::Extension::MoreBugUrl; package Bugzilla::Extension::MoreBugUrl;
use strict; use strict;
use base qw(Bugzilla::Extension); use parent qw(Bugzilla::Extension);
use constant MORE_SUB_CLASSES => qw( use constant MORE_SUB_CLASSES => qw(
Bugzilla::Extension::MoreBugUrl::ReviewBoard Bugzilla::Extension::MoreBugUrl::ReviewBoard
......
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
package Bugzilla::Extension::MoreBugUrl::GetSatisfaction; package Bugzilla::Extension::MoreBugUrl::GetSatisfaction;
use strict; use strict;
use base qw(Bugzilla::BugUrl); use parent qw(Bugzilla::BugUrl);
############################### ###############################
#### Methods #### #### Methods ####
......
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
package Bugzilla::Extension::MoreBugUrl::PHP; package Bugzilla::Extension::MoreBugUrl::PHP;
use strict; use strict;
use base qw(Bugzilla::BugUrl); use parent qw(Bugzilla::BugUrl);
############################### ###############################
#### Methods #### #### 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