in reply to Re^2: Class::Struct problemin thread Class::Struct problem
Actually, I'm using now an INIT block, but the effect is the same in this case.
BEGIN has less issues than INIT, and it parallels use.
In fact, if you want to completely mimic use, you can do the following:
BEGIN { package Foo::Bar; use Class::Struct; struct('field' => '$'); $INC{'Foo/Bar.pm} = 1; } [download]
Then you can do use Foo::Bar qw( ...imports... ); at a later point.