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 11     11   67 use strict;
  11         23  
  11         402  
14 11     11   63 use warnings;
  11         22  
  11         322  
15              
16 11     11   64 use vars qw( $VERSION );
  11         23  
  11         652  
17              
18             $VERSION = "1.23_06";
19              
20 11     11   77 use base 'IO::Select';
  11         20  
  11         2691  
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;