Perl 闭包模拟类实现二叉树

在上一篇文章中用函数方式实现了一个二叉树，本篇用闭包模拟类的方式来重新实现，不同于传统意义的Perl 类，否则也不用去费力重新实现，本篇用闭包来模拟类的一些行为，以消息传递的方式调用方法。

功能同上一个版本的基本一样，是用闭包的好处：

1。 模拟类行为，开放类方法

2。 内部变量不可直接修改，只能通过方法调用获取或修改值

3。 消息类型多样，自己可以随便控制

特点：

1。 每次取得一个节点（增加，删除，修改）都是一个闭包Node 的返回，可以看作对应的类实例，可通过进一步调用来获取相应的值

2。 只有两个模拟类，Node and BNSTree，通篇都是通过这两个闭包类来进行操作

附代码以及编写过程中的一些注释：

use strict;
use warnings;
use Data::Dumper;

sub Node {
    my $_node = { left => undef, right => undef, key => undef, parent => undef };

    # set multiple value at same time
    my %params = @_;
    map { $_node->{$_} = $params{$_} if defined $params{$_} } keys %$_node;

    # set or get value for each item
    return sub {
        my ( $msg, $value ) = @_;
        if ( exists $_node->{$msg} ) {
            defined $value ? $_node->{$msg} = $value : $_node->{$msg};
        }
        # because cannot set one of attribute of _node to undef, so add one method delete to set to undef
        elsif ( $msg eq 'delete' && $value ) {
            $_node->{$value} = undef;
        }
        else {
            die "Undefined key: $msg";
        }
    }
}

sub BNSTree {
    my $root = undef;

    my $empty = sub {
        return !$root;
    };

    #this is original version for insert, logic is clear but code is too much
    my $insert_old = sub {
        my ($value) = @_;
        if ( $empty->() ) {
            my $node = Node( key => $value );
            return $root = $node;
        }

        my $tmp = $root;
        while ( $value != $tmp->('key') ) {
            if ( $value < $tmp->('key') && $tmp->('left') ) {
                $tmp = $tmp->('left');
            }
            elsif ( $value > $tmp->('key') && $tmp->('right') ) {
                $tmp = $tmp->('right');
            }
            else {
                last;
            }
        }

        if ( $value < $tmp->('key') ) {
            my $node = Node( key => $value, parent => $tmp );