Re: Assignment and use statement in the same BEGIN block

A use within a BEGIN is effectively a BEGIN within a BEGIN.

This should work:

perl -wE'BEGIN { $vars{k} = "v1"; require Acme::PERLANCAR::DumpImportA
+rgs; import Acme::PERLANCAR::DumpImportArgs %vars }'
[download]

Comment on Re: Assignment and use statement in the same BEGIN block Select or Download Code

Replies are listed 'Best First'.
Re^2: Assignment and use statement in the same BEGIN block by perlancar (Hermit) on Jan 31, 2019 at 12:22 UTC
Thanks choroba, my friend Discipulus, and tobyink for all the useful explanation. Toby's clicks the most to me. And this snippet makes things very clear to me: `BEGIN { say 1; BEGIN { say 2 } }` printing 2 before 1. In other words, you ain't finish BEGIN'ing until you end (close) it. Sigh. And the specialness of the `use` statement again standing in my way.	[reply] [d/l]
Re^3: Assignment and use statement in the same BEGIN block -- oneliner by Discipulus (Canon) on Jan 31, 2019 at 20:31 UTC
> you ain't finish BEGIN'ing until you end (close) it (this is life..) indeed! and I never realized they can be nested! `perl -e "$}.=qq(BEGIN{print qq($_);)for(q(,rekcaH lreP rehtonA tsuJ)=~/./g);$}.=q(})x25;eval$}"` L* update removed and published separately as obfu There are no rules, there are no thumbs.. Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.	[reply] [d/l]