Re^2: lspm - list names and descriptions of Perl modules in a directory

That’s not a clear win. Because much CPAN-related infrastructure insists on a single dash, almost all modules have a single hyphen, which means the more fastidious form picks up nearly all descriptions correctly. If you allow multiple hyphens, you recover some false negatives, at the cost of some false positives, where the description of the module is malformed but there’s a line with multiple hyphens somewhere nearby. Matching ' --? ' at that point has a couple fewer false positives and still almost no false negatives.

But because of the effect of CPAN’s rules, it’s hardly worth bothering either way, and I prefer to get output that’s consistent with other tools.

Makeshifts last the longest.

Comment on Re^2: lspm - list names and descriptions of Perl modules in a directory

Replies are listed 'Best First'.

Re^3: lspm - list names and descriptions of Perl modules in a directory
by jwkrahn (Abbot) on Jul 16, 2006 at 12:19 UTC

202,204c202,206
<                               return unless /\.p(?:m|od)\z/;
<                               s/\.pod\z/.pm/; # if it's POD, parse t
+he corresponding code
<                               return if not -f;
---
>                               return unless -f and /\A(.+)\.pm\z/;
>                               my $module = $1;
>                               my $version = get_module_version( "$mo
+dule.pm" )                 || -e "$module.pod" && get_module_version(
+ "$module.pod" );
>                               my $desc    = get_module_description( 
+"$module.pm", $opt_limit ) || -e "$module.pod" && get_module_descript
+ion( "$module.pod", $opt_limit );
> 
207,209c209,211
<                                       get_module_version( $_ ),
<                                       get_module_description( $_, $o
+pt_limit ),
<                                       $opt_path ? $File::Find::name 
+: undef,
---
>                                       $version,
>                                       $desc,
>                                       $opt_path ? $File::Find::name 
+: undef
[download]

[reply]
[d/l]


good chemistry is complicated, and a little bit messy -LW
	PerlMonks