File Coverage

blib/lib/PerlIO/buffersize.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package PerlIO::buffersize;
2             {
3             $PerlIO::buffersize::VERSION = '0.001';
4             }
5 1     1   1102 use strict;
  1         3  
  1         43  
6 1     1   6 use warnings;
  1         2  
  1         34  
7              
8 1     1   5 use XSLoader;
  1         2  
  1         65  
9              
10             XSLoader::load(__PACKAGE__, __PACKAGE__->VERSION);
11              
12             1;
13              
14             # ABSTRACT: Set the buffersize of a handle
15              
16              
17              
18             =pod
19              
20             =head1 NAME
21              
22             PerlIO::buffersize - Set the buffersize of a handle
23              
24             =head1 VERSION
25              
26             version 0.001
27              
28             =head1 SYNOPSIS
29              
30             open my $fh, '<:buffersize(65536)', $filename;
31              
32             =head1 DESCRIPTION
33              
34             This module sets the buffer-size of a filehandle to an other value than the default. This can only be done before the handle is used, as once the buffer has been allocated it can not be changed.
35              
36             =head1 SYNTAX
37              
38             This modules does not have to be loaded explicitly, it will be loaded automatically by using it in an open mode. The module has the following general syntax: C<:buffersize(size)>. The size can be any positive integer.
39              
40             =head1 AUTHOR
41              
42             Leon Timmermans
43              
44             =head1 COPYRIGHT AND LICENSE
45              
46             This software is copyright (c) 2012 by Leon Timmermans.
47              
48             This is free software; you can redistribute it and/or modify it under
49             the same terms as the Perl 5 programming language system itself.
50              
51             =cut
52              
53              
54             __END__