$ diff orig.pl script.pl
2a3,19
> package My::Hash;
>
> use MCE::Shared::Hash;
> use base 'MCE::Shared::Hash';
>
> sub pipeline_eval {
>    my $self = shift;
>    local $_ = $self;
>    while ( @_ ) {
>       eval shift->[0];
>    }
>    return;
> }
>
> 1;
>
> package main;
>

70c87
< tie my %t, 'MCE::Shared';
---
> tie my %t, 'MCE::Shared', { module => 'My::Hash' };

91,97c108,115
<     $t{$name}->{r}++;
<     $t{$name}->{rg}++;
<     $t{$name}->{g}++;
<
<     $t{cur} = "rg";
<     $t{index}->{ $t{prev} }{ $t{cur} }++;
<     $t{prev} = "rg";
---
>     tied( %t )->pipeline_eval(
>        [ "\$_->{ $name }->{r }++" ],
>        [ "\$_->{ $name }->{rg}++" ],
>        [ "\$_->{ $name }->{g }++" ],
>        [ "\$_->{ cur   } = 'rg'"  ],
>        [ "\$_->{ index }->{ \$_->{ prev } }{ \$_->{ cur } }++" ],
>        [ "\$_->{ prev  } = 'rg'"  ]
>     );

107,113c125,132
<     $t{$name}->{r}++;
<     $t{$name}->{ry}++;
<     $t{$name}->{y}++;
<
<     $t{cur} = "ry";
<     $t{index}->{ $t{prev} }{ $t{cur} }++;
<     $t{prev} = "ry";
---
>     tied( %t )->pipeline_eval(
>        [ "\$_->{ $name }->{r }++" ],
>        [ "\$_->{ $name }->{ry}++" ],
>        [ "\$_->{ $name }->{y }++" ],
>        [ "\$_->{ cur   } = 'ry'"  ],
>        [ "\$_->{ index }->{ \$_->{ prev } }{ \$_->{ cur } }++" ],
>        [ "\$_->{ prev  } = 'ry'"  ]
>     );

123,131c142,151
<     $t{$name}->{r}++;
<     $t{$name}->{rg}++;
<     $t{$name}->{g}++;
<     $t{$name}->{gy}++;
<     $t{$name}->{rgy}++;
<
<     $t{cur} = "rgy";
<     $t{index}->{ $t{prev} }{ $t{cur} }++;
<     $t{prev} = "rgy";
---
>     tied( %t )->pipeline_eval(
>        [ "\$_->{ $name }->{r  }++" ],
>        [ "\$_->{ $name }->{rg }++" ],
>        [ "\$_->{ $name }->{g  }++" ],
>        [ "\$_->{ $name }->{gy }++" ],
>        [ "\$_->{ $name }->{rgy}++" ],
>        [ "\$_->{ cur   } = 'rgy'"  ],
>        [ "\$_->{ index }->{ \$_->{ prev } }{ \$_->{ cur } }++" ],
>        [ "\$_->{ prev  } = 'rgy'"  ]
>     );