Shell::AutoLoad : similar to Shell, but without captures

Shell-AutoLoad.pm

use strict;
use warnings;

package Shell::AutoLoad;
use Carp;

sub import 
{
    my $pkg = caller;

    my $autoload = sub {
        my $sub = do {
            no strict 'vars';
            $AUTOLOAD;
        };
        (my $command = $sub) =~ s/^.*:://;
        {
            no strict 'refs';
            *$sub = _make_cmd($command);
        }
        goto &$sub;
    };

    no strict 'refs';
    *{"${pkg}::AUTOLOAD"} = $autoload;
    for(@_) {
        *{"${pkg}::$_"} = _make_cmd($_);
    }
}

sub _make_cmd
{
    my $command = shift;
    return sub {
        if (defined wantarray) {
            local $Carp::CarpLevel = $Carp::CarpLevel+1;
            Carp::croak "only void context is supported by ".__PACKAGE__." magic subs";
        }
        system $command $command, @_;
    };
}

1;