[cgiapp] size of scripts and dependencies

[P Kishor]

Pursuant to the recent email about Titanium dependency hell, I was
curious as to how big really was my tiny 20 line Perl index.cgi. So,
with guidance from a couple of monks on PM, I add the following line
to my script...

END { system( 'wc', '-l', values %INC ) }


 and got the following (I have reverse sorted them by number of lines of code)

    7824 /usr/local/lib/perl5/site_perl/5.8.8/darwin-2level/DBI.pm
    3900 /usr/local/lib/perl5/site_perl/5.8.8/CGI/Simple.pm
    2449 /usr/local/lib/perl5/site_perl/5.8.8/CGI/Application.pm
    1535 /usr/local/lib/perl5/site_perl/5.8.8/Config/Simple.pm
    1473 /usr/local/lib/perl5/site_perl/5.8.8/CGI/Session.pm
    1472 /usr/local/lib/perl5/site_perl/5.8.8/darwin-2level/JSON/XS.pm
    1434 /usr/local/lib/perl5/5.8.8/overload.pm
    1299 /usr/local/lib/perl5/site_perl/5.8.8/CGI/Application/Dispatch.pm
    1264 /usr/local/lib/perl5/5.8.8/darwin-2level/Data/Dumper.pm
     891 /usr/local/lib/perl5/site_perl/5.8.8/Exception/Class.pm
     872 /usr/local/lib/perl5/site_perl/5.8.8/darwin-2level/DBD/SQLite.pm
     851 /Users/punkish/Sites/carbonmodel/app/_perl/Authen.pm
     833 /usr/local/lib/perl5/5.8.8/darwin-2level/DynaLoader.pm
     716 /usr/local/lib/perl5/site_perl/5.8.8/darwin-2level/Params/Validate.pm
     614 /usr/local/lib/perl5/site_perl/5.8.8/CGI/Application/Plugin/LogDispatch.pm
     604 /usr/local/lib/perl5/5.8.8/CGI/Carp.pm
     566 /usr/local/lib/perl5/site_perl/5.8.8/Devel/StackTrace.pm
     543 /usr/local/lib/perl5/site_perl/5.8.8/JSON/Any.pm
     525 /usr/local/lib/perl5/site_perl/5.8.8/CGI/Application/Plugin/Session.pm
     516 /usr/local/lib/perl5/5.8.8/darwin-2level/File/Spec/Unix.pm
     497 /usr/local/lib/perl5/5.8.8/warnings.pm
     456 /usr/local/lib/perl5/site_perl/5.8.8/CGI/Simple/Util.pm
     446 /usr/local/lib/perl5/site_perl/5.8.8/Crypt/GeneratePassword.pm
     440 /usr/local/lib/perl5/5.8.8/Exporter.pm
     437 /usr/local/lib/perl5/site_perl/5.8.8/Log/Dispatch.pm
     376 /usr/local/lib/perl5/5.8.8/darwin-2level/Digest/MD5.pm
     356 /usr/local/lib/perl5/5.8.8/Time/Local.pm
     356 /usr/local/lib/perl5/5.8.8/darwin-2level/XSLoader.pm
     343 /usr/local/lib/perl5/5.8.8/AutoLoader.pm
     340 /usr/local/lib/perl5/5.8.8/constant.pm
     336 /usr/local/lib/perl5/5.8.8/darwin-2level/File/Spec.pm
     327 /usr/local/lib/perl5/site_perl/5.8.8/Exception/Class/TryCatch.pm
     316 /usr/local/lib/perl5/site_perl/5.8.8/CGI/Application/Plugin/DBH.pm
     301 /usr/local/lib/perl5/site_perl/5.8.8/Log/Dispatch/Output.pm
     283 /usr/local/lib/perl5/5.8.8/darwin-2level/Scalar/Util.pm
     274 /usr/local/lib/perl5/site_perl/5.8.8/CGI/Application/Plugin/JSON.pm
     274 /usr/local/lib/perl5/5.8.8/Carp.pm
     263 /usr/local/lib/perl5/5.8.8/Text/ParseWords.pm
     259 /usr/local/lib/perl5/site_perl/5.8.8/Log/Dispatch/File.pm
     248 /usr/local/lib/perl5/5.8.8/Exporter/Heavy.pm
     236 /usr/local/lib/perl5/5.8.8/darwin-2level/Fcntl.pm
     235 /usr/local/lib/perl5/site_perl/5.8.8/CGI/Application/Plugin/Config/Simple.pm
     233 /usr/local/lib/perl5/5.8.8/darwin-2level/List/Util.pm
     226 /usr/local/lib/perl5/5.8.8/base.pm
     214 /usr/local/lib/perl5/5.8.8/Class/ISA.pm
     206 /usr/local/lib/perl5/5.8.8/darwin-2level/lib.pm
     204 /usr/local/lib/perl5/site_perl/5.8.8/common/sense.pm
     194 /usr/local/lib/perl5/site_perl/5.8.8/UNIVERSAL/require.pm
     160 /usr/local/lib/perl5/site_perl/5.8.8/darwin-2level/Params/ValidateXS.pm
     151 /usr/local/lib/perl5/site_perl/5.8.8/Class/Data/Inheritable.pm
     147 /usr/local/lib/perl5/5.8.8/UNIVERSAL.pm
     136 /usr/local/lib/perl5/5.8.8/strict.pm
     131 /usr/local/lib/perl5/site_perl/5.8.8/Log/Dispatch/Screen.pm
     127 /Users/punkish/Sites/carbonmodel/app/_perl/Carbonmodel.pm
     100 /usr/local/lib/perl5/5.8.8/Digest/base.pm
      95 /usr/local/lib/perl5/5.8.8/darwin-2level/Config.pm
      93 /usr/local/lib/perl5/5.8.8/integer.pm
      88 /usr/local/lib/perl5/5.8.8/bytes.pm
      82 /usr/local/lib/perl5/5.8.8/vars.pm
      73 /usr/local/lib/perl5/site_perl/5.8.8/CGI/Session/ErrorHandler.pm
      63 /usr/local/lib/perl5/site_perl/5.8.8/Log/Dispatch/Base.pm
      51 /usr/local/lib/perl5/5.8.8/warnings/register.pm
      418 /usr/local/lib/perl5/5.8.8/attributes.pm
      40 /usr/local/lib/perl5/5.8.8/locale.pm
      23 /usr/local/lib/perl5/site_perl/5.8.8/auto/Config/Simple/autosplit.ix
      13 /usr/local/lib/perl5/site_perl/5.8.8/auto/Config/Simple/verbose.al


   40848 total


So, 40K lines of code to create a fairly routine website, and that is
not counting any HTML/SQL/JavaScript and CSS. Granted, this is fairly
misleading as it includes formatting of lines, comments, etc., but
still... is this par for course for other frameworks as well?



-- 
Puneet Kishor