eam/gist:e88093628fe305590674c5fccfd97b9b

## gistfile1.txt
#!/usr/bin/perl

use utf8;
use open qw( :std :encoding(UTF-8) );
use lib ".";
use 中文;
用特性 '说';
用严格;
用提示;

包我的试;

子新 {
  我的 ($我) = @_;
  返回赋予 {}, $我;
}

子笑 { 说 "哈哈哈" };

笑

我的 $一时 = 我的试->新();

说 $一时;

## gistfile2.txt
$ ./test.pl
哈哈哈
我的试=HASH(0x5651e4a894b8)
	#!/usr/bin/perl

	use utf8;
	use open qw( :std :encoding(UTF-8) );
	use lib ".";
	use 中文;
	用特性 '说';
	用严格;
	用提示;

	包我的试;

	子新 {
	我的 ($我) = @_;
	返回赋予 {}, $我;
	}

	子笑 { 说 "哈哈哈" };

	笑

	我的 $一时 = 我的试->新();

	说 $一时;