File Coverage

blib/lib/App/CPAN/Search.pm

Criterion	Covered	Total	%
statement	23	26	88.4
branch	1	2	50.0
condition	5	6	83.3
subroutine	6	6	100.0
pod	2	2	100.0
total	37	42	88.1

package App::CPAN::Search;

use strict;
use warnings;

use CPAN;
use Getopt::Std;

our $VERSION = 0.11;

# Constructor.
sub new {
	my ($class, @params) = @_;

	# Create object.
	my $self = bless {}, $class;

	# Object.
	return $self;
}

# Run.
sub run {
	my $self = shift;

	# Process arguments.
	$self->{'_opts'} = {
		'h' => 0,
	};
	if (! getopts('h', $self->{'_opts'})
		|| $self->{'_opts'}->{'h'}
		|| @ARGV < 1) {

		print STDERR "Usage: $0 [-h] [--version] module_prefix\n";
		print STDERR "\t-h\t\tPrint help.\n";
		print STDERR "\t--version\tPrint version.\n";
		print STDERR "\tmodule_prefix\tModule prefix. e.g. ".
			"Module::Install\n";
		return 1;
	}
	$self->{'_module_prefix'} = shift @ARGV;

	# Print all modules with prefix.
	# XXX Rewrite to something nice.
	CPAN::Shell->m("/^$self->{'_module_prefix'}/");

	return 0;
}

1;

__END__