How to write a simple REPL interface to a Perl module

REPL.pm

package REPL;

use Modern::Perl;
use Moose;

sub foo
{
    return "foo";
}

sub run
{
    use Devel::REPL;
    my $repl = new Devel::REPL;
    $repl->load_plugin($_) for qw/History LexEnv Refresh/;
    $repl->run;
}

run if not caller;

1;

__DATA__
$ perl REPL.pm
$ REPL->new->foo;
bar
$ perl -MREPL -E "say REPL->new->foo"
bar