temp remove includedirs tag, perltidy indention set to 2, initial XML::LibXML

1 files changed, 86 insertions, 86 deletions

diff --git a/Xerl/Tools/FileIO.pm b/Xerl/Tools/FileIO.pm
index 807cb10..72239ee 100644
--- a/Xerl/Tools/FileIO.pm
+++ b/Xerl/Tools/FileIO.pm
@@ -36,153 +36,153 @@ use Xerl::Base;
 use Xerl::Main::Global;
 
 sub dslurp($;$) {
-    my Xerl::Tools::FileIO $self = $_[0];
+  my Xerl::Tools::FileIO $self = $_[0];
 
-    my $path = $self->get_path();
+  my $path = $self->get_path();
 
-    $path .= '/' unless $path =~ /\/$/;
-    opendir my $dir, $path or Xerl::Main::Global::ERROR( $!, $path, caller() );
+  $path .= '/' unless $path =~ /\/$/;
+  opendir my $dir, $path or Xerl::Main::Global::ERROR( $!, $path, caller() );
 
-    my @dir = sort
-      map  { $path . $_ }
-      grep { /^[^\.]/o } readdir($dir);
+  my @dir = sort
+    map  { $path . $_ }
+    grep { /^[^\.]/o } readdir($dir);
 
-    @dir = map { s#.*/([^/]+\..+)$#$1#o; $_ } @dir
-      if $self->basename_exists();
+  @dir = map { s#.*/([^/]+\..+)$#$1#o; $_ } @dir
+    if $self->basename_exists();
 
-    closedir $dir;
-    $self->set_array( \@dir );
+  closedir $dir;
+  $self->set_array( \@dir );
 
-    return undef;
+  return undef;
 }
 
 sub fslurp($) {
-    my Xerl::Tools::FileIO $self = $_[0];
-    my $path = SECUREPATH( $self->get_path() );
+  my Xerl::Tools::FileIO $self = $_[0];
+  my $path = SECUREPATH( $self->get_path() );
 
-    unless ( -f $path ) {
-        Xerl::Main::Global::HTTP( 404, "Not found: $path" );
-        return -1;
-    }
+  unless ( -f $path ) {
+    Xerl::Main::Global::HTTP( 404, "Not found: $path" );
+    return -1;
+  }
 
-    open my $file, $path or Xerl::Main::Global::ERROR( $!, $path, caller() );
-    flock $file, 2;
+  open my $file, $path or Xerl::Main::Global::ERROR( $!, $path, caller() );
+  flock $file, 2;
 
-    my @slurp = <$file>;
+  my @slurp = <$file>;
 
-    flock $file, 3;
-    close $file;
+  flock $file, 3;
+  close $file;
 
-    $self->set_array( \@slurp );
+  $self->set_array( \@slurp );
 
-    return 0;
+  return 0;
 }
 
 sub exists($) {
-    my Xerl::Tools::FileIO $self = $_[0];
-    my $path = SECUREPATH( $self->get_path() );
+  my Xerl::Tools::FileIO $self = $_[0];
+  my $path = SECUREPATH( $self->get_path() );
 
-    return -e $path;
+  return -e $path;
 }
 
 sub fwrite($) {
-    my Xerl::Tools::FileIO $self = $_[0];
-    $self->_fwrite(0);
+  my Xerl::Tools::FileIO $self = $_[0];
+  $self->_fwrite(0);
 
-    return undef;
+  return undef;
 }
 
 sub fwriteappend($) {
-    my Xerl::Tools::FileIO $self = $_[0];
+  my Xerl::Tools::FileIO $self = $_[0];
 
-    $self->_fwrite(1);
+  $self->_fwrite(1);
 
-    return undef;
+  return undef;
 }
 
 sub _fwrite($;$) {
-    my Xerl::Tools::FileIO $self = $_[0];
-    my $append = $_[1];
-
-    my ( $path, $filename ) =
-      ( SECUREPATH( $self->get_path() ), SECUREPATH( $self->get_filename() ) );
-
-    my $path_ = '';
-    for ( split /\//, $path ) {
-        $path_ .= $_ . '/';
-        mkdir $path_
-          or Xerl::Main::Global::ERROR( $!, $path_, caller() )
-          unless -d $path_;
-    }
-
-    my $f;
-    if ( $append == 0 ) {
-        open $f, ">$path$filename"
-          or Xerl::Main::Global::ERROR( $!, $path . $filename, caller() );
-
-    }
-    else {
-        open $f, ">>$path$filename"
-          or Xerl::Main::Global::ERROR( $!, $path . $filename, caller() );
-    }
-
-    flock $f, 2;
-    print $f @{ $self->get_array() };
-    flock $f, 3;
-    close $f;
-
-    return undef;
+  my Xerl::Tools::FileIO $self = $_[0];
+  my $append = $_[1];
+
+  my ( $path, $filename ) =
+    ( SECUREPATH( $self->get_path() ), SECUREPATH( $self->get_filename() ) );
+
+  my $path_ = '';
+  for ( split /\//, $path ) {
+    $path_ .= $_ . '/';
+    mkdir $path_
+      or Xerl::Main::Global::ERROR( $!, $path_, caller() )
+      unless -d $path_;
+  }
+
+  my $f;
+  if ( $append == 0 ) {
+    open $f, ">$path$filename"
+      or Xerl::Main::Global::ERROR( $!, $path . $filename, caller() );
+
+  }
+  else {
+    open $f, ">>$path$filename"
+      or Xerl::Main::Global::ERROR( $!, $path . $filename, caller() );
+  }
+
+  flock $f, 2;
+  print $f @{ $self->get_array() };
+  flock $f, 3;
+  close $f;
+
+  return undef;
 }
 
 sub print($) {
-    my Xerl::Tools::FileIO $self = $_[0];
+  my Xerl::Tools::FileIO $self = $_[0];
 
-    print @{ $self->get_array() };
+  print @{ $self->get_array() };
 
-    return undef;
+  return undef;
 }
 
 sub reverse_array($) {
-    my Xerl::Tools::FileIO $self = $_[0];
+  my Xerl::Tools::FileIO $self = $_[0];
 
-    my @array = reverse @{ $self->get_array() };
-    $self->set_array( \@array );
+  my @array = reverse @{ $self->get_array() };
+  $self->set_array( \@array );
 
-    return undef;
+  return undef;
 }
 
 sub merge($$) {
-    my Xerl::Tools::FileIO( $self, $other ) = @_;
+  my Xerl::Tools::FileIO( $self, $other ) = @_;
 
-    my @merged = ( @{ $self->get_array() }, @{ $other->get_array() } );
-    my Xerl::Tools::FileIO $fio = Xerl::Tools::FileIO->new();
+  my @merged = ( @{ $self->get_array() }, @{ $other->get_array() } );
+  my Xerl::Tools::FileIO $fio = Xerl::Tools::FileIO->new();
 
-    $fio->set_array( \@merged );
-    return $fio;
+  $fio->set_array( \@merged );
+  return $fio;
 }
 
 sub shift($) {
-    my Xerl::Tools::FileIO $self = $_[0];
-    chomp( my $shift = shift @{ $self->get_array() } );
+  my Xerl::Tools::FileIO $self = $_[0];
+  chomp( my $shift = shift @{ $self->get_array() } );
 
-    return $shift;
+  return $shift;
 }
 
 sub pop($) {
-    my Xerl::Tools::FileIO $self = $_[0];
-    chomp( my $pop = pop @{ $self->get_array() } );
+  my Xerl::Tools::FileIO $self = $_[0];
+  chomp( my $pop = pop @{ $self->get_array() } );
 
-    return $pop;
+  return $pop;
 }
 
 use overload '+' => \&merge;
 
 sub SECUREPATH($) {
-    my $path = $_[0];
+  my $path = $_[0];
 
-    $path =~ s/\.\.+\/?//g;
+  $path =~ s/\.\.+\/?//g;
 
-    return $path;
+  return $path;
 }
 
 1;