1# This file is intended to test package keyword support along with 2# multi-line subroutine definitions, like this: 3# sub 4# 5# somefunction 6# {... 7 8package Test::One; 9 10package Test::One::Two; 11 12package Test; 13 14use strict; 15use warnings; 16 17sub 18 19 init { 20} 21 22use constant 23CONST => 1; 24 25=head2 quo 26 27This is 'quo' subroutine 28 29=cut 30 31sub quo; 32 33quo; 34 35Test::quo; 36 37sub quo { 38 goto END; 39 die; 40END: 41END2 : 42 print "END!\n"; 43 return; 44} 45 46sub xuz :lvalue; 47 48sub xtz (&@;$) :lvalue; 49 50sub 51# This should create a tag 52dude 53{ 54 1; 55} 56 571; 58