RHEL 4 - x86 [root@vdt-rhas4-ia32 tests]# perl -v This is perl, v5.8.5 built for i386-linux-thread-multi Straps.pm: # -*- Mode: cperl; cperl-indent-level: 4 -*- package Test::Harness::Straps; use strict; use vars qw($VERSION); $VERSION = '0.26'; use Config; use Test::Harness::Assert; use Test::Harness::Iterator; use Test::Harness::Point; use Test::Harness::Results; # Flags used as return values from our methods. Just for internal # clarification. my $YES = (1==1); my $NO = !$YES; =head1 NAME Test::Harness::Straps - detailed analysis of test results =head1 SYNOPSIS use Test::Harness::Straps; my $strap = Test::Harness::Straps->new; # Various ways to interpret a test my $results = $strap->analyze($name, \@test_output); my $results = $strap->analyze_fh($name, $test_filehandle); my $results = $strap->analyze_file($test_file);