# Convert.pm: Generic Conversions package Convert::Common::Convert; # $Id: Convert.pm,v 1.5 2013/11/22 11:38:33 RDA Exp $ # ARCS: $Header: /home/cvs/cvs/RDA_8/src/scripting/lib/Convert/Common/Convert.pm,v 1.5 2013/11/22 11:38:33 RDA Exp $ # # Change History # 20131021 MSC Make code more strict. =head1 NAME Convert::Common::Convert - Generic Conversions =head1 SYNOPSIS require Convert::Common::Convert; =head1 DESCRIPTION This package is regroups generic conversion methods. It is only provided as plugin example and is thus incomplete by nature. The following methods are available: =cut use strict; BEGIN { use Exporter; use RDA::Text qw(get_string); use RDA::Driver::Convert; } # Define the global public variables use vars qw($STRINGS $VERSION @ISA %PLUGIN); $VERSION = sprintf('%d.%02d', q$Revision: 1.5 $ =~ /(\d+)\.(\d+)/); @ISA = qw(Exporter); %PLUGIN = ( cnv => [{fct => \&RDA::Driver::Convert::merge_block, nam => 'XML merge', rnk => 1, sel => \&RDA::Driver::Convert::sel_function, typ => 'X', }, ], typ => {'stat' => 'S', 'xml' => 'X', }, ); # Define the global private constants # Define the global private variables # Report the package version sub Version { return $VERSION; } 1; __END__ =head1 SEE ALSO L, L, L, L =head1 COPYRIGHT NOTICE Copyright (c) 2002, 2016, Oracle and/or its affiliates. All rights reserved. =head1 TRADEMARK NOTICE Oracle and Java are registered trademarks of Oracle and/or its affiliates. Other names may be trademarks of their respective owners. =cut