[cgiapp] size of scripts and dependencies

[Michael Graham]

A bare Catalyst test app has about 87K lines.  

After you add all the plugins and support modules listed the tutorial
(DBIx::Class, Template Toolkit, Session, Authentication, Authorization,
FormFu) you're up to around 170K lines.


Michael


On Tue, 15 Sep 2009 11:10:31 -0500
P Kishor <punk.kish at gmail.com> wrote:

> 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?
> 
> 
> 


-- 
Michael Graham <magog at the-wire.com>