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;