Thursday, 22 August 2013

Loading package with Win32::Console - no output

Loading package with Win32::Console - no output

why do I get no output, when I load this package (WinXP SP3, Strawberry
Perl 5.18.1)?
package MY_TEST;
use warnings;
use strict;
use Win32::Console;
my $output;
$output ||= Win32::Console->new( STD_OUTPUT_HANDLE );
1;
Script:
#!/usr/bin/env perl
use warnings;
use strict;
use 5.10.0;
use FindBin qw($RealBin);
use MY_TEST;
say 'Hello World';
No output.

No comments:

Post a Comment