TT#19710 Use strict and warnings everywhere

Except when Sipwise::Base is used which implies these.

Change-Id: I8a31cfd4b73513509587f31d81b2e53868972b1b

Author: guillemj

Build.PL

@@ -1,5 +1,8 @@
 #!/usr/bin/perl
 
+use strict;
+use warnings;
+
 use Module::Build qw();
 
 my $builder = Module::Build->new(

bin/ngcp-dump-schema

@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+
 use Sipwise::Base;
 use DBIx::Class::Schema::Loader qw(make_schema_at);
 use File::Path qw(make_path);

lib/NGCP/InterceptSchema.pm

@@ -1,7 +1,7 @@
 package NGCP::InterceptSchema;
 
-use warnings;
 use strict;
+use warnings;
 
 use parent 'NGCP::Schema';
 

lib/NGCP/Schema/InflateColumn/DateTime/EpochMicro.pm

@@ -1,4 +1,5 @@
 package NGCP::Schema::InflateColumn::DateTime::EpochMicro;
+
 use Sipwise::Base '-skip'=>['TryCatch'];
 use DateTime qw();
 

lib/NGCP/Schema/InflateColumn/DateTime/EpochMilli.pm

@@ -1,4 +1,5 @@
 package NGCP::Schema::InflateColumn::DateTime::EpochMilli;
+
 use Sipwise::Base '-skip'=>['TryCatch'];
 use DateTime qw();
 

lib/NGCP/Schema/InflateColumn/DateTime/EpochString.pm

@@ -1,4 +1,5 @@
 package NGCP::Schema::InflateColumn::DateTime::EpochString;
+
 use Sipwise::Base '-skip'=>['TryCatch'];
 use DateTime qw();
 

lib/NGCP/Schema/Result/acc.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::acc;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/acc_backup.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::acc_backup;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/acc_trash.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::acc_trash;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/active_watchers.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::active_watchers;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/address.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::address;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/admins.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::admins;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/aliases.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::aliases;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/autoprov_configs.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::autoprov_configs;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/autoprov_device_extensions.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::autoprov_device_extensions;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/autoprov_device_line_annotations.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::autoprov_device_line_annotations;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/autoprov_device_line_ranges.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::autoprov_device_line_ranges;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/autoprov_devices.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::autoprov_devices;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/autoprov_field_device_lines.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::autoprov_field_device_lines;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/autoprov_field_devices.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::autoprov_field_devices;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/autoprov_firmwares.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::autoprov_firmwares;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/autoprov_firmwares_data.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::autoprov_firmwares_data;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/autoprov_profiles.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::autoprov_profiles;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/autoprov_redirect_credentials.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::autoprov_redirect_credentials;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/autoprov_sync.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::autoprov_sync;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/autoprov_sync_parameters.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::autoprov_sync_parameters;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/billing_fees.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::billing_fees;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/billing_fees_history.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::billing_fees_history;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/billing_fees_raw.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::billing_fees_raw;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/billing_mappings.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::billing_mappings;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/billing_mappings_actual.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::billing_mappings_actual;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent qw/DBIx::Class::Core/;
 

lib/NGCP/Schema/Result/billing_network_blocks.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::billing_network_blocks;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use Math::BigInt;
 use parent 'DBIx::Class::Core';

lib/NGCP/Schema/Result/billing_networks.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::billing_networks;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/billing_peaktime_special.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::billing_peaktime_special;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/billing_peaktime_weekdays.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::billing_peaktime_weekdays;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/billing_profiles.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::billing_profiles;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/billing_zones.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::billing_zones;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/billing_zones_history.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::billing_zones_history;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/call_list_suppressions.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::call_list_suppressions;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/carrier_contracts.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::carrier_contracts;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/carrier_customers.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::carrier_customers;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/carrier_orders.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::carrier_orders;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/carrier_payments.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::carrier_payments;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/cdr.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::cdr;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';
 

lib/NGCP/Schema/Result/cfg_schema.pm

@@ -1,4 +1,8 @@
 package NGCP::Schema::Result::cfg_schema;
+
+use strict;
+use warnings;
+
 use Scalar::Util qw(blessed);
 use parent 'DBIx::Class::Core';