Data-Edit-Xml-Reuse

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

  dist_author           => 'philiprbrenan@gmail.com',
  license               => 'perl',
  module_name           => 'Data::Edit::Xml::Reuse',
  perl                  => '5.26',
  requires              => {
     Carp               => 0,
    'Data::Dump'        => 0,
    'Data::Edit::Xml'                => 20200218,
    'Data::Edit::Xml::Xref'          => 20200424,
    'Data::Table::Text'              => 20200418,
    'Dita::GB::Standard'             => 20190911,
    'Test::More'        => 0,
    'Test2::API'        => 0,
     utf8               => 0,
   },
 );

$b->create_build_script();

META.json  view on Meta::CPAN

            "Module::Build" : "0.4224"
         }
      },
      "runtime" : {
         "requires" : {
            "Carp" : "0",
            "Data::Dump" : "0",
            "Data::Edit::Xml" : "20200218",
            "Data::Edit::Xml::Xref" : "20200424",
            "Data::Table::Text" : "20200418",
            "Dita::GB::Standard" : "20190911",
            "Test2::API" : "0",
            "Test::More" : "0",
            "utf8" : "0"
         }
      }
   },
   "provides" : {
      "Data::Edit::Xml::Reuse" : {
         "file" : "lib/Data/Edit/Xml/Reuse.pm",
         "version" : "20200503"

META.yml  view on Meta::CPAN

provides:
  Data::Edit::Xml::Reuse:
    file: lib/Data/Edit/Xml/Reuse.pm
    version: '20200503'
requires:
  Carp: '0'
  Data::Dump: '0'
  Data::Edit::Xml: '20200218'
  Data::Edit::Xml::Xref: '20200424'
  Data::Table::Text: '20200418'
  Dita::GB::Standard: '20190911'
  Test2::API: '0'
  Test::More: '0'
  utf8: '0'
resources:
  license: http://dev.perl.org/licenses/
version: '20200503'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

lib/Data/Edit/Xml/Reuse.pm  view on Meta::CPAN

package Data::Edit::Xml::Reuse;
our $VERSION = 20200503;
use v5.26;
use warnings FATAL => qw(all);
use strict;
use Carp qw(confess cluck);
use Data::Dump qw(dump);
use Data::Edit::Xml;
use Data::Edit::Xml::Xref;
use Data::Table::Text qw(:all);
use Dita::GB::Standard;
use Storable qw(store retrieve);
use Time::HiRes qw(time);
use utf8;

#D1 Reuse Xml                                                                   # Reuse Xml via Dita conrefs.

sub newReuse(%)                                                                 #P Create a new cross reuser.
 {my (%attributes) = @_;                                                        # Attributes

  my $reuse = genHash(__PACKAGE__,                                              # Attributes used by the reuser.