require and use strict vars

karlberry has asked for the wisdom of the Perl Monks concerning the following question:

Occasionally I want to "require" a module, rather than "use" it (to avoid loading it at compile-time) and still "use strict". What is the best way to handle variable references into the module? My example:

use strict; use warnings;
require Data::Dumper;
local $Data::Dumper::Indent = 0;
[download]

yields Name "Data::Dumper::Indent" used only once: possible typo. I am not surprised by the warning, require happening at runtime and all; the question is how to get rid of it.

Clearly "use vars" and "our" do not help, since they don't take variable names in another module. Specifying "no warnings 'once'" works, but I don't want to turn off these warnings in general, just because I want to set a module's configuration variable.

The only way I have found to avoid the warning is to add some additional null usage, as in:

$Data::Dumper::Indent = $Data::Dumper::Indent;
[download]

This does not seem like it should be necessary. I feel like I'm missing something obvious, but I'm failing to discern the answer. Documentation reading and web searches have not been successful. Thanks for any info ...

Comment on require and use strict vars Select or Download Code

Replies are listed 'Best First'.
Re: require and use strict vars by ikegami (Patriarch) on Dec 02, 2021 at 19:09 UTC
# Compensate for delayed/conditional load of Data::Dumper. package Data::Dumper { our $Indent; # Avoids `used only once` warnings. sub Dumper; # Avoids having to use parens. } # Demo require Data::Dumper; $Data::Dumper::Indent = 0; print Data::Dumper::Dumper $data; [download] If you want to import, # Compensate for delayed/conditional load of Data::Dumper. package Data::Dumper { our $Indent; # Avoids `used only once` warnings. } sub Dumper; # Avoids having to use parens. # Demo require Data::Dumper; import Data::Dumper; $Data::Dumper::Indent = 0; print Dumper $data; [download] The sub declarations can also be used to provide the prototype.	[reply] [d/l] [select]
Re: require and use strict vars by LanX (Saint) on Dec 02, 2021 at 18:09 UTC
`$Data::Dumper::Indent` is fully qualified , you don't need resp. can't declare it. Workarounds: you can disable the specific warning `eval` the `use` and your settings `D:\tmp>perl use strict; use warnings; eval <<'__CODE__'; use Data::Dumper; $Data::Dumper::Indent = 0; __CODE__ __END__ D:\tmp>` [download] update Full demo: NB: in order to use `Dumper` w/o parens or leading '&'-sigil you will need to declare it at compile time with `subs` `D:\tmp>perl use strict; use warnings; #use subs qw/Dumper/; eval <<'__CODE__'; use Data::Dumper; $Data::Dumper::Indent = 0; __CODE__ print Dumper( [map {{$_=>$a++}} "a".."d"] ); __END__ $VAR1 = [{'a' => 0},{'b' => 1},{'c' => 2},{'d' => 3}]; D:\tmp>` [download] Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply] [d/l] [select]
Re^2: require and use strict vars by karlberry (Sexton) on Dec 02, 2021 at 18:44 UTC
wow. would not have come up with that. thanks.	[reply]
Re: require and use strict vars by Anonymous Monk on Dec 02, 2021 at 19:49 UTC
Also possible (since There's More Than One Way To Do It): require Data::Dumper; no warnings 'once'; local $Data::Dumper::Indent = 0; use warnings 'once'; If the `local` is in a sufficiently-small scope, omit the `use warnings`. Shameless plug: See also My Favorite Warnings: `once`.	[reply] [d/l] [select]
Re: require and use strict vars (Data Dumper for DOOP) by Anonymous Monk on Dec 03, 2021 at 11:07 UTC
Use your own dumper :) its only natural :D `sub Dumper { use Data::Dumper(); print Data::Dumper->new([@_]) ->Sortkeys(1) ->Indent(1) ->Useqq(1)->Dump . "\n"; }` [download]	[reply] [d/l]
Re^2: require and use strict vars (Data Dumper for DOOP) by ForgotPasswordAgain (Priest) on Dec 06, 2021 at 19:03 UTC
This would still `use` the module at compile time, not when the sub is called.	[reply] [d/l]
Re^3: require and use strict vars (Data Dumper for DOOP) by Anonymous Monk on Dec 06, 2021 at 22:05 UTC
So? switch the use to require	[reply]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks

require and use strict vars

update