面向对象疑问

面向对象疑问
#! /usr/bin/perl
package Cocoa;
require Exporter;
@ISA=qw(Exporter);
@EXPORT=qw(new route);
sub new{
my $this={name=>"knuoxy"};
bless $this;
return $this;
}
sub route{
my $class=shift;
my $relf={@_};
return $relf;
}
sub china{
my $this;
return $this;
}
1;

#! /usr/bin/perl
use Cocoa;
$cup=new Cocoa;
$num=$cup->route;
print %$num;

怎么没打印name=>"knuoxy

   

我是这么分析的----那.
帮我看看

   

CU上有这个贴.
CU上有这个贴

我知道 我就是从CU上把问题在COPY到这里发问的