File Coverage

blib/lib/App/Whatsit.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	4	8	50.0
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	46	50	92.0

use strict;
use warnings;
package App::Whatsit;
BEGIN {
  $App::Whatsit::VERSION = '0.0.1';
}

# ABSTRACT: Easily find out package details from the command line.

use base qw(App::Cmd::Simple);


sub validate_args
{
	my $self = shift;
	my $options = shift;
	my $args = shift;

	$self->usage_error("At least one package name is required") unless @$args;
}

sub execute
{
	my $self = shift;
	my $options = shift;
	my $args = shift;

	foreach (@$args)
	{
		_find_details($_);
	}
}

sub _find_details
{
	my $package = shift;

	eval "use $package";
	if($@)
	{
		# TODO bail out (completely)
	}
	else
	{
		my $version = $package->VERSION;
		$version = 'Unknown' unless defined $version;

		my $package_file = $package.'.pm';
		$package_file =~ s/::/\//g;
		my $path = $INC{$package_file};
		$path = 'Unknown' unless defined $path;

		print "$package:\n\tVersion: $version\n\tPath: $path\n";
	}
}

1;

__END__