Merge branch 'b-3.6.1' of ../kivitendo-erp_20220811

[mfinanz.git] / modules / override / YAML / Dumper / Base.pm

diff --git a/modules/override/YAML/Dumper/Base.pm b/modules/override/YAML/Dumper/Base.pm
deleted file mode 100644 (file)
index 8e4de0c..0000000
--- a/modules/override/YAML/Dumper/Base.pm
+++ /dev/null
@@ -1,137 +0,0 @@
-package YAML::Dumper::Base;
-use strict; use warnings;
-use YAML::Base; use base 'YAML::Base';
-use YAML::Node;
-
-# YAML Dumping options
-field spec_version => '1.0';
-field indent_width => 2;
-field use_header => 1;
-field use_version => 0;
-field sort_keys => 1;
-field anchor_prefix => '';
-field dump_code => 0;
-field use_block => 0;
-field use_fold => 0;
-field compress_series => 1;
-field inline_series => 0;
-field use_aliases => 1;
-field purity => 0;
-field stringify => 0;
-
-# Properties
-field stream => '';
-field document => 0;
-field transferred => {};
-field id_refcnt => {};
-field id_anchor => {};
-field anchor => 1;
-field level => 0;
-field offset => [];
-field headless => 0;
-field blessed_map => {};
-
-# Global Options are an idea taken from Data::Dumper. Really they are just
-# sugar on top of real OO properties. They make the simple Dump/Load API
-# easy to configure.
-sub set_global_options {
-    my $self = shift;
-    $self->spec_version($YAML::SpecVersion)
-      if defined $YAML::SpecVersion;
-    $self->indent_width($YAML::Indent)
-      if defined $YAML::Indent;
-    $self->use_header($YAML::UseHeader)
-      if defined $YAML::UseHeader;
-    $self->use_version($YAML::UseVersion)
-      if defined $YAML::UseVersion;
-    $self->sort_keys($YAML::SortKeys)
-      if defined $YAML::SortKeys;
-    $self->anchor_prefix($YAML::AnchorPrefix)
-      if defined $YAML::AnchorPrefix;
-    $self->dump_code($YAML::DumpCode || $YAML::UseCode)
-      if defined $YAML::DumpCode or defined $YAML::UseCode;
-    $self->use_block($YAML::UseBlock)
-      if defined $YAML::UseBlock;
-    $self->use_fold($YAML::UseFold)
-      if defined $YAML::UseFold;
-    $self->compress_series($YAML::CompressSeries)
-      if defined $YAML::CompressSeries;
-    $self->inline_series($YAML::InlineSeries)
-      if defined $YAML::InlineSeries;
-    $self->use_aliases($YAML::UseAliases)
-      if defined $YAML::UseAliases;
-    $self->purity($YAML::Purity)
-      if defined $YAML::Purity;
-    $self->stringify($YAML::Stringify)
-      if defined $YAML::Stringify;
-}
-
-sub dump {
-    my $self = shift;
-    $self->die('dump() not implemented in this class.');
-}
-
-sub blessed {
-    my $self = shift;
-    my ($ref) = @_;
-    $ref = \$_[0] unless ref $ref;
-    my (undef, undef, $node_id) = YAML::Base->node_info($ref);
-    $self->{blessed_map}->{$node_id};
-}
-    
-sub bless {
-    my $self = shift;
-    my ($ref, $blessing) = @_;
-    my $ynode;
-    $ref = \$_[0] unless ref $ref;
-    my (undef, undef, $node_id) = YAML::Base->node_info($ref);
-    if (not defined $blessing) {
-        $ynode = YAML::Node->new($ref);
-    }
-    elsif (ref $blessing) {
-        $self->die() unless ynode($blessing);
-        $ynode = $blessing;
-    }
-    else {
-        no strict 'refs';
-        my $transfer = $blessing . "::yaml_dump";
-        $self->die() unless defined &{$transfer};
-        $ynode = &{$transfer}($ref);
-        $self->die() unless ynode($ynode);
-    }
-    $self->{blessed_map}->{$node_id} = $ynode;
-    my $object = ynode($ynode) or $self->die();
-    return $object;
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-YAML::Dumper::Base - Base class for YAML Dumper classes
-
-=head1 SYNOPSIS
-
-    package YAML::Dumper::Something;
-    use YAML::Dumper::Base -base;
-
-=head1 DESCRIPTION
-
-YAML::Dumper::Base is a base class for creating YAML dumper classes.
-
-=head1 AUTHOR
-
-Ingy döt Net <ingy@cpan.org>
-
-=head1 COPYRIGHT
-
-Copyright (c) 2006. Ingy döt Net. All rights reserved.
-
-This program is free software; you can redistribute it and/or modify it
-under the same terms as Perl itself.
-
-See L<http://www.perl.com/perl/misc/Artistic.html>
-
-=cut