p5-p5u / lib / P5U / Command / Whois.pm

package P5U::Command::Whois;

use 5.010;
use strict;
use utf8;
use P5U-command;

BEGIN {
	$P5U::Command::Whois::AUTHORITY = 'cpan:TOBYINK';
	$P5U::Command::Whois::VERSION   = '0.006';
};

use constant {
	abstract    => q[whois for CPAN authors],
	usage_desc  => q[%c whois CPANID],
};

sub command_names {qw{ whois w }}

sub opt_spec
{
	return (
		[ 'verbose|v' => 'show extra information' ],
	);
}

sub execute
{
	require P5U::Lib::Whois;
	my ($self, $opt, $args) = @_;
	
	while (@$args)
	{
		print P5U::Lib::Whois
			-> new(cpanid => shift @$args)
			-> report($opt->{verbose});
		print "\n" if @$args;
	}
}

1;
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.