Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
bproto.t	939 B	-r--r--r--	2014-12-27 11:49
cmdopt.t	3.14 KB	-r--r--r--	2014-12-27 11:49
colon.t	3.24 KB	-r--r--r--	2014-12-27 11:49
decl.t	549 B	-r--r--r--	2014-12-27 11:49
final_line_num.t	364 B	-r--r--r--	2014-12-27 11:49
fold.t	4.71 KB	-r--r--r--	2014-12-27 11:49
form_scope.t	4.24 KB	-r--r--r--	2014-12-27 11:49
hints.aux	93 B	-r--r--r--	2014-12-27 11:49
hints.t	7.91 KB	-r--r--r--	2014-12-27 11:49
line_debug.t	793 B	-r--r--r--	2014-12-27 11:49
line_debug_0.aux	273 B	-r--r--r--	2014-12-27 11:49
multiline.t	1.7 KB	-r--r--r--	2014-12-27 11:49
opsubs.t	5.67 KB	-r--r--r--	2014-12-27 11:49
our.t	1.5 KB	-r--r--r--	2014-12-27 11:49
package.t	1.5 KB	-r--r--r--	2014-12-27 11:49
package_block.t	2.68 KB	-r--r--r--	2014-12-27 11:49
parser.t	17.53 KB	-r--r--r--	2015-01-15 22:12
proto.t	21.63 KB	-r--r--r--	2014-12-27 11:49
redef.t	2.02 KB	-r--r--r--	2014-12-27 11:49
require.t	11.07 KB	-r--r--r--	2014-12-27 11:49
retainedlines.t	4.08 KB	-r--r--r--	2014-12-27 11:49
term.t	2.29 KB	-r--r--r--	2014-12-27 11:49
uproto.t	3.53 KB	-r--r--r--	2014-12-27 11:49
use.t	7.43 KB	-r--r--r--	2014-12-27 11:49
utf.t	3.13 KB	-r--r--r--	2014-12-27 11:49

Rename

#!./perl

print "1..7\n";

$main::result = "";
eval q{
    $main::result .= "a(".__PACKAGE__."/".eval("__PACKAGE__").")";
    package Foo {
	$main::result .= "b(".__PACKAGE__."/".eval("__PACKAGE__").")";
	package Bar::Baz {
	    $main::result .= "c(".__PACKAGE__."/".eval("__PACKAGE__").")";
	}
	$main::result .= "d(".__PACKAGE__."/".eval("__PACKAGE__").")";
    }
    $main::result .= "e(".__PACKAGE__."/".eval("__PACKAGE__").")";
};
print $main::result eq
	"a(main/main)b(Foo/Foo)c(Bar::Baz/Bar::Baz)d(Foo/Foo)e(main/main)" ?
    "ok 1\n" : "not ok 1\n";

$main::result = "";
eval q{
    $main::result .= "a($Foo::VERSION)";
    $main::result .= "b($Bar::VERSION)";
    package Foo 11 { ; }
    package Bar 22 {
	$main::result .= "c(".__PACKAGE__."/".eval("__PACKAGE__").")";
    }
};
print $main::result eq "a(11)b(22)c(Bar/Bar)" ? "ok 2\n" : "not ok 2\n";

$main::result = "";
eval q{
    $main::result .= "a(".__PACKAGE__."/".eval("__PACKAGE__").")";
    package Foo { }
    $main::result .= "b(".__PACKAGE__."/".eval("__PACKAGE__").")";
};
print $main::result eq "a(main/main)b(main/main)" ? "ok 3\n" : "not ok 3\n";

eval q[package Foo {];
print $@ =~ /\AMissing right curly / ? "ok 4\n" : "not ok 4\n";

$main::result = "";
eval q{
    $main::result .= "a(".__LINE__.")";
    package Foo {
	$main::result .= "b(".__LINE__.")";
	package Bar::Baz {
	    $main::result .= "c(".__LINE__.")";
	}
	$main::result .= "d(".__LINE__.")";
    }
    $main::result .= "e(".__LINE__.")";
    package Quux { }
    $main::result .= "f(".__LINE__.")";
};
print $main::result eq "a(2)b(4)c(6)d(8)e(10)f(12)" ? "ok 5\n" : "not ok 5\n";

$main::result = "";
$main::warning = "";
$SIG{__WARN__} = sub { $main::warning .= $_[0]; };
eval q{
    $main::result .= "a(".__PACKAGE__."/".eval("__PACKAGE__").")";
    goto l0;
    $main::result .= "b(".__PACKAGE__."/".eval("__PACKAGE__").")";
    package Foo {
	$main::result .= "c(".__PACKAGE__."/".eval("__PACKAGE__").")";
	l0:
	$main::result .= "d(".__PACKAGE__."/".eval("__PACKAGE__").")";
	goto l1;
	$main::result .= "e(".__PACKAGE__."/".eval("__PACKAGE__").")";
    }
    $main::result .= "f(".__PACKAGE__."/".eval("__PACKAGE__").")";
    l1:
    $main::result .= "g(".__PACKAGE__."/".eval("__PACKAGE__").")";
    goto l2;
    $main::result .= "h(".__PACKAGE__."/".eval("__PACKAGE__").")";
    package Bar {
	l2:
	$main::result .= "i(".__PACKAGE__."/".eval("__PACKAGE__").")";
    }
    $main::result .= "j(".__PACKAGE__."/".eval("__PACKAGE__").")";
};
print $main::result eq
	"a(main/main)d(Foo/Foo)g(main/main)i(Bar/Bar)j(main/main)" ?
    "ok 6\n" : "not ok 6\n";
print $main::warning =~ /\A
	Use\ of\ "goto"\ [^\n]*\ line\ 3\.\n
	Use\ of\ "goto"\ [^\n]*\ line\ 15\.\n
    \z/x ? "ok 7\n" : "not ok 7\n";