refactor

1 files changed, 27 insertions, 31 deletions

diff --git a/Xerl/Tools/FileIO.pm b/Xerl/Tools/FileIO.pm
index cd3e6bb..31d5c66 100644
--- a/Xerl/Tools/FileIO.pm
+++ b/Xerl/Tools/FileIO.pm
@@ -1,4 +1,4 @@
-# Xerl (c) 2005-2011, 2013 Dipl.-Inform. (FH) Paul C. Buetow
+# Xerl (c) 2005-2011, 2013, 2014 by Paul Buetow
 #
 # 	E-Mail: xerl@dev.buetow.org 	WWW: http://xerl.buetow.org
 #
@@ -15,9 +15,8 @@ use v5.14.0;
 use Xerl::Base;
 use Xerl::Main::Global;
 
-sub dslurp($;$) {
-  my Xerl::Tools::FileIO $self = $_[0];
-
+sub dslurp {
+  my $self = $_[0];
   my $path = $self->get_path();
 
   $path .= '/' unless $path =~ /\/$/;
@@ -36,8 +35,8 @@ sub dslurp($;$) {
   return undef;
 }
 
-sub fslurp($) {
-  my Xerl::Tools::FileIO $self = $_[0];
+sub fslurp {
+  my $self = $_[0];
   my $path = _SECUREPATH( $self->get_path() );
 
   unless ( -f $path ) {
@@ -58,38 +57,36 @@ sub fslurp($) {
   return 0;
 }
 
-sub exists($) {
-  my Xerl::Tools::FileIO $self = $_[0];
+sub exists {
+  my $self = $_[0];
   my $path = _SECUREPATH( $self->get_path() );
 
   return -e $path;
 }
 
-sub fwrite($) {
-  my Xerl::Tools::FileIO $self = $_[0];
+sub fwrite {
+  my $self = $_[0];
   $self->_fwrite(0);
 
   return undef;
 }
 
-sub fwriteappend($) {
-  my Xerl::Tools::FileIO $self = $_[0];
-
+sub fwriteappend {
+  my $self = $_[0];
   $self->_fwrite(1);
 
   return undef;
 }
 
-sub print($) {
-  my Xerl::Tools::FileIO $self = $_[0];
-
+sub print {
+  my $self = $_[0];
   print @{ $self->get_array() };
 
   return undef;
 }
 
-sub reverse_array($) {
-  my Xerl::Tools::FileIO $self = $_[0];
+sub reverse_array {
+  my $self = $_[0];
 
   my @array = reverse @{ $self->get_array() };
   $self->set_array( \@array );
@@ -97,37 +94,37 @@ sub reverse_array($) {
   return undef;
 }
 
-sub merge($$) {
-  my Xerl::Tools::FileIO( $self, $other ) = @_;
+sub merge {
+  my ($self, $other) = @_;
 
   my @merged = ( @{ $self->get_array() }, @{ $other->get_array() } );
-  my Xerl::Tools::FileIO $fio = Xerl::Tools::FileIO->new();
-
+  my $fio = Xerl::Tools::FileIO->new();
   $fio->set_array( \@merged );
+
   return $fio;
 }
 
-sub shift($) {
-  my Xerl::Tools::FileIO $self = $_[0];
+sub shift {
+  my $self = $_[0];
   chomp( my $shift = shift @{ $self->get_array() } );
 
   return $shift;
 }
 
-sub pop($) {
-  my Xerl::Tools::FileIO $self = $_[0];
+sub pop {
+  my $self = $_[0];
   chomp( my $pop = pop @{ $self->get_array() } );
 
   return $pop;
 }
 
-sub str($) {
-  my Xerl::Tools::FileIO $self = $_[0];
+sub str {
+  my $self = $_[0];
   return join '', @{ $self->get_array() };
 }
 
-sub _fwrite($;$) {
-  my Xerl::Tools::FileIO $self = $_[0];
+sub _fwrite {
+  my $self = $_[0];
   my $append = $_[1];
 
   my ( $path, $filename ) =
@@ -164,7 +161,6 @@ use overload '+' => \&merge;
 
 sub _SECUREPATH($) {
   my $path = $_[0];
-
   $path =~ s/\.\.+\/?//g;
 
   return $path;