package feature::each_on_array;

use strict;
use warnings;
use Tie::ArrayAsHash qw(aeach);

sub import {
    return unless $^V lt 5.16.0;
    no strict 'refs';
    my @caller = caller;
    *{"$caller[0]::each"} = \&aeach;
}

1;