File Coverage

blib/lib/PerlIO/win32console.pm
Criterion Covered Total %
statement 18 20 90.0
branch 3 8 37.5
condition n/a
subroutine 5 5 100.0
pod n/a
total 26 33 78.7


line stmt bran cond sub pod time code
1             package PerlIO::win32console;
2 2     2   264905 use strict;
  2         3  
  2         85  
3 2     2   9 use warnings;
  2         5  
  2         139  
4 2     2   14 use Carp ();
  2         6  
  2         79  
5              
6             our $VERSION = "0.001";
7              
8 2     2   10 use XSLoader;
  2         4  
  2         606  
9             XSLoader::load(__PACKAGE__, __PACKAGE__->VERSION);
10              
11             sub import {
12             # only something to do on windows
13 4     4   251199 my ($class, @args) = @_;
14 4         4039 while (@args) {
15 2         5 my $arg = shift @args;
16 2 100       8 if ($arg eq "-installout") {
17 1 50       34 if ($^O eq "MSWin32") {
18 0 0       0 binmode STDOUT, ":raw:win32console" if -t STDOUT;
19 0 0       0 binmode STDERR, ":raw:win32console" if -t STDERR;
20             }
21             }
22             else {
23 1         219 Carp::croak("$class: unknown import $arg");
24             }
25             }
26             }
27              
28             __END__