source:
trunk/essentials/dev-lang/perl/lib/FileHandle.pm@
3298
| Last change on this file since 3298 was 3181, checked in by , 19 years ago | |
|---|---|
| File size: 6.6 KB | |
| Line | |
|---|---|
| 1 | package FileHandle; |
| 2 | |
| 3 | use 5.006; |
| 4 | use strict; |
| 5 | our($VERSION, @ISA, @EXPORT, @EXPORT_OK); |
| 6 | |
| 7 | $VERSION = "2.01"; |
| 8 | |
| 9 | require IO::File; |
| 10 | @ISA = qw(IO::File); |
| 11 | |
| 12 | @EXPORT = qw(_IOFBF _IOLBF _IONBF); |
| 13 | |
| 14 | @EXPORT_OK = qw( |
| 15 | pipe |
| 16 | |
| 17 | autoflush |
| 18 | output_field_separator |
| 19 | output_record_separator |
| 20 | input_record_separator |
| 21 | input_line_number |
| 22 | format_page_number |
| 23 | format_lines_per_page |
| 24 | format_lines_left |
| 25 | format_name |
| 26 | format_top_name |
| 27 | format_line_break_characters |
| 28 | format_formfeed |
| 29 | |
| 30 | |
| 31 | printf |
| 32 | getline |
| 33 | getlines |
| 34 | ); |
| 35 | |
| 36 | # |
| 37 | # Everything we're willing to export, we must first import. |
| 38 | # |
