diff options
| author | fukachan <fukachan> | 2001-01-28 06:04:06 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-01-28 06:04:06 +0000 |
| commit | 3788efc0273da75b27efb6ea39d684e5e3068731 (patch) | |
| tree | 958612c86776192a5499ac3d83219cc91576c7c4 | |
| parent | df88fed133dd67f2d6fd34d4d3b3c7642affe890 (diff) | |
| download | fml8-snap-20010128.tar.gz fml8-snap-20010128.tar.bz2 fml8-snap-20010128.zip | |
IO::* testsnap-20010128
| -rwxr-xr-x | fml/lib/IO/t/file_map.pl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/fml/lib/IO/t/file_map.pl b/fml/lib/IO/t/file_map.pl new file mode 100755 index 00000000..a223a8e9 --- /dev/null +++ b/fml/lib/IO/t/file_map.pl @@ -0,0 +1,10 @@ +use Carp; + +$map = 'file:/etc/passwd'; + + use IO::MapAdapter; + $obj = new IO::MapAdapter $map; + $obj->open || croak("cannot open $map"); + if ($obj->error) { croak( $obj->error );} + while ($x = $obj->getline) { print $x; } + $obj->close; |