' allowed as package delimiter vs. syntax error, passing a string into foo and correct interpolation

gistfile1.txt

✔  18:00 /projects/perl-git [ blead | ✚ 14 …2 ] $ perl -wle "package foo'bar; sub lol { print 'lol'; }; foo'bar::lol()"
lol

✔  18:00 /projects/perl-git [ blead | ✚ 14 …2 ] $ ./perl -wle "package foo'bar; sub lol { print 'lol'; }; foo'bar::lol()"
Bareword found where operator expected at -e line 1, near "'bar; sub lol { print 'lol"
	(Missing operator before lol?)
Unquoted string "lol" may clash with future reserved word at -e line 1.
String found where operator expected at -e line 1, near "lol'; }; foo'"
Bareword found where operator expected at -e line 1, near "'; }; foo'bar::lol"
	(Missing operator before bar::lol?)
Invalid version format (non-numeric data) at -e line 1, near "package foo"
syntax error at -e line 1, near "package foo'bar; sub lol { print '"
Execution of -e aborted due to compilation errors.


$ ./perl -wle "sub foo { print 'yay,' . shift; }; foo'bar';";
yay,bar

$ ./perl -wle "my \$foo = q{bar}; print qq{\$foo's}";
bar's