diff options
| author | Paul C. Buetow (mars.fritz.box) <paul@buetow.org> | 2014-04-27 12:45:27 +0200 |
|---|---|---|
| committer | Paul C. Buetow (mars.fritz.box) <paul@buetow.org> | 2014-04-27 12:45:27 +0200 |
| commit | 1fa92b8d5ab9b4a50be200d808273e425f2574f8 (patch) | |
| tree | cc0034f31ff3719cebeefcb532dda88469afa29b /Xerl/Tools | |
| parent | 5c8a2197c22cdc7f1eb69df07e907b54a37f8edd (diff) | |
You are number 6! Who is number one?
Diffstat (limited to 'Xerl/Tools')
| -rw-r--r-- | Xerl/Tools/FileIO.pm | 5 |
1 files changed, 5 insertions, 0 deletions
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]; |