X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=modules%2Foverride%2FYAML%2FMarshall.pm;h=14d378bed248a584aad059013589bda8e2f500ae;hb=cc77f3ed3e18afe4e0a28005fafe0c6521d6ea51;hp=5985ecea842c1046fa6a9e595dec28e29b3c3e3c;hpb=b179b8df8426376f1592c7fdc3e693ed564c2fc3;p=kivitendo-erp.git diff --git a/modules/override/YAML/Marshall.pm b/modules/override/YAML/Marshall.pm index 5985ecea8..14d378bed 100644 --- a/modules/override/YAML/Marshall.pm +++ b/modules/override/YAML/Marshall.pm @@ -1,6 +1,7 @@ -package YAML::Marshall; use strict; use warnings; -use YAML::Node(); +package YAML::Marshall; + +use YAML::Node (); sub import { my $class = shift; @@ -11,7 +12,7 @@ sub import { } my $tag = shift; - if ($tag) { + if ( $tag ) { no warnings 'once'; $YAML::TagClass->{$tag} = $package; ${$package . "::YamlTag"} = $tag; @@ -44,34 +45,3 @@ sub yaml_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 - -=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 - -=cut