root/lang/perl/Shika/trunk/t/010_core/04_handles.t @ 25088

use strict;
use warnings;
use Test::More tests => 2;

{
    package Bar;
    use Shika;

    sub yay {
        my $self = shift;
        "yay " . join(", ", @_)
    }
}

{
    package Foo1;
    use Shika;
    has bar => (
        handles => ['yay'],
    );
}

{
    package Foo2;
    use Shika;
    has bar => (
        handles => 'yay',
    );
}

{
    my $f = Foo1->new(bar => Bar->new());
    is $f->yay('hoge', 'fuga'), 'yay hoge, fuga';
}

{
    my $f = Foo2->new(bar => Bar->new());
    is $f->yay('hoge', 'fuga'), 'yay hoge, fuga';
}