fixes broken link in pod
[gitmo/Moo.git] / t / modify_lazy_handlers.t
CommitLineData
777fcfcf 1use strictures 1;
2use Test::More;
3use lib qw(t/lib);
4
5use_ok 'MooObjectWithDelegate';
6
7{
8 package MooObjectWithDelegate;
9 use Moo;
10
11 around 'connect', sub {
12 my ($orig, $self, @args) = @_;
13 return $self->$orig(@args) . 'c';
14 };
15}
16
17ok my $moo_object = MooObjectWithDelegate->new,
18 'got object';
19
20is $moo_object->connect, 'abc',
21 'got abc';
22
23done_testing;