view release on metacpan or  search on metacpan

test.pl  view on Meta::CPAN

package Der::Class;
use base 'My::Class';

package main;

my $n=0;
my $report;
sub report { $report .= join "", @_ }
#sub report { print @_ }
sub ok(&)  { $n++; eval { $_[0]->(); 1 } or report "not "; report "ok $n\n"}
sub nok(&) { $n++; !eval { $_[0]->(); 1 } or report "not "; report "ok $n\n" }
END { print "1..$n\n$report" }

{
	my $x : INTEGER;

	 ok { $x = 1 ; die unless $x==1 };
	 ok { $x = 0 ; die unless $x==0 };
	 ok { $x = -1 ; die unless $x==-1 };
	 ok { $x = 1.0 ; die unless $x==1 };