view release on metacpan or  search on metacpan

TAGS  view on Meta::CPAN


lib/Test/Helper.pm,174
sub test(&) {test
13,321
sub ok($;) {ok
22,500
sub comm(@) {comm
29,615
sub runs(&) {runs
34,690
sub heinous(&) {heinous
40,760
sub syntax_check() {syntax_check
46,900

lib/Test/Helper.pm  view on Meta::CPAN

sub test(&) {
  local($count)=0;
  local($output)='';
  eval {&{+shift}};
  $count++ if $@;		# Simulate something wrong.
  print "1..$count\n$output";
  die $@ if $@;
}

sub ok($;) {
  my $isok=shift;
  $output .= 'not ' unless $isok;
  $count++;
  $output .= "ok $count\n";
}

sub comm(@) {
  my $comm=join '', @_;
  $output .= "# $comm...\n";
}