package Tree::Transform::Utils;
use strict;
use warnings;
use Class::MOP;

my $RULES_NAME='%_tree_transform_rules';

sub _rules_store {
    my $pack=Class::MOP::Class->initialize($_[0]);

    if (! $pack->has_package_symbol($RULES_NAME) ) { 
        $pack->add_package_symbol($RULES_NAME,{});
    }
    return $pack->get_package_symbol($RULES_NAME);
}

sub _get_inheritance {
    return Class::MOP::Class->initialize($_[0])->class_precedence_list;
}

1;