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

[mfinanz.git] / modules / override / YAML / Marshall.pm

diff --git a/modules/override/YAML/Marshall.pm b/modules/override/YAML/Marshall.pm
deleted file mode 100644 (file)
index 5985ece..0000000
--- a/modules/override/YAML/Marshall.pm
+++ /dev/null
@@ -1,77 +0,0 @@
-package YAML::Marshall;
-use strict; use warnings;
-use YAML::Node();
-
-sub import {
-    my $class = shift;
-    no strict 'refs';
-    my $package = caller;
-    unless (grep { $_ eq $class} @{$package . '::ISA'}) {
-        push @{$package . '::ISA'}, $class;
-    }
-
-    my $tag = shift;
-    if ($tag) {
-        no warnings 'once';
-        $YAML::TagClass->{$tag} = $package;
-        ${$package . "::YamlTag"} = $tag;
-    }
-}
-
-sub yaml_dump {
-    my $self = shift;
-    no strict 'refs';
-    my $tag = ${ref($self) . "::YamlTag"} || 'perl/' . ref($self);
-    $self->yaml_node($self, $tag);
-}
-
-sub yaml_load {
-    my ($class, $node) = @_;
-    if (my $ynode = $class->yaml_ynode($node)) {
-        $node = $ynode->{NODE};
-    }
-    bless $node, $class;
-}
-
-sub yaml_node {
-    shift;
-    YAML::Node->new(@_);
-}
-
-sub yaml_ynode {
-    shift;
-    YAML::Node::ynode(@_);
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-YAML::Marshall - YAML marshalling class you can mixin to your classes
-
-=head1 SYNOPSIS
-
-    package Bar;
-    use Foo -base;
-    use YAML::Marshall -mixin;
-
-=head1 DESCRIPTION
-
-For classes that want to handle their own YAML serialization.
-
-=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