view release on metacpan or  search on metacpan

lib/CPAN/Mini/ProjectDocs.pm  view on Meta::CPAN

=cut

my ($cpan_mini, $mcd_cache, $module) = @_ ;

my ($modules_details_file, $modules_details_txt_md5_file, $modules_details_cache_file, $modules_details_cache_all_names) 
	= get_mcd_paths($cpan_mini, $mcd_cache) ;

my $modules = do $modules_details_cache_all_names or carp "Error: Invalid '$modules_details_cache_all_names'!\n";

for (@{$modules})
	{
	print "$_\n" if(/$module/i) ;
	}

#~ use Text::Soundex ;
#~ my $soundex =  soundex($module) ;

#~ for(@{$module_details->{entries}{entries}})
	#~ {
	#~ my $possible_package_soundex =  soundex($_->{'package name'}) ;
	
	#~ print "\t$_->{'package name'}\n" if $soundex eq $possible_package_soundex ;
	#~ }
	
return ;	
}
	
#---------------------------------------------------------------------------------------------------------

sub get_file_MD5
{

=head2 get_file_MD5($file)

Returns the MD5 of the I<$file> argument.

I<Arguments>

=over 2 

=item $file - The location of the file to compute an MD5 for

=back

I<Returns> - A string containing the file md5

I<Exceptions> - fails if the file can't be open

=cut

my ($file) = @_ ;
open(FILE, $file) or croak "Can't open '$file': $!";
binmode(FILE);
return Digest::MD5->new->addfile(*FILE)->hexdigest ;
}

#-------------------------------------------------------------------------------

1 ;

=head1 BUGS AND LIMITATIONS

None so far.

=head1 AUTHOR

	Nadim ibn hamouda el Khemir
	CPAN ID: NH
	mailto: nadim@cpan.org

=head1 LICENSE AND COPYRIGHT

This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.

=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc CPAN::Mini::ProjectDocs

You can also look for information at:

=over 4

=item * AnnoCPAN: Annotated CPAN documentation

L<http://annocpan.org/dist/CPAN-Mini-ProjectDocs>

=item * RT: CPAN's request tracker

Please report any bugs or feature requests to  L <bug-cpan-mini-projectdocs@rt.cpan.org>.

We will be notified, and then you'll automatically be notified of progress on
your bug as we make changes.

=item * Search CPAN

L<http://search.cpan.org/dist/CPAN-Mini-ProjectDocs>

=back

=head1 SEE ALSO

L<CPAN::Mini::Webserver>, elinks

=cut