From 1fa92b8d5ab9b4a50be200d808273e425f2574f8 Mon Sep 17 00:00:00 2001
From: "Paul C. Buetow (mars.fritz.box)" <paul@buetow.org>
Date: Sun, 27 Apr 2014 12:45:27 +0200
Subject: You are number 6!  Who is number one?

---
 Xerl/Tools/FileIO.pm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'Xerl/Tools/FileIO.pm')

diff --git a/Xerl/Tools/FileIO.pm b/Xerl/Tools/FileIO.pm
index 98765df..cd3e6bb 100644
--- a/Xerl/Tools/FileIO.pm
+++ b/Xerl/Tools/FileIO.pm
@@ -121,6 +121,11 @@ sub pop($) {
   return $pop;
 }
 
+sub str($) {
+  my Xerl::Tools::FileIO $self = $_[0];
+  return join '', @{ $self->get_array() };
+}
+
 sub _fwrite($;$) {
   my Xerl::Tools::FileIO $self = $_[0];
   my $append = $_[1];
-- 
cgit v1.2.3