File Coverage

lib/Perlmazing/Perlmazing/find_parent_classes.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	5	8	62.5
condition			n/a
subroutine	3	3	100.0
pod	0	1	0.0
total	28	32	87.5

use Perlmazing;

sub main {
	my @res;
	my $seen = {};
	for my $class (@_) {
		next if $seen->{$class};
		$seen->{$class} = 1;
		$class = ref($class) if is_blessed $class;
		no strict 'refs';
		push @res, $class;
		for my $i (main(@{"$class\::ISA"})) {
			next if $seen->{$i};
			$seen->{$i} = 1;
			push @res, $i;
		}
	}
	push @res, 'UNIVERSAL' unless caller eq __PACKAGE__;
	@res;
}

1;