package Methods {
    use strict;
    use warnings;
    use feature qw(isa);
    use Logic::Easy;
    no warnings qw(redefine);

    sub frobnicate : Multi(frobnicate) {
        SIG [$o] where {$o isa 'Foo'};
	qq(foo);
    }

    sub frobnicate : Multi(frobnicate) {
        SIG [$o] where {$o isa 'Bar'};
	qq(bar);
    }
    1;
}

__END__