/ - Diff - projekt kivitendo - wissen

« Zurück | Weiter »

Revision 0bf192cd

Data::Dumper immer via 'use' und nicht 'require' einbinden

Ist schließlich ein Core-Modul.

     use constant FILE_TARGET   => 0;
     use constant STDERR_TARGET => 1;
     use Data::Dumper;
     use POSIX qw(strftime getppid);
     use Time::HiRes qw(gettimeofday tv_interval);
     use YAML;
     use strict;
     my ($data_dumper_available, $text_diff_available);
     my ($text_diff_available);
     our $global_level;
     our $watch_form;
     our $global_level = NONE();
     our $watch_form   = 0;
     our $file_name;
     BEGIN {
       eval("use Data::Dumper");
       $data_dumper_available = $@ ? 0 : 1;
       $global_level      = NONE;
       $watch_form        = 0;
+    }
     sub new {
       my $type = shift;
       my $self = {};
-...
     sub dump {
       my ($self, $level, $name, $variable, %options) = @_;
       if ($data_dumper_available) {
         my $password;
         if ($variable && ('Form' eq ref $variable) && defined $variable->{password}) {
           $password             = $variable->{password};
-...
+        }
         return $output;
       } else {
         $self->message($level,
                        "dumping ${name}: Data::Dumper not available; "
                          . "variable cannot be dumped");
         return undef;
+      }
+    }
     sub dump_yaml {

     use base qw( Template::Plugin );
     use Template::Plugin;
     use Data::Dumper;
     use List::MoreUtils qw(apply);
     use List::Util qw(max);
     use Scalar::Util qw(blessed);
-...
     sub dump {
       my $self = shift;
       require Data::Dumper;
       return '<pre>' . Data::Dumper::Dumper(@_) . '</pre>';
+    }

Auch abrufbar als: Unified diff