in reply to Re: Re: extract useful infos from cvs diff output
in thread extract useful infos from cvs diff output

"...but that module uses a global variable $tabstop (which is a style I really hate, to me, any package shows this kind of style will not be considered)"

Oh please! I suppose this means that you will stop using just about every CPAN module then, since most of them use the global variable $VERSION? If it gets the job done, is stable, is robust, then i won't knock it just because the author might have 'skimmed' a little and used a global or two. Sometimes, once in a blue moon, using globals provides a more elegant solution.

For example, Data::Dumper uses a global variable to set the indent level, $Indent. Sure, i would rather have a method to set that level, but i am not going to dismiss that module as worthless just because of one little wart ... <update>which Aristotle just showed me how to remove (thanks Aristotle!)</update>

jeffa

run this on your top level CPAN module install dir:
perl -MFile::Find::Rule -e '@ARGV=File::Find::Rule->file("*.pm")->in(" +.");while(<>){print if /^\$VERSION/}' | wc -l

Replies are listed 'Best First'.
Re^4: extract useful infos from cvs diff output
by Aristotle (Chancellor) on Jan 31, 2003 at 13:48 UTC
    Hmm..
    print Data::Dumper->new(\%foo)->Indent(3)->Dump;
    Nevertheless, I use the global a lot of the time.

    Makeshifts last the longest.