IO::Handle::Prototype (3pm)

    my $fh = IO::Handle::Prototype->new(
        getline => sub {
            my $fh = shift;

            ...
        },
    );

You probably want IO::Handle::Prototype::Fallback instead.