{ no warnings 'redefine'; sub Excel::Writer::XLSX::Workbook::_store_workbook { my $self = shift; my $tempdir = File::Temp->newdir( DIR => $self->{_tempdir} ); my $packager = Excel::Writer::XLSX::Package::Packager->new(); # Convert the SST strings data structure. $self->_prepare_sst_string_data(); # Package the workbook. $packager->_add_workbook( $self ); $packager->_set_package_dir( $tempdir ); $packager->_create_package(); # Free up the Packager object. $packager = undef; } }