File Coverage

tests/_all-1

Criterion	Covered	Total	%
statement	131	131	100.0
branch	1	2	50.0
condition	1	2	50.0
subroutine	33	33	100.0
pod			n/a
total	166	168	98.8

#!/usr/bin/perl -w

# The script simply compiles all Arch classes.

use strict;

use FindBin;
use lib "$FindBin::Bin/../perllib";

use vars '@classes';

BEGIN {
	my $arch_pm_file = "$FindBin::Bin/../perllib/Arch.pm";
	open SRC, "<$arch_pm_file" || die "No $arch_pm_file\n";
	my $content = join('', );
	close SRC;
	@classes = $content =~ /L<(Arch::.*?)>/g;
	die "No Arch classes in $arch_pm_file pod\n" unless @classes;
	unshift @classes, 'Arch';
}

use Test::More tests => scalar @classes;

use_ok($_) foreach @classes;