File Coverage

inc/My/Module/Meta.pm

Criterion	Covered	Total	%
statement	11	57	19.3
branch	0	12	0.0
condition	0	3	0.0
subroutine	4	23	17.3
pod	18	18	100.0
total	33	113	29.2

package My::Module::Meta;

use 5.010;

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 'Add almanac date/time functionality (sunrise, etc.) to Date::Manip';
}

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

sub author {
    return 'Thomas R. Wyant, III F';
}

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

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

sub dist_name {
    return 'Date-ManipX-Almanac';
}

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-Date-ManipX-Almanac/issues',
#		# web	=> 'https://github.com/trwyant/perl-Date-ManipX-Almanac/issues',
		mailto  => '[e-mail]',
	    },
	    license	=> 'http://dev.perl.org/licenses/',
	    repository	=> {
		type	=> 'git',
		url	=> 'git://github.com/trwyant/perl-Date-ManipX-Almanac.git',
		web	=> 'https://github.com/trwyant/perl-Date-ManipX-Almanac',
	    },
	},
	@extra,
    };
}

sub module_name {
    return 'Date::ManipX::Almanac';
}

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

sub optionals_for_testing {
    return qw{
    Astro::Coord::ECI::Star
    Astro::Coord::ECI::VSOP87D::Venus
    Sub::Util
    };
}

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

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

	my $manifest;
	{
	    local $SIG{__WARN__} = sub {};
	    $manifest = ExtUtils::Manifest::maniread();
	}
	keys %{ $manifest || {} }
	    or return;

	# 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(),
	    },
	);

	# The Module::Metadata docs say not to use
	# package_versions_from_directory() directly, but the 'files =>'
	# version of provides() is broken, and has been known to be so
	# since 2014, so it's not getting fixed any time soon. So:

	foreach my $fn ( sort keys %{ $manifest } ) {
	    $fn =~ m/ [.] pm \z /smx
		or next;
	    my $pvd = Module::Metadata->package_versions_from_directory(
		undef, [ $fn ] );
	    foreach my $pkg ( keys %{ $pvd } ) {
		$meta->should_index_package( $pkg )
		    and $meta->should_index_file( $pvd->{$pkg}{file} )
		    and $provides->{$pkg} = $pvd->{$pkg};
	    }
	}

	1;
    } or return;

    return ( provides => $provides );
}

sub requires {
    my ( $self, @extra ) = @_;
##  if ( ! $self->distribution() ) {
##  }
    return +{
	'Astro::Coord::ECI'		=> 0.119,	# For clone() to work
	'Astro::Coord::ECI::Moon'	=> 0.119,	# For clone() to work
	'Astro::Coord::ECI::Sun'	=> 0.119,	# For clone() to work
	'Astro::Coord::ECI::Utils'	=> 0.119,	# For clone() to work
	'Carp'				=> 0,
	'Date::Manip'			=> 6.55,	# For new_config()
	'Date::Manip::Date'		=> 6.55,	# to work
	'Module::Load'			=> 0,
	'Scalar::Util'			=> 0,
	'Text::ParseWords'		=> 0,
	constant	=> 0,
	parent		=> 0,
	strict		=> 0,
	utf8		=> 0,
	warnings	=> 0,
	@extra,
    };
}

sub requires_perl {
    return 5.010;
}

sub script_files {
    return [
    ];
}

sub version_from {
    return 'lib/Date/ManipX/Almanac.pm';
}

1;

__END__