remove use base Exporter;
no need to call import
This commit is contained in:
@@ -9,7 +9,7 @@ use comments();
|
|||||||
use calendar();
|
use calendar();
|
||||||
use project();
|
use project();
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(get_cache configure_cache put_cache get_list check_params);
|
our @EXPORT_OK = qw(get_cache configure_cache put_cache get_list check_params);
|
||||||
|
|
||||||
sub get_list($$) {
|
sub get_list($$) {
|
||||||
|
|||||||
@@ -7,7 +7,7 @@ no warnings 'redefine';
|
|||||||
use Data::Dumper;
|
use Data::Dumper;
|
||||||
use db();
|
use db();
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(get_columns get);
|
our @EXPORT_OK = qw(get_columns get);
|
||||||
|
|
||||||
# columns:
|
# columns:
|
||||||
|
|||||||
@@ -12,7 +12,7 @@ use Authen::Passphrase::BlowfishCrypt();
|
|||||||
use time();
|
use time();
|
||||||
use user_sessions ();
|
use user_sessions ();
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(get_user login logout crypt_password);
|
our @EXPORT_OK = qw(get_user login logout crypt_password);
|
||||||
my $defaultExpiration = 60;
|
my $defaultExpiration = 60;
|
||||||
|
|
||||||
|
|||||||
@@ -10,7 +10,7 @@ use Date::Calc();
|
|||||||
use template();
|
use template();
|
||||||
use events();
|
use events();
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(init get_cached_or_render get render get_calendar_weeks configure_cache);
|
our @EXPORT_OK = qw(init get_cached_or_render get render get_calendar_weeks configure_cache);
|
||||||
|
|
||||||
sub init() {
|
sub init() {
|
||||||
|
|||||||
@@ -11,7 +11,7 @@ use markup();
|
|||||||
use template();
|
use template();
|
||||||
use time();
|
use time();
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK =
|
our @EXPORT_OK =
|
||||||
qw(init get_cached_or_render get modify_results render configure_cache get_query get_by_event get_level get_events check insert set_lock_status set_news_status lock update_comment_count sort);
|
qw(init get_cached_or_render get modify_results render configure_cache get_query get_by_event get_level get_events check insert set_lock_status set_news_status lock update_comment_count sort);
|
||||||
|
|
||||||
|
|||||||
@@ -7,7 +7,7 @@ no warnings 'redefine';
|
|||||||
use FindBin();
|
use FindBin();
|
||||||
use Config::General();
|
use Config::General();
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(get set);
|
our @EXPORT_OK = qw(get set);
|
||||||
|
|
||||||
my $config = undef;
|
my $config = undef;
|
||||||
|
|||||||
@@ -7,7 +7,7 @@ no warnings 'redefine';
|
|||||||
use Data::Dumper;
|
use Data::Dumper;
|
||||||
use markup();
|
use markup();
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK =
|
our @EXPORT_OK =
|
||||||
qw(extractEventFromWikiText removeMeta eventToWikiText extractMeta removeMeta metaToWiki);
|
qw(extractEventFromWikiText removeMeta eventToWikiText extractMeta removeMeta metaToWiki);
|
||||||
|
|
||||||
|
|||||||
@@ -8,7 +8,7 @@ use DBD::mysql();
|
|||||||
use Digest::MD5 qw();
|
use Digest::MD5 qw();
|
||||||
use Data::Dumper;
|
use Data::Dumper;
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(
|
our @EXPORT_OK = qw(
|
||||||
connect disconnect
|
connect disconnect
|
||||||
get insert put
|
get insert put
|
||||||
|
|||||||
@@ -13,7 +13,7 @@ use studios();
|
|||||||
use series_events();
|
use series_events();
|
||||||
use user_stats();
|
use user_stats();
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(
|
our @EXPORT_OK = qw(
|
||||||
setAttributesFromSeriesTemplate
|
setAttributesFromSeriesTemplate
|
||||||
setAttributesFromSchedule
|
setAttributesFromSchedule
|
||||||
|
|||||||
@@ -6,7 +6,7 @@ no warnings 'redefine';
|
|||||||
|
|
||||||
use Data::Dumper;
|
use Data::Dumper;
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(get_columns get get_by_id insert insert_by_event_id delete);
|
our @EXPORT_OK = qw(get_columns get get_by_id insert insert_by_event_id delete);
|
||||||
|
|
||||||
sub debug;
|
sub debug;
|
||||||
|
|||||||
@@ -17,7 +17,7 @@ use log();
|
|||||||
use project();
|
use project();
|
||||||
use studios();
|
use studios();
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(
|
our @EXPORT_OK = qw(
|
||||||
init
|
init
|
||||||
get_cached_or_render
|
get_cached_or_render
|
||||||
|
|||||||
@@ -8,7 +8,7 @@ use config();
|
|||||||
use template();
|
use template();
|
||||||
use Data::Dumper;
|
use Data::Dumper;
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(get insert update insert_or_update delete delete_files);
|
our @EXPORT_OK = qw(get insert update insert_or_update delete delete_files);
|
||||||
|
|
||||||
#column 'created_at' will be set at insert
|
#column 'created_at' will be set at insert
|
||||||
|
|||||||
@@ -8,7 +8,7 @@ use Data::Dumper;
|
|||||||
use uac();
|
use uac();
|
||||||
use user_settings();
|
use user_settings();
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(get getJavascript);
|
our @EXPORT_OK = qw(get getJavascript);
|
||||||
|
|
||||||
sub debug;
|
sub debug;
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use strict;
|
|||||||
use warnings;
|
use warnings;
|
||||||
no warnings 'redefine';
|
no warnings 'redefine';
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(error load_file save_file append_file);
|
our @EXPORT_OK = qw(error load_file save_file append_file);
|
||||||
|
|
||||||
use config();
|
use config();
|
||||||
|
|||||||
@@ -14,7 +14,7 @@ use Text::Markdown();
|
|||||||
|
|
||||||
use log();
|
use log();
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK =
|
our @EXPORT_OK =
|
||||||
qw(fix_line_ends html_to_creole creole_to_html creole_to_plain plain_to_ical ical_to_plain ical_to_xml html_to_plain fix_utf8 uri_encode compress base26);
|
qw(fix_line_ends html_to_creole creole_to_html creole_to_plain plain_to_ical ical_to_plain ical_to_xml html_to_plain fix_utf8 uri_encode compress base26);
|
||||||
|
|
||||||
|
|||||||
@@ -7,7 +7,7 @@ no warnings 'redefine';
|
|||||||
use Data::Dumper;
|
use Data::Dumper;
|
||||||
use Apache2::Request();
|
use Apache2::Request();
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(get isJson);
|
our @EXPORT_OK = qw(get isJson);
|
||||||
|
|
||||||
sub debug;
|
sub debug;
|
||||||
|
|||||||
@@ -8,7 +8,7 @@ use Data::Dumper;
|
|||||||
use Session::Token();
|
use Session::Token();
|
||||||
|
|
||||||
# table: calcms_password_requests
|
# table: calcms_password_requests
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(get insert delete get_columns);
|
our @EXPORT_OK = qw(get insert delete get_columns);
|
||||||
|
|
||||||
use mail;
|
use mail;
|
||||||
|
|||||||
@@ -10,7 +10,7 @@ use db();
|
|||||||
use time();
|
use time();
|
||||||
use series_events();
|
use series_events();
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(get_columns get sync);
|
our @EXPORT_OK = qw(get_columns get sync);
|
||||||
|
|
||||||
sub debug;
|
sub debug;
|
||||||
|
|||||||
@@ -12,7 +12,7 @@ use log();
|
|||||||
use template();
|
use template();
|
||||||
use images();
|
use images();
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(
|
our @EXPORT_OK = qw(
|
||||||
check get_columns get insert delete get_date_range
|
check get_columns get insert delete get_date_range
|
||||||
get_studios assign_studio unassign_studio is_studio_assigned get_studio_assignments
|
get_studios assign_studio unassign_studio is_studio_assigned get_studio_assignments
|
||||||
|
|||||||
@@ -8,7 +8,7 @@ use Apache2::Reload();
|
|||||||
|
|
||||||
use config();
|
use config();
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
my @EXPORT_OK = qw(get_user get_user_permissions get_template_parameters get_jobs);
|
my @EXPORT_OK = qw(get_user get_user_permissions get_template_parameters get_jobs);
|
||||||
|
|
||||||
my $ROLES = {
|
my $ROLES = {
|
||||||
|
|||||||
@@ -9,7 +9,7 @@ use Data::Dumper;
|
|||||||
use events();
|
use events();
|
||||||
use images();
|
use images();
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(
|
our @EXPORT_OK = qw(
|
||||||
get_columns get insert update delete
|
get_columns get insert update delete
|
||||||
get_users add_user remove_user
|
get_users add_user remove_user
|
||||||
|
|||||||
@@ -16,7 +16,7 @@ use series_schedule();
|
|||||||
# table: calcms_series_dates
|
# table: calcms_series_dates
|
||||||
# columns: id, studio_id, series_id, start(datetime), end(datetime)
|
# columns: id, studio_id, series_id, start(datetime), end(datetime)
|
||||||
# TODO: delete column schedule_id
|
# TODO: delete column schedule_id
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(get_columns get insert update delete get_dates get_series);
|
our @EXPORT_OK = qw(get_columns get insert update delete get_dates get_series);
|
||||||
|
|
||||||
sub debug;
|
sub debug;
|
||||||
|
|||||||
@@ -22,7 +22,7 @@ use images();
|
|||||||
|
|
||||||
# check permissions, insert and update events related to series
|
# check permissions, insert and update events related to series
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(
|
our @EXPORT_OK = qw(
|
||||||
check_permission
|
check_permission
|
||||||
save_content
|
save_content
|
||||||
|
|||||||
@@ -18,7 +18,7 @@ use series_dates();
|
|||||||
# month
|
# month
|
||||||
# nextDay (add 24 hours to start)
|
# nextDay (add 24 hours to start)
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(get_columns get insert update delete);
|
our @EXPORT_OK = qw(get_columns get insert update delete);
|
||||||
|
|
||||||
sub debug;
|
sub debug;
|
||||||
|
|||||||
@@ -12,7 +12,7 @@ use time();
|
|||||||
# table: calcms_studio_timeslot_dates
|
# table: calcms_studio_timeslot_dates
|
||||||
# columns: id, studio_id, start(datetime), end(datetime)
|
# columns: id, studio_id, start(datetime), end(datetime)
|
||||||
# TODO: delete column schedule_id
|
# TODO: delete column schedule_id
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(get_columns get insert update delete get_dates);
|
our @EXPORT_OK = qw(get_columns get insert update delete get_dates);
|
||||||
|
|
||||||
sub debug;
|
sub debug;
|
||||||
|
|||||||
@@ -10,7 +10,7 @@ use studio_timeslot_dates();
|
|||||||
# table: calcms_studio_timeslot_schedule
|
# table: calcms_studio_timeslot_schedule
|
||||||
# columns: id, project_id, studio_id, start(datetime), end(datetime), end_date(date),
|
# columns: id, project_id, studio_id, start(datetime), end(datetime), end_date(date),
|
||||||
# frequency(days), duration(minutes), create_events(days), publish_events(days)
|
# frequency(days), duration(minutes), create_events(days), publish_events(days)
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(get_columns get insert update delete);
|
our @EXPORT_OK = qw(get_columns get insert update delete);
|
||||||
|
|
||||||
sub debug;
|
sub debug;
|
||||||
|
|||||||
@@ -7,7 +7,7 @@ no warnings 'redefine';
|
|||||||
use Data::Dumper;
|
use Data::Dumper;
|
||||||
use images();
|
use images();
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(get_columns get get_by_id insert update delete check check_studio);
|
our @EXPORT_OK = qw(get_columns get get_by_id insert update delete check check_studio);
|
||||||
|
|
||||||
sub debug;
|
sub debug;
|
||||||
|
|||||||
@@ -5,7 +5,7 @@ use warnings;
|
|||||||
no warnings 'redefine';
|
no warnings 'redefine';
|
||||||
use Data::Dumper;
|
use Data::Dumper;
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(get_tags);
|
our @EXPORT_OK = qw(get_tags);
|
||||||
|
|
||||||
sub get_tags($) {
|
sub get_tags($) {
|
||||||
|
|||||||
@@ -18,7 +18,7 @@ use project();
|
|||||||
use log();
|
use log();
|
||||||
use roles();
|
use roles();
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(check process exit_on_missing_permission clear_cache);
|
our @EXPORT_OK = qw(check process exit_on_missing_permission clear_cache);
|
||||||
|
|
||||||
# TODO:config
|
# TODO:config
|
||||||
|
|||||||
@@ -14,7 +14,7 @@ use Data::Dumper;
|
|||||||
|
|
||||||
use config();
|
use config();
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(
|
our @EXPORT_OK = qw(
|
||||||
format_datetime format_time
|
format_datetime format_time
|
||||||
date_format time_format
|
date_format time_format
|
||||||
|
|||||||
@@ -15,7 +15,7 @@ use studios();
|
|||||||
use user_settings();
|
use user_settings();
|
||||||
use user_default_studios();
|
use user_default_studios();
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(
|
our @EXPORT_OK = qw(
|
||||||
get_user get_users update_user insert_user delete_user
|
get_user get_users update_user insert_user delete_user
|
||||||
get_roles insert_role update_role get_role_columns
|
get_roles insert_role update_role get_role_columns
|
||||||
|
|||||||
@@ -18,7 +18,7 @@ use time;
|
|||||||
# start (timestamp),
|
# start (timestamp),
|
||||||
# end (timestamp),
|
# end (timestamp),
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(get_columns get insert update delete);
|
our @EXPORT_OK = qw(get_columns get insert update delete);
|
||||||
|
|
||||||
sub debug;
|
sub debug;
|
||||||
|
|||||||
@@ -9,7 +9,7 @@ use series_dates();
|
|||||||
|
|
||||||
# table: calcms_user_settings
|
# table: calcms_user_settings
|
||||||
# columns: user, colors
|
# columns: user, colors
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(getColors getColorCss get insert update delete get_columns defaultColors);
|
our @EXPORT_OK = qw(getColors getColorCss get insert update delete get_columns defaultColors);
|
||||||
|
|
||||||
sub debug;
|
sub debug;
|
||||||
|
|||||||
@@ -5,7 +5,7 @@ use warnings;
|
|||||||
no warnings 'redefine';
|
no warnings 'redefine';
|
||||||
use Data::Dumper;
|
use Data::Dumper;
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(get_columns get update insert get_stats increase);
|
our @EXPORT_OK = qw(get_columns get update insert get_stats increase);
|
||||||
|
|
||||||
sub debug;
|
sub debug;
|
||||||
|
|||||||
@@ -16,7 +16,7 @@ use work_schedule();
|
|||||||
# table: calcms_work_dates
|
# table: calcms_work_dates
|
||||||
# columns: id, studio_id, schedule_id, start(datetime), end(datetime)
|
# columns: id, studio_id, schedule_id, start(datetime), end(datetime)
|
||||||
# TODO: delete column schedule_id
|
# TODO: delete column schedule_id
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(get_columns get insert update delete get_dates);
|
our @EXPORT_OK = qw(get_columns get insert update delete get_dates);
|
||||||
|
|
||||||
sub debug;
|
sub debug;
|
||||||
|
|||||||
@@ -17,7 +17,7 @@ use series_dates();
|
|||||||
# week_of_month (1..5)
|
# week_of_month (1..5)
|
||||||
# month
|
# month
|
||||||
|
|
||||||
use base 'Exporter';
|
#use base 'Exporter';
|
||||||
our @EXPORT_OK = qw(get_columns get insert update delete);
|
our @EXPORT_OK = qw(get_columns get insert update delete);
|
||||||
|
|
||||||
sub debug;
|
sub debug;
|
||||||
|
|||||||
Reference in New Issue
Block a user