実行時にPerlに実際の派生クラスがありますか？

Question

私はPerl OO（Perlの初心者）を探しています。
親クラス：

#!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; 

子供クラス：

#!/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; 

は、私は次のようにそれをテストしてみてください：私は簡単な例階層を作成し

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


use Objs::Manager; 

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

結果：

時間：Sun Sep 29 12:56:29 2013

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

質問：Obj :: EmployeeではなくObj :: Managerをダンプしてオブジェクトを報告するのはなぜですか？
私はマネージャーで新しく電話しました。

Answer 1

blessには常に2つの引数を使用します。$classは、どのパッケージが祝福されるべきかを指示します。 $classを省略すると、現在のパッケージが使用されます。 perldoc -f blessから

bless $self, $class; 

出力

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

：

派生クラスがちなみに祝福に