5 use File::Temp qw( tempdir tempfile );
9 notabs_ok( $0, "$0 is tab free" );
11 my $tabbed_file1 = make_tabbed_file1();
12 notabs_ok( $tabbed_file1 );
14 my $tabbed_file2 = make_tabbed_file2();
15 notabs_ok( $tabbed_file2 );
17 my $tabbed_file3 = make_tabbed_file3();
18 notabs_ok( $tabbed_file3 );
21 sub make_tabbed_file1 {
22 my $tmpdir = tempdir();
23 my ($fh, $filename) = tempfile( DIR => $tmpdir, SUFFIX => '.pL' );
31 This test script doesn't do anything.
37 print "Hello $name!\n";
44 sub make_tabbed_file2 {
45 my $tmpdir = tempdir();
46 my ($fh, $filename) = tempfile( DIR => $tmpdir, SUFFIX => '.pL' );
54 This test script doesn't do anything.
56 Its OK to have tabs in pod
62 print "Hello $name!\n";
69 sub make_tabbed_file3 {
70 my $tmpdir = tempdir();
71 my ($fh, $filename) = tempfile( DIR => $tmpdir, SUFFIX => '.pm' );
80 my $self = bless {}, $class;
86 I can have tabs here too!