Load several modules at runtime instead of compile time

Profiling shows they take about a second or
more in total on Windows, and this adds up
across >60 tests.

lib/Biodiverse/BaseData.pm

@@ -23,18 +23,10 @@ use Data::Compare ();
 
 use Ref::Util qw { :all };
 use Sort::Key::Natural qw /natkeysort/;
-use Spreadsheet::Read 0.60;
 
 
 use experimental qw /refaliasing declared_refs/;
 
-use Geo::GDAL::FFI 0.07;
-#  silence a used-once warning - clunky
-{
-    my $xx_frob_temp_zort = $FFI::Platypus::TypeParser::ffi_type;
-    my $xx_frob_temp_zert = $FFI::Platypus::keep;
-}
-#require Spreadsheet::XLSX;  latest version does not install
 
 use English qw { -no_match_vars };
 

lib/Biodiverse/BaseData/Import.pm

@@ -23,9 +23,12 @@ use Data::Compare ();
 
 use Ref::Util qw { :all };
 use Sort::Key::Natural qw /natkeysort/;
-use Spreadsheet::Read 0.82;
 
 use Geo::GDAL::FFI 0.07;
+{
+    my $xx_frob_temp_zort = $FFI::Platypus::TypeParser::ffi_type;
+    my $xx_frob_temp_zert = $FFI::Platypus::keep;
+}
 
 use experimental 'declared_refs';
 
@@ -1682,6 +1685,10 @@ sub import_data_spreadsheet {
     my $self = shift;
     my %args = @_;
 
+    #  load at run time as it takes a while
+    require Spreadsheet::Read;
+    Spreadsheet::Read->VERSION('0.80');
+
     my $orig_group_count    = $self->get_group_count;
     my $orig_label_count    = $self->get_label_count;
     my $data_in_matrix_form = $args{data_in_matrix_form};

lib/Biodiverse/Common.pm

@@ -32,7 +32,6 @@ use HTML::QuickTable;
 use Class::Inspector;
 use Ref::Util qw { :all };
 use File::BOM qw / :subs /;
-use Spreadsheet::Read;
 
 #  Need to avoid an OIO destroyed twice warning due
 #  to HTTP::Tiny, which is used in Biodiverse::GUI::Help
@@ -1812,7 +1811,9 @@ sub unlink_file {
 sub get_book_struct_from_spreadsheet_file {
     my ($self, %args) = @_;
 
-    #use SpreadSheet::Read;
+    require Spreadsheet::Read;
+    Spreadsheet::Read->import('ReadData');
+
     my $book;
     my $file = $args{file_name}
       // croak 'file_name argument not passed';

lib/Biodiverse/Indices.pm

@@ -368,7 +368,7 @@ sub get_calculation_metadata {
     my $self = shift;
 
     if (!blessed $self) {
-        use Biodiverse::BaseData;
+        require Biodiverse::BaseData;
         state $default_bd = Biodiverse::BaseData->new (
             NAME => 'for indices',
             CELL_SIZES => [1,1],

lib/Biodiverse/Indices/PhyloCom.pm

@@ -10,7 +10,6 @@ use List::Util qw /sum min max/;
 use List::MoreUtils qw /any minmax pairwise/;
 use Scalar::Util qw /blessed/;
 use Sort::Key qw /nkeysort/;
-use Math::BigInt ();
 
 use feature 'refaliasing';
 no warnings 'experimental::refaliasing';
@@ -1121,7 +1120,9 @@ sub _calc_nri_nti_expected_values {
 sub get_nri_nti_expected_values {
     my $self = shift;
     my %args = @_;
-
+
+    require Math::BigInt;
+
     my $tree = $args{tree_ref};
     my $label_count = $args{label_count};
     my $iterations = $args{nri_nti_iterations} ||  4999;

t/lib/Biodiverse/TestHelpers.pm

@@ -1146,7 +1146,7 @@ sub print_indices_result_set_to_fh {
 
     return if !$fh;
 
-    use Perl::Tidy;
+    require Perl::Tidy;
     use Data::Dumper;
 
     local $Data::Dumper::Purity    = 1;