implement fmt glob

patch-orphan · Dec 17, 2010 · 3273c2c · 3273c2c
1 parent cb92f59
commit 3273c2c
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 2 deletions.
diff --git a/lib/String/Fmt.pm b/lib/String/Fmt.pm
@@ -24,7 +24,8 @@ sub fmt {
 
         return sprintf $format, $value;
     }
-    elsif ($type eq 'ARRAY') {
+    elsif ($type eq 'ARRAY' || $type eq 'GLOB') {
+        $value = [ map { chomp; $_ } <$value> ] if $type eq 'GLOB';
         $format    = $ARRAY_FORMAT    unless defined $format;
         $separator = $ARRAY_SEPARATOR unless defined $separator;
 

diff --git a/t/fmt.t b/t/fmt.t
@@ -1,4 +1,4 @@
-use Test::More tests => 23;
+use Test::More tests => 24;
 
 use ok 'String::Fmt', qw( fmt );
 
@@ -85,3 +85,13 @@ TODO: {
     is fmt([1,2]), '1 2', 'array fmt() without $fmt';
     is fmt({1=>"a"}), "1\ta", 'hash fmt() without $fmt';
 }
+
+# fmt() with filehandle
+{
+    is fmt(\*DATA, "'%s'", ', '), "'a', 'b', 'c'", 'fmt() works with filehandle';
+}
+
+__DATA__
+a
+b
+c