Tree-SizeBalanced

 view release on metacpan or  search on metacpan

lib/Tree/SizeBalanced.pm  view on Meta::CPAN

=item $ever_height = $tree->ever_height

Get the maximum height the tree has ever been. For debug use

=back

=cut

use Tree::SizeBalanced::any_void;

sub sbtree_any_void(&) {
    unshift @_, 'Tree::SizeBalanced::any_void';
    goto \&Tree::SizeBalanced::any_void::new;
}

sub sbtreea(&) {
    unshift @_, 'Tree::SizeBalanced::any_void';
    goto \&Tree::SizeBalanced::any_void::new;
}

push @EXPORT_OK, qw(sbtree_any_void sbtreea);
push @{$EXPORT_TAGS{'all'}}, qw(sbtree_any_void sbtreea);
push @{$EXPORT_TAGS{'short'}}, qw(sbtreea);
push @{$EXPORT_TAGS{'long'}}, qw(sbtree_any_void);

lib/Tree/SizeBalanced.pm  view on Meta::CPAN

=item $ever_height = $tree->ever_height

Get the maximum height the tree has ever been. For debug use

=back

=cut

use Tree::SizeBalanced::any_int;

sub sbtree_any_int(&) {
    unshift @_, 'Tree::SizeBalanced::any_int';
    goto \&Tree::SizeBalanced::any_int::new;
}

sub sbtreeai(&) {
    unshift @_, 'Tree::SizeBalanced::any_int';
    goto \&Tree::SizeBalanced::any_int::new;
}

push @EXPORT_OK, qw(sbtree_any_int sbtreeai);
push @{$EXPORT_TAGS{'all'}}, qw(sbtree_any_int sbtreeai);
push @{$EXPORT_TAGS{'short'}}, qw(sbtreeai);
push @{$EXPORT_TAGS{'long'}}, qw(sbtree_any_int);

lib/Tree/SizeBalanced.pm  view on Meta::CPAN

=item $ever_height = $tree->ever_height

Get the maximum height the tree has ever been. For debug use

=back

=cut

use Tree::SizeBalanced::any_num;

sub sbtree_any_num(&) {
    unshift @_, 'Tree::SizeBalanced::any_num';
    goto \&Tree::SizeBalanced::any_num::new;
}

sub sbtreean(&) {
    unshift @_, 'Tree::SizeBalanced::any_num';
    goto \&Tree::SizeBalanced::any_num::new;
}

push @EXPORT_OK, qw(sbtree_any_num sbtreean);
push @{$EXPORT_TAGS{'all'}}, qw(sbtree_any_num sbtreean);
push @{$EXPORT_TAGS{'short'}}, qw(sbtreean);
push @{$EXPORT_TAGS{'long'}}, qw(sbtree_any_num);

lib/Tree/SizeBalanced.pm  view on Meta::CPAN

=item $ever_height = $tree->ever_height

Get the maximum height the tree has ever been. For debug use

=back

=cut

use Tree::SizeBalanced::any_any;

sub sbtree_any_any(&) {
    unshift @_, 'Tree::SizeBalanced::any_any';
    goto \&Tree::SizeBalanced::any_any::new;
}

sub sbtreeaa(&) {
    unshift @_, 'Tree::SizeBalanced::any_any';
    goto \&Tree::SizeBalanced::any_any::new;
}

push @EXPORT_OK, qw(sbtree_any_any sbtreeaa);
push @{$EXPORT_TAGS{'all'}}, qw(sbtree_any_any sbtreeaa);
push @{$EXPORT_TAGS{'short'}}, qw(sbtreeaa);
push @{$EXPORT_TAGS{'long'}}, qw(sbtree_any_any);

sub sbtree(;&) {