noche, actualiza tablas eventos

lib/Dojo/Support.pm

@@ -2,7 +2,7 @@ package Dojo::Support;
 use strict;
 use warnings;
 use Exporter 'import';
-our @EXPORT = qw/ dmph merge_hash load_module /;
+our @EXPORT = qw/ log dmph merge_hash load_module get_names /;
 use Mojo::Base 'Mojolicious';
 
 use File::Basename;
@@ -11,9 +11,12 @@ use Path::Class;
 use Encode qw{ decode_utf8 };
 use Hash::Merge;
 use Dojo::Conf;
+use Mojo::Log;
 
-
-
+sub log{
+  my $log = Mojo::Log->new;
+  $log->debug(shift);
+}
 sub get_names{
   my $dir = shift;
   my @file_name;
@@ -28,9 +31,13 @@ sub get_names{
 };
 
 sub merge_hash{
-  my ($v,$w)=@_;
+  #my ($v,$w)=@_;
+  my $h={};
   my $merger = Hash::Merge->new('LEFT_PRECEDENT');
-  return $merger->merge( $v, $w );
+  foreach (@_){
+   $h= $merger->merge($h,$_);
+ }
+ return $h;
 }
 
 sub load_module{