File Coverage

blib/lib/ExtUtils/MakeMaker/JSONMETA.pm

Criterion	Covered	Total	%
statement	15	26	57.6
branch			n/a
condition			n/a
subroutine	5	8	62.5
pod			n/a
total	20	34	58.8

use strict;
use warnings;

package ExtUtils::MakeMaker::JSONMETA;
our $VERSION = '7.001';

use ExtUtils::MM_Any;
use JSON 2;

=head1 NAME

ExtUtils::MakeMaker::JSONMETA - (deprecated) write META.json instead of META.yml

=head1 SYNOPSIS

B  This library will soon be obsolete as EUMM moves to use the
official L JSON files.

In your Makefile.PL:

  use ExtUtils::MakeMaker;
  eval { require ExtUtils::MakeMaker::JSONMETA; };

  WriteMakefile(...);

If EU::MM::JSONMETA cannot be loaded (for example, because a user who is
installing your module does not have it or JSON installed), things will
continue as usual.  If it can be loaded, a META.json file will be produced,
containing JSON.

=cut

no warnings qw(once redefine);
my $orig_m_t = ExtUtils::MM_Any->can('metafile_target');
*ExtUtils::MM_Any::metafile_target = sub {
  my $self = shift;
  my $output = $self->$orig_m_t(@_);
  $output =~ s{META\.yml}{META.json}g;
  return $output;
};

*ExtUtils::MM_Any::metafile_file = sub {
  my ($self, %pairs) = @_;

  $pairs{generated_by} = join ' version ', __PACKAGE__, __PACKAGE__->VERSION;

  return JSON->new->ascii(1)->pretty->encode(\%pairs) . "\n";
};

my $orig_d_t = ExtUtils::MM_Any->can('distmeta_target');
*ExtUtils::MM_Any::distmeta_target = sub {
  my $self = shift;
  my $output = $self->$orig_d_t(@_);
  $output =~ s{META\.yml}{META.json}g;
  return $output;
};

=head1 SEE ALSO

L

=head1 AUTHOR AND COPYRIGHT

Copyright (C) 2009, Ricardo Signes, C

This is free software, distributed under the same terms as perl5.

=cut

1;