# -*- Perl -*-

use strict;
use warnings;
use 5.010;

package Array::Extract;

use base qw/autobox/;

my $pkgname;

{
    package Array::Extract::Work;
    $pkgname = __PACKAGE__;

    sub extract {
        my $aref=shift;
        my @out=@{$aref}[@_];
        @$aref=@{$aref}[grep !($_ ~~ @_) => 0..$#$aref];
        @out;
    }
}

sub import {
    my $class = shift;
    $class->SUPER::import(ARRAY => $pkgname);
}

1;

__END__