Gibt es zur Laufzeit in Perl eine tatsächlich abgeleitete Klasse?

Question

Ich untersuche Perl OO (neu in Perl). Ich habe ein triviales Beispiel Hierarchie:
Übergeordnete Klasse:

#!usr/bin/perl 
use strict; 
use warnings; 

package Objs::Employee; 

my $started; 

sub new { 
    my ($class) = @_; 
    my $cur_time = localtime; 
    my $self = { 
     started => $cur_time, 
    }; 
    print "Time: $cur_time \n"; 
    bless $self; 
} 

sub get_started { 
    my ($class) = @_; 
    return $class->{started}; 
} 

sub set_started { 
    my ($class, $value) = @_; 
    $class->{started} = $value; 
} 

1; 

Kinderklasse:

#!/usr/bin/perl 
package Objs::Manager; 
use strict; 
use warnings; 

use base qw (Objs::Employee); 

my $full_name; 

sub new { 
    my ($class, $name) = @_; 
    my $self = $class->SUPER::new(); 
    $self->{full_name} = $name; 
    return $self;  
} 

1; 

ich versuche, es zu testen, wie folgt:

#!/usr/bin/perl 
use strict; 
use warnings; 


use Objs::Manager; 

my $emp = Objs::Manager->new('John Smith'); 
use Data::Dumper; 
print Dumper($emp); 

Ergebnis:

Zeit: So Sep 29 12:56:29 2013

$VAR1 = bless({ 
       'started' => 'Sun Sep 29 12:56:29 2013', 
       'full_name' => 'John Smith' 
       }, 'Objs::Employee'); 

Frage: Warum wird das Objekt im Dump ein Obj :: Mitarbeiter und nicht ein Obj :: Manager gemeldet?
Ich rief neu auf einem Manager.

Answer 1

Verwenden Sie immer zwei Argumente für bless, da $class sagt, in welches Paket Objekt gesegnet werden soll. Wenn $class weggelassen wird, wird das aktuelle Paket verwendet.

bless $self, $class; 

Ausgang

$VAR1 = bless({ 
      'started' => 'Sun Sep 29 13:24:26 2013', 
      'full_name' => 'John Smith' 
      }, 'Objs::Manager'); 

Von perldoc -f bless:

Verwenden Sie immer die zweiargumentigen Version, wenn eine abgeleitete Klasse kann die Funktion tun den Segen