Czy istnieje odpowiednik Perl OO dla interfejsu?

Question

Wiem z Perl OO Mogę mieć obiekty i dziedziczenie, ale czy są implementowane interfejsy? Jeśli tak, w jaki sposób są one egzekwowane?

Answer 1

Można utworzyć czystego wirtualnej klasy (lub roli, jeśli używasz Moose lub MooseX::Declare):

package Foo; 

use strict; 
use Carp; 

sub new { croak "new not implemented" }; 
sub do_x { croak "do_x not implemented" }; 
sub do_y { croak "do_y not implemented" }; 

Ale egzekwowanie będzie w czasie wykonywania. Ogólnie rzecz biorąc, interfejsy są potrzebne, ponieważ język nie obsługuje dziedziczenia wielokrotnego i jest ściśle wpisany. Perl obsługuje wielokrotne dziedziczenie i (używając łosia) coś takiego jak dziedziczenie wielokrotne (ale lepsze) zwane rolami i jest dynamicznie wpisywane. Ścisłe i dynamiczne pisanie sprowadza się do typowania typu "kaczka" (jeśli to szarpie() jak kaczka, spacery() jak kaczka i pływa() jak kaczka, to jest kaczka). W Perlu mówisz:

if ($some_obj->can("quack") { 
    $some_obj->quack; 
} else { 
    croak "incompatible class type: ", ref $some_obj; 
} 

Answer 2

W tradycyjnym Perl OO bardzo mało jest egzekwowane. Masz opcję $ obj-> can ('methodname'), która pozwala używać typu "kaczka", ale nie ma to jak interfejs.

(Ale spojrzeć na łosie, Role tam może być to, co jesteś po.)

Answer 3

Ale oczywiście! Class::Interface.

Powiedziałem, że najpierw spojrzę na Moose'a. To jest fantastyczne. Potrzebne są

Answer 4

interfejsy ponieważ język nie obsługuje

interfejs jest pojęciem OOP. Nie są potrzebne z powodu problemów technicznych.