Testen der Filialzuweisung in Perl für SUPER :: Methoden

Question

Ich bin dabei, das Buch Intermediate Perl zu studieren.

In Kapitel 18 Objekt Zerstörung wird die folgende DESTROY Methodendefinition eingeführt:

# lib/Animal.pm 
package Animal { 
    # ... 
    sub DESTROY { 
    my $self = shift; 
    if ($self->{temp_filename}){ 
     my $fh = $self->{temp_fh}; 
     close $fh; 
     unlink $self->{temp_filename}; 
    } 
    print '[', $self->name, " has died.]\n"; 
    } 
# ... 
} 

# lib/Horse.pm 
package Horse { 
    use parent qw(Animal) 
    # ... 
    sub DESTROY { 
    my $self = shift; 
    $self->SUPER::DESTROY if $self->can('SUPER::DESTROY'); 
    print "[", $self->name, " has gone off to the glue factory.]\n"; 
    } 
# ... 
} 

Nach ein paar erfolglos versucht, schrieb ich diesen Test basierend auf this answer:

# t/Horse.t 
#!perl -T 

use strict; 
use warnings; 
use Test::More tests => 6; 
use Test::Output; 
# some other tests 

# test DESTROY() when SUPER::DESTROY is not defined; 
{ 
    my $tv_horse = Horse->named('Mr. Ed'); 
    stdout_is(sub { $tv_horse->DESTROY }, "[Mr. Ed has died.]\n[Mr. Ed has gone off to the glue factory.]\n", 
     'Horse DESTROY() when SUPER::DESTROY is defined'); 
} 

{ 
    my $tv_horse = Horse->named('Mr. Ed'); 
    sub Animal::DESTROY { undef } 
    stdout_is(sub { $tv_horse->DESTROY }, "[Mr. Ed has gone off to the glue factory.]\n", 
     'Horse DESTROY() when SUPER::DESTROY is not defined'); 
} 

kann ich nicht testen die Ausgabe in beiden Fällen korrekt, da die Methodenredefinition sub Animal::DESTROY { undef } auch den Test im vorherigen Block beeinflusst.

Kennen Sie einen Weg, um sicherzustellen, dass die Methodenredefinition wie erwartet funktioniert?

Dank

Answer 1

Diese bis zum Ende des umschließenden Blocks nur entfernt/neu definiert Unterprogramm gesetzt sollte,

{ 
    # not needed when removing method 
    # no warnings 'redefine'; 

    my $tv_horse = Horse->named('Mr. Ed'); 
    # returns undef 
    # local *Animal::DESTROY = sub { undef }; 

    # remove the mothod until end of the enclosing block 
    local *Animal::DESTROY; 

    # .. 
}