Hi Discipulus,
The last message is precedence with print() -- the first is because you don't restrict that code path to the appropriate context. You could use goto conditionally:
Output:package MyModule; use strict; use warnings; my $Dump; if (eval { require Data::Dump; 1}) { $Dump = sub { goto &Data::Dump::dd }; } else { require Data::Dumper; $Dump = sub { goto &Data::Dumper::Dumper }; } print "this is %INC:\n"; print $Dump->(\%INC); __END__
this is %INC: { "Data/Dump.pm" => "/usr/share/perl5/Data/Dump.pm", "Exporter.pm" => "/usr/share/perl/5.26/Exporter.pm", "overload.pm" => "/usr/share/perl/5.26/overload.pm", "overloading.pm" => "/usr/share/perl/5.26/overloading.pm", "strict.pm" => "/usr/share/perl/5.26/strict.pm", "subs.pm" => "/usr/share/perl/5.26/subs.pm", "vars.pm" => "/usr/share/perl/5.26/vars.pm", "warnings.pm" => "/usr/share/perl/5.26/warnings.pm", "warnings/register.pm" => "/usr/share/perl/5.26/warnings/register.pm +", }
In reply to Re^3: load a module or another: Dumper or dd
by 1nickt
in thread load a module or another: Dumper or dd
by Discipulus
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |