File Coverage

inc/My/Module/Meta.pm

Criterion	Covered	Total	%
statement	18	48	37.5
branch	0	6	0.0
condition	0	3	0.0
subroutine	9	22	40.9
pod	18	18	100.0
total	45	97	46.3

package My::Module::Meta;

use 5.008;

use strict;
use warnings;

use Carp;

sub new {
    my ( $class ) = @_;
    ref $class and $class = ref $class;
    my $self = {
	distribution => $ENV{MAKING_MODULE_DISTRIBUTION},
    };
    bless $self, $class;
    return $self;
}

sub abstract {
    return 'Predict satellite visibility using Astro::Coord::ECI';
}

sub add_to_cleanup {
    return [ qw{ cover_db } ];
}

sub author {
    return 'Tom Wyant (harryfmudd at comcast dot net)';
}

sub build_requires {
    return +{
	'Test2::V0'			=> 0,
	'Test2::Plugin::BailOnFail'	=> 0,
	'Test2::Tools::Explain'		=> 0,
	'Test2::Tools::LoadModule'	=> 0,
    };
}

sub configure_requires {
    return +{
	'lib'	=> 0,
	'strict'	=> 0,
	'warnings'	=> 0,
    };
}

sub dist_name {
    return 'Astro-App-Satpass2';
}

sub distribution {
    my ( $self ) = @_;
    return $self->{distribution};
}

sub license {
    return 'perl';
}

sub meta_merge {
    my ( undef, @extra ) = @_;
    return {
	'meta-spec'	=> {
	    version	=> 2,
	},
	dynamic_config	=> 1,
	resources	=> {
	    bugtracker	=> {
		web	=> 'https://github.com/trwyant/perl-Astro-App-Satpass2/issues',
		mailto  => '[e-mail]',
	    },
	    license	=> 'http://dev.perl.org/licenses/',
	    repository	=> {
		type	=> 'git',
		url	=> 'git://github.com/trwyant/perl-Astro-App-Satpass2.git',
		web	=> 'https://github.com/trwyant/perl-Astro-App-Satpass2',
	    },
	},
	@extra,
    };
}

sub module_name {
    return 'Astro::App::Satpass2';
}

sub no_index {
    return +{
	directory => [ qw{ eg inc t xt } ],
    };
}

sub optional_modules {
    require My::Module::Recommend;
    return My::Module::Recommend->optional_modules();
}

sub provides {
    my $provides;
    local $@ = undef;

    eval {
	require CPAN::Meta;
	require Module::Metadata;

	$provides = Module::Metadata->provides(
	    version	=> 2,
	    dir		=> 'lib',
	);

	# Skeleton so we can use should_index_file() and
	# should_index_package().
	my $meta = CPAN::Meta->new( {
		name	=> 'Euler',
		version	=> 2.71828,
		no_index	=> no_index(),
	    },
	);

	# Remove things that are not to be indexed, if any.
	foreach my $module ( keys %{ $provides } ) {
	    $meta->should_index_package( $module )
		and $meta->should_index_file( $provides->{$module}{file} )
		    or delete $provides->{$module};
	}

	1;
    } or return;

    return ( provides => $provides );
}

sub requires {
    my ( undef, @extra ) = @_;		# Invocant unused
    return {
	'Astro::Coord::ECI'		=> 0.131,
	'Astro::Coord::ECI::Moon'	=> 0.131,
	'Astro::Coord::ECI::Star'	=> 0.131,
	'Astro::Coord::ECI::Sun'	=> 0.131,
	'Astro::Coord::ECI::TLE'	=> 0.131,
	'Astro::Coord::ECI::TLE::Set'	=> 0.131,
	'Astro::Coord::ECI::Utils'	=> 0.131,	# for gm_strftime() ...
	'Attribute::Handlers'	=> 0,
	'Carp'			=> 0,
	'Clone'			=> 0,
	'Cwd'			=> 0,
	'Exporter'		=> 0,
	'File::Glob'		=> 0,
	'File::HomeDir'		=> 0.93,	# For my_dist_config
	'File::Spec'		=> 0,
	'File::Temp'		=> 0,
	'Getopt::Long'		=> 2.39,	# For getoptionsfromarray
	'I18N::LangTags'	=> 0,
	'I18N::LangTags::Detect'	=> 0,
	'IO::File'		=> 1.14,
	'IO::Handle'		=> 0,
	'IPC::System::Simple'	=> 0,
	'List::Util'		=> 0,
##	'Params::Util'		=> 0.250,
	'POSIX'			=> 0,
	'Scalar::Util'		=> 1.26,	# For isdual()
##	'Task::Weaken'		=> 0,
	'Template'		=> 2.21,
	'Template::Provider'	=> 2.21,
	'Text::Abbrev'		=> 0,
	'Text::ParseWords'	=> 0,
	'Text::Wrap'		=> 0,
	'Time::Local'		=> 0,
	constant		=> 0,
	lib			=> 0,
	parent			=> 0,
	strict			=> 0,
	utf8			=> 0,
	warnings		=> 0,
	@extra,
    };
}

sub requires_perl {
    return 5.008;
}

sub script_files {
    return [
	'script/satpass2',
    ];
}

sub version_from {
    return 'lib/Astro/App/Satpass2.pm';
}

1;

__END__