sub from_handle {
    my $self = shift;
    my %opts = @_;
    while (<$opts{-handle}>) {
        #... and here we're supposed to read from FH
    }
}