#################################################
sub _create_new_package_for {
    my $self    = shift;
    my $package = _get_package_name( shift );
    
    eval "use $package"; ## no critic
    return $package if not $EVAL_ERROR;

    my $eval_package =<<"END";
package ${package};

use strict;
use warnings;
use English qw( -no_match_vars );

use base 'Generic::Tree';
use base 'Generic::Container';
1;
END
    eval $eval_package; ## no critic
    croak $EVAL_ERROR if $EVAL_ERROR;

    return $package;
}

##</code><code>##

$self->_create_new_package_for( 'Testing::Package' );
$self->_create_new_package_for( 'Testing::Package' );