#! perl -w

use strict;
use Pod::Html;
use IO::Scalar;
$|++;

my $text = <<EOT;
=head1 TESTING

First line
Second line
Third line

=cut
EOT

# these work
tieAngle();
pipePod2html();

# these do not work
tiePod2html();
tieOpenDash();


sub tieAngle {   
	print "\n=1 tieAngle================================== OK\n";
	tie *STDIN, 'IO::Scalar', \$text;
	while (<STDIN>) { print "=1=$_"; }
	untie *STDIN;
}

sub pipePod2html {    
	print "\n=pipePod2html================================== OK\n";
	open PIPE, "| pod2html"; # works, because there is a pod2html.bat
	print PIPE $text;
}

sub tiePod2html {    
	print "\n=tiePod2html================================== NOT OK\n";
	tie *STDIN, 'IO::Scalar', \$text;
	pod2html;
	untie *STDIN;
}

sub tieOpenDash {
	print "\n=3 tieOpenDash================================== NOT OK\n";
	tie *STDIN, 'IO::Scalar', \$text;
	# similar to what pod2html does:
	open TSCLR, "<-" or die "can't open <-";
	while (<TSCLR>) { print "=3=$_"; }
	close TSCLR;	
	untie *STDIN;
}

__END__