File Coverage

lib/Games/Checkers/Constants.pm

Criterion	Covered	Total	%
statement	3	9	33.3
branch	0	2	0.0
condition	0	2	0.0
subroutine	1	1	100.0
pod			n/a
total	4	14	28.5

# Games::Checkers, Copyright (C) 1996-2012 Mikhael Goikhman, [e-mail]
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see .

package Games::Checkers::Constants;

use Games::Checkers::DeclareConstant {
	Ok => 0,
	Err => 1,
	No => 0,
	Yes => 1,
	False => 0,
	True => 1,
	White => 0,
	Black => 1,
	Pawn => 0,
	King => 1,
	DIE_WITH_STACK => sub {
		for (my $i = 0; ; $i++) {
			my ($package, $filename, $line, $subroutine) = caller($i);
			die "\n" unless defined $package;
			$filename =~ s/.*\///;
		   $subroutine = (caller($i+1))[3] || "(main)";
			print "\t$filename, line $line, $subroutine\n";
		}
	},
};

1;