+$W->{"project::Lib-init-hook"} just as ... post-My::Web-initialization hook.

diff --git a/project/Lib.pm b/project/Lib.pm
index 6ccc6e3..8586c6c 100644 (file)
--- a/project/Lib.pm
+++ b/project/Lib.pm
@@ -196,6 +196,7 @@ my($class,%args)=@_;
                        %args,
                        "heading_novskip"=>1,
                        );
+       do { &{$_}() if $_; } for $W->{__PACKAGE__."-init-hook"};
        $class->heading();
        print $class->platforms($ListItem->{"platform"});
        $class->print_project($ListItem,%args);