diff options
Diffstat (limited to 'Xerl/Tools/FileIO.pm')
| -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]; |