use POSIX qw(strftime);
+use YAML;
+
my $data_dumper_available;
our $global_level;
}
}
+sub dump_yaml {
+ my ($self, $level, $name, $variable) = @_;
+
+ $self->message($level, "dumping ${name}:\n" . YAML::Dump($variable));
+}
+
sub enable_sub_tracing {
my ($self) = @_;
$self->{level} | TRACE;