File Coverage

blib/lib/Class/Autouse/Parent.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	3	4	75.0
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	24	25	96.0

package Class::Autouse::Parent;

# The package Class::Autouse::Parent can be inherited from to implement
# a parent class. That is, a class who's primary job is to load a series
# classes below it.

use 5.006;
use strict;
use Class::Autouse ();

our $VERSION;
BEGIN {
	$VERSION = '2.01';
}

# Anti-loop protection.
# Maintain flags for "is the class in the process of loading"
my %LOADING = ();

sub import {
	# If the parent value is ourselves, we were just
	# 'use'd, not 'base'd.
	my $parent = $_[0] ne __PACKAGE__ ? shift : return 1;

	# Don't load if already loading
	return 1 if $LOADING{$parent};

	# Autoload in our children
	$LOADING{$parent} = 1;
	Class::Autouse->autouse_recursive($parent);
	delete $LOADING{$parent};

	return 1;
}

1;