1N/A chdir 't' if -d 't'; 1N/A# Test verbose level 0 1N/Amy $msg = "Prefix message for pod2usage()"; 1N/A pod2usage({ -verbose => 0, -exit => 'noexit', 1N/A -output => \*FAKEOUT, -input => $file, 1N/A -pathlist => $path }); 1N/ASKIP: { # Test exit status from pod2usage() 1N/A skip "Exit status broken on Mac OS", 1 if $^O eq 'MacOS'; 1N/A my $exit = ($^O eq 'VMS' ? 2 : 42); 1N/A my $dev_null = File::Spec->devnull; 1N/A my $args = join ", ", ( 1N/A "-output => q{$dev_null}", 1N/A print "# cmd = @cmd\n"; 1N/A# Test verbose level 1 1N/A# Test verbose level 2 1N/Arequire Pod::Text; # Pod::Usage->isa( 'Pod::Text' )