File Coverage

blib/lib/Tree/RB/Node/_Constants.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	27	27	100.0

package Tree::RB::Node::_Constants;

use strict;
use Carp;
use vars qw( $VERSION @EXPORT );

$VERSION = '0.3';

require Exporter;
*import = \&Exporter::import;

my @Node_slots;
my @Node_colors;

BEGIN {
    @Node_slots  = qw(PARENT LEFT RIGHT COLOR KEY VAL);
    @Node_colors = qw(RED BLACK);
}

@EXPORT = (@Node_colors, map {"_$_"} @Node_slots);

use enum @Node_colors;
use enum @Node_slots;

# enum doesn't allow symbols to start with "_", but we want them
foreach my $s (@Node_slots) {
    no strict 'refs';
    *{"_$s"} = \&$s;
    delete $Tree::RB::Node::_Constants::{$s};
}

1; # Magic true value required at end of module
__END__