Moo delegation example

handles.pl

#!/usr/bin/env perl

package MyObject;
use Moo;
use Path::Tiny;

has file => (is => 'lazy', handles => [qw/slurp/]);

sub _build_file { path("./handles.pl") }



package main;

my $obj = MyObject->new;

print $obj->file->slurp; # print contents of this file
print "_"x80, "\n\n";
print $obj->slurp;       # print contents of this file again