Bencode

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      "build" : {},
      "configure" : {},
      "runtime" : {
         "requires" : {
            "Exporter::Tidy" : "0",
            "perl" : "5.006"
         }
      },
      "test" : {
         "requires" : {
            "Test::Differences" : "0",
            "Test::More" : "0"
         }
      }
   },
   "release_status" : "stable",
   "resources" : {
      "bugtracker" : {
         "web" : "https://rt.cpan.org/Public/Dist/Display.html?Name=Bencode"
      },
      "license" : [

META.yml  view on Meta::CPAN

---
abstract: 'BitTorrent serialisation format'
author:
  - 'Aristotle Pagaltzis <pagaltzis@gmx.de>'
build_requires:
  Test::Differences: '0'
  Test::More: '0'
dynamic_config: 0
generated_by: 'ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version 2.150010'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: Bencode
no_index:
  directory:

Makefile.PL  view on Meta::CPAN

	dynamic_config => 0,
	prereqs => {
		runtime => {
			requires => {qw(
				perl 5.006
				Exporter::Tidy 0
			)},
		},
		test => {
			requires => {qw(
				Test::Differences 0
				Test::More 0
			)},
		},
	},
);

sub MY::postamble { -f 'META.yml' ? return : <<'' }
create_distdir : MANIFEST
distdir        : MANIFEST
MANIFEST :

t/01-bdecode.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 62;
use Test::Differences;
use Bencode 'bdecode';

sub un {
	my ( $frozen ) = @_;
	local $, = ', ';
	return 'ARRAY' eq ref $frozen
		? ( "decode [@$frozen]", bdecode @$frozen )
		: ( "decode '$frozen'",  bdecode  $frozen );
}