package Bogus;
use Data::Dump 'pp';

sub foo { printf "foo got %s\n", pp([@_]) }

sub bar { printf "bar got %s\n", pp([@_]) }

sub baz { printf "baz got %s\n", pp([@_]) }

package Tester;
use Moose;

has 'bogus' => (
    is => 'bare',
    default => 'Bogus',
    handles => [qw( foo bar baz )]
);

package main;

my $tester = Tester->new;

$tester->bar('bar');
$tester->foo('ram');
$tester->baz('ewe');