[perl5.git] / lib / perl5db / t / MyModule.pm

package MyModule;

use strict;
use warnings;

use vars qw($var);

$var = "Bar";

sub function
{
    print "In MyModule.\n";
}

1;
Commit	Line	Data
076b743f SF	1	package MyModule;
	2
	3	use strict;
	4	use warnings;
	5
	6	use vars qw($var);
	7
	8	$var = "Bar";
	9
	10	sub function
	11	{
	12	print "In MyModule.\n";
	13	}
	14
	15	1;