view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

---
abstract: 'Bind Perl data structures into XML'
author:
  - 'Neil Kirsopp <cpan@pneumatoscopic.net>'
build_requires:
  Test::Mock::Simple: '0'
  Test::More: '0'
configure_requires:
  ExtUtils::MakeMaker: '0'
dynamic_config: 0
generated_by: 'Dist::Zilla version 5.032, CPAN::Meta::Converter version 2.143240'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: xml-binddata

Makefile.PL  view on Meta::CPAN

    "ExtUtils::MakeMaker" => 0
  },
  "DISTNAME" => "xml-binddata",
  "EXE_FILES" => [],
  "LICENSE" => "perl",
  "NAME" => "xml::binddata",
  "PREREQ_PM" => {
    "XML::LibXML" => 0
  },
  "TEST_REQUIRES" => {
    "Test::Mock::Simple" => 0,
    "Test::More" => 0
  },
  "VERSION" => "0.3.1",
  "test" => {
    "TESTS" => "t/*.t"
  }
);


my %FallbackPrereqs = (
  "ExtUtils::MakeMaker" => 0,
  "Test::Mock::Simple" => 0,
  "Test::More" => 0,
  "XML::LibXML" => 0
);


unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
  delete $WriteMakefileArgs{TEST_REQUIRES};
  delete $WriteMakefileArgs{BUILD_REQUIRES};
  $WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs;
}

t/each_off_by_one.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More;
use Test::Mock::Simple;

use_ok 'XML::BindData';

my $counter = 0;
my $mock = Test::Mock::Simple->new(module => 'XML::BindData');
$mock->add('_get' => sub { $counter++; return []; });

is(
	XML::BindData->bind(
		'<foo><bar tmpl-each="bar" tmpl-bind="this"/></foo>',
		{ bar => [ ] }
	),
	'<foo></foo>'
);
is($counter, 1, 'Terminated correctly after each');