hoge.pl

use strict;
use warnings;
use utf8;
use experimental qw(class);

package HogeMouse {
    use Mouse;

    has foo => (is => 'rw', isa => 'Int');
    has bar => (is => 'rw', isa => 'Int');

    sub hello {}
}

class HogeBuiltinClass {
    field $foo :param :reader;
    field $bar :param :reader;

    method hello($msg) {}
}

package HgoeClassAccesorLite {
    use Class::Accessor::Lite (
        new => 1,
        rw => [qw/foo bar/],
    );

    sub hello {}
}

# コメントのように補完される
{
    my $h = HgoeClassAccesorLite->new(foo => 1, bar => 2);
    $h-
    # $h->hello Method
}

{
    my $h2 = HogeMouse->new(foo => 1, bar => 2);
    $h2-
    # $h2->meta Method
    # $h2->hello Method
    # $h2->bar Field
    # $h2->foo Field
}

{
    my $h3 = HogeBuiltinClass->new(foo => 1, bar => 2);
    $h3-
    # $h3->bar Method
    # $h3->foo Method
    # $h3->hello Method
}

{
    my $klass = 'HogeBuiltinClass';
    my $h4 = $klass->new(foo => 1, bar => 2);
    $h4-
    # no completion
}

{
    sub get_service {
        my ($klass, %args) = @_;
        require $klass;
        $klass->new(%args);
    }

    my $h5 = get_service(HogeMouse => foo => 1, bar => 2)
    $h5-
    # no completion
}