File Coverage

_build/lib/App/Asciio.pm

Criterion	Covered	Total	%
statement	9	33	27.2
branch	0	8	0.0
condition			n/a
subroutine	3	7	42.8
pod	0	4	0.0
total	12	52	23.0

package App::Asciio;
use Module::Build;
our @ISA = qw(Module::Build);
use strict ;
use warnings ;

sub GetVersionAndRevisionFrom
{
my ($file) = @_ ;

my $version_from = File::Spec->catfile( split '/', $file );
my $version      = Module::Build->version_from_file($version_from);

if($ENV{'App_Asciio_USE_GIT_VERSION_FOR_DIST'})
	{
	my $number_of_commits = `git log | grep -E 'commit [0-9a-f]{40}' | wc -l` ;
	chomp $number_of_commits ;

	if($number_of_commits)
		{
		#print "number of git revision: $number_of_commits.\n" ;
		return("${version}.${number_of_commits}") ;
		}
	else
		{
		print "Couldn't get git revision, using version from '$file'!\n" ;
		return($version) ;
		}
	}
else
	{
	return($version) ;
	}
}

sub ACTION_author_test
{
my $self = shift;
local $self->{properties}{test_files} = 'xt/author/*.t' ;
$self->SUPER::ACTION_test();
}

sub ACTION_build
{
my $self = shift;

if($ENV{'App_Asciio_USE_GIT_VERSION_FOR_DIST'})
	{
	my ($version) = GetVersionAndRevisionFrom('lib/App/Asciio.pm') ;

	#~ print "Generating version module ($version)\n" ;

	open VERSION, '>', 'Version.pm' or die "can't generate Version module: $!\n" ;

	print VERSION <

	# version module automatically generated by the build system

	package Config::Version ;

	sub GetVersion {return '$version'} ;

	1 ;

	# end of generated version module
EOV

	close VERSION ;
	}

$self->SUPER::ACTION_build(@_);
}

sub ACTION_dist
{
my $self = shift;

$self->SUPER::ACTION_test() ;

$self->SUPER::ACTION_dist();
};



1;