Cours : : AbstractLogic est un module de Perl pour traiter des abstractions de logique.

SYNTHÈSE

# la définition de classe de logique
empaqueter le mon : : Logique : : Foo ;
classe d'utilisation : : AbstractLogic-base ;

# une action de logique
l'action ajoutent,
les nécessités [qw (un b)],
vérifier {un sous-marin de => {/^d+$/}, sous-marin de => de b {/^d+$/}},
sous-marin {$_ {a} + $_ {b}} ;

1 ;
…

# création de gestionnaire de module de logique
classe d'utilisation : : AbstractLogic ;
mon $calm = cours : : AbstractLogic : : Manager->new ;

# chargeant une classe de logique
$calm->load_logic (=> de Foo mon : : Logique : : Foo) ;

# demandant un résultat d'une méthode de logique
mon $result = $calm->logic (Foo) - >add (un => 11, => 12 de b) ;

# $result sera trompeur si une exception était recueillie
si ($result) {
le résultat d'impression était. $result->value. « n » ;
}
autrement {
l'exception d'impression a augmenté : . $result->key. « n » ;
message d'erreur d'impression : . $result->error. « n » ;
}