File Coverage

blib/lib/XML/Stream/IO/Select/Win32.pm
Criterion Covered Total %
statement 12 15 80.0
branch n/a
condition n/a
subroutine 4 5 80.0
pod 1 1 100.0
total 17 21 80.9


line stmt bran cond sub pod time code
1             package XML::Stream::IO::Select::Win32;
2              
3             =head1 NAME
4              
5             XML::Stream::IO::Select::Win32 - Fake filehandle support for XML::Stream
6              
7             =head1 SYNOPSIS
8              
9             You should have no reason to use this directly.
10              
11             =cut
12              
13 12     12   55 use strict;
  12         16  
  12         403  
14 12     12   54 use warnings;
  12         15  
  12         307  
15              
16 12     12   53 use vars qw( $VERSION );
  12         19  
  12         615  
17              
18             $VERSION = "1.23_07";
19              
20 12     12   54 use base 'IO::Select';
  12         12  
  12         1773  
21              
22             sub can_read {
23 0     0 1   my $vec = shift;
24 0           my $timeout = shift;
25              
26 0           $vec->handles();
27             }
28              
29             1;