Commit c700988eab993a2a7ac63231bf90e9000a8b10f0 - libdata-float-perl

+10

-1

Build.PL less more

31	31	},
32	32	dynamic_config => 0,
33	33	meta_add => { distribution_type => "module" },
34		create_makefile_pl => "passthrough",
	34	meta_merge => {
	35	"meta-spec" => { version => "2" },
	36	resources => {
	37	bugtracker => {
	38	mailto => "bug-Data-Float\@rt.cpan.org",
	39	web => "https://rt.cpan.org/Public/Dist/".
	40	"Display.html?Name=Data-Float",
	41	},
	42	},
	43	},
35	44	sign => 1,
36	45	)->create_build_script;
37	46

+9

-0

Changes less more

	0	version 0.013; 2017-07-29
	1
	2	* no longer include a Makefile.PL in the distribution
	3
	4	* in documentation, use four-column indentation for all verbatim
	5	material
	6
	7	* in META.{yml,json}, point to public bug tracker
	8
0	9	version 0.012; 2012-02-04
1	10
2	11	* include META.json in distribution

+0

-1

MANIFEST less more

3	3	MANIFEST
4	4	META.json
5	5	META.yml
6		Makefile.PL
7	6	README
8	7	lib/Data/Float.pm
9	8	t/class.t

+23

-18

META.json less more

3	3	"Andrew Main (Zefram) <zefram@fysh.org>"
4	4	],
5	5	"dynamic_config" : 0,
6		"generated_by" : "Module::Build version 0.38, CPAN::Meta::Converter version 2.112621",
	6	"generated_by" : "Module::Build version 0.4224",
7	7	"license" : [
8	8	"perl_5"
9	9	],
10	10	"meta-spec" : {
11	11	"url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
12		"version" : "2"
	12	"version" : 2
13	13	},
14	14	"name" : "Data-Float",
15	15	"prereqs" : {
16	16	"build" : {
17	17	"requires" : {
18		"Module::Build" : 0,
19		"Test::More" : 0,
	18	"Module::Build" : "0",
	19	"Test::More" : "0",
20	20	"perl" : "5.006",
21		"strict" : 0,
22		"warnings" : 0
	21	"strict" : "0",
	22	"warnings" : "0"
23	23	}
24	24	},
25	25	"configure" : {
26	26	"requires" : {
27		"Module::Build" : 0,
	27	"Module::Build" : "0",
28	28	"perl" : "5.006",
29		"strict" : 0,
30		"warnings" : 0
	29	"strict" : "0",
	30	"warnings" : "0"
31	31	}
32	32	},
33	33	"runtime" : {
34	34	"requires" : {
35		"Carp" : 0,
36		"Exporter" : 0,
37		"constant" : 0,
38		"integer" : 0,
39		"parent" : 0,
	35	"Carp" : "0",
	36	"Exporter" : "0",
	37	"constant" : "0",
	38	"integer" : "0",
	39	"parent" : "0",
40	40	"perl" : "5.006",
41		"strict" : 0,
42		"warnings" : 0
	41	"strict" : "0",
	42	"warnings" : "0"
43	43	}
44	44	}
45	45	},
46	46	"provides" : {
47	47	"Data::Float" : {
48	48	"file" : "lib/Data/Float.pm",
49		"version" : "0.012"
	49	"version" : "0.013"
50	50	}
51	51	},
52	52	"release_status" : "stable",
53	53	"resources" : {
	54	"bugtracker" : {
	55	"mailto" : "bug-Data-Float@rt.cpan.org",
	56	"web" : "https://rt.cpan.org/Public/Dist/Display.html?Name=Data-Float"
	57	},
54	58	"license" : [
55	59	"http://dev.perl.org/licenses/"
56	60	]
57	61	},
58		"version" : "0.012"
	62	"version" : "0.013",
	63	"x_serialization_backend" : "JSON::PP version 2.93"
59	64	}

+23

-21

META.yml less more

2	2	author:
3	3	- 'Andrew Main (Zefram) <zefram@fysh.org>'
4	4	build_requires:
5		Module::Build: 0
6		Test::More: 0
7		perl: 5.006
8		strict: 0
9		warnings: 0
	5	Module::Build: '0'
	6	Test::More: '0'
	7	perl: '5.006'
	8	strict: '0'
	9	warnings: '0'
10	10	configure_requires:
11		Module::Build: 0
12		perl: 5.006
13		strict: 0
14		warnings: 0
	11	Module::Build: '0'
	12	perl: '5.006'
	13	strict: '0'
	14	warnings: '0'
15	15	dynamic_config: 0
16		generated_by: 'Module::Build version 0.38, CPAN::Meta::Converter version 2.112621'
	16	generated_by: 'Module::Build version 0.4224, CPAN::Meta::Converter version 2.150010'
17	17	license: perl
18	18	meta-spec:
19	19	url: http://module-build.sourceforge.net/META-spec-v1.4.html
20		version: 1.4
	20	version: '1.4'
21	21	name: Data-Float
22	22	provides:
23	23	Data::Float:
24	24	file: lib/Data/Float.pm
25		version: 0.012
	25	version: '0.013'
26	26	requires:
27		Carp: 0
28		Exporter: 0
29		constant: 0
30		integer: 0
31		parent: 0
32		perl: 5.006
33		strict: 0
34		warnings: 0
	27	Carp: '0'
	28	Exporter: '0'
	29	constant: '0'
	30	integer: '0'
	31	parent: '0'
	32	perl: '5.006'
	33	strict: '0'
	34	warnings: '0'
35	35	resources:
	36	bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=Data-Float
36	37	license: http://dev.perl.org/licenses/
37		version: 0.012
	38	version: '0.013'
	39	x_serialization_backend: 'CPAN::Meta::YAML version 0.012'

+0

-35

~~Makefile.PL~~ less more

0		# Note: this file was auto-generated by Module::Build::Compat version 0.3800
1		require 5.006;
2
3		unless (eval "use Module::Build::Compat 0.02; 1" ) {
4		print "This module requires Module::Build to install itself.\n";
5
6		require ExtUtils::MakeMaker;
7		my $yn = ExtUtils::MakeMaker::prompt
8		(' Install Module::Build now from CPAN?', 'y');
9
10		unless ($yn =~ /^y/i) {
11		die " *** Cannot install without Module::Build. Exiting ...\n";
12		}
13
14		require Cwd;
15		require File::Spec;
16		require CPAN;
17
18		# Save this 'cause CPAN will chdir all over the place.
19		my $cwd = Cwd::cwd();
20
21		CPAN::Shell->install('Module::Build::Compat');
22		CPAN::Shell->expand("Module", "Module::Build::Compat")->uptodate
23		or die "Couldn't install Module::Build, giving up.\n";
24
25		chdir $cwd or die "Cannot chdir() back to $cwd: $!";
26		}
27		eval "use Module::Build::Compat 0.02; 1" or die $@;
28
29		Module::Build::Compat->run_build_pl(args => \@ARGV);
30		my $build_script = 'Build';
31		$build_script .= '.com' if $^O eq 'VMS';
32		exit(0) unless(-e $build_script); # cpantesters convention
33		require Module::Build;
34		Module::Build::Compat->write_makefile(build_class => 'Module::Build');

+1

-1

README less more

22	22
23	23	COPYRIGHT
24	24
25		Copyright (C) 2006, 2007, 2008, 2010, 2012
	25	Copyright (C) 2006, 2007, 2008, 2010, 2012, 2017
26	26	Andrew Main (Zefram) <zefram@fysh.org>
27	27
28	28	LICENSE

+12

-13

SIGNATURE less more

0	0	This file contains message digests of all files listed in MANIFEST,
1		signed via the Module::Signature module, version 0.68.
	1	signed via the Module::Signature module, version 0.81.
2	2
3	3	To verify the content in this distribution, first make sure you have
4	4	Module::Signature installed, then type:

14	14	Hash: SHA1
15	15
16	16	SHA1 67ab6441ac84593b05be87ec425194d069a51a4f .gitignore
17		SHA1 22c0b8256338e7f077f6311527c006ca9acfc75b Build.PL
18		SHA1 ca759dce347033b09e9ae85304e9afa352f97e6b Changes
19		SHA1 739118525532c8ff18c2f9ec7a929501d610088a MANIFEST
20		SHA1 c842f45a8761f35bb77ce7cff3e1bde66826d4c2 META.json
21		SHA1 83ade225100dc05a2d06033c44cd317609f97efb META.yml
22		SHA1 a4df8e97ccd390a42212af5a9f4d0986c85e7a5f Makefile.PL
23		SHA1 6f2a34c998a573556ecc84049f01bc1deb30d860 README
24		SHA1 f3398878f29a6e567c17b98caa25ffa15c857033 lib/Data/Float.pm
	17	SHA1 51038d8df8e8a4aa29c0b5462db2a554079dd1d4 Build.PL
	18	SHA1 083de6c6b8b9b82eabc05f87708086791c66d14a Changes
	19	SHA1 efa3ba002e530881eb04ceb66df34f8d5151e6ee MANIFEST
	20	SHA1 3d9fb5d89a73d9dd7dd9ce83e05d6b9f58e8b274 META.json
	21	SHA1 093974afafda5e5df08e79ecdf9f553c7d8864d5 META.yml
	22	SHA1 0e70e74666ed9702cbce0899ed0a2e759c532b0c README
	23	SHA1 7d2f83d9e82cc04b8f03716373f6e4f963da5079 lib/Data/Float.pm
25	24	SHA1 1108747d9aec62d4eadd34403fa59f1c54df153f t/class.t
26	25	SHA1 eba7f4eeb285767f6546eebdca9cd07011b4dd51 t/const.t
27	26	SHA1 a4ee7a6b431b6e5ee3872ff2dba90663c28148d7 t/copysign.t

33	32	SHA1 65c75abdef6f01a5d1588a307f2ddfe2333dc961 t/pod_syn.t
34	33	SHA1 3369ba662006149c6e5a089e6f2a440367f6df64 t/pow2.t
35	34	-----BEGIN PGP SIGNATURE-----
36		Version: GnuPG v1.4.10 (GNU/Linux)
	35	Version: GnuPG v1
37	36
38		iEYEARECAAYFAk8tRHMACgkQOV9mt2VyAVHh0QCfTJyr4UoKGJNnpJBYoNRMt0st
39		0DsAniDJ01nBya7tjOZrcDPqJ9zv5ynU
40		=rIt7
	37	iEYEARECAAYFAll85HQACgkQOV9mt2VyAVG57wCfWtVZY5fr+Sm2iKataje2u6s8
	38	HsIAoJaNsFJB2s+xS3UlCJdqvXRe103v
	39	=fbmx
41	40	-----END PGP SIGNATURE-----

+48

-51

lib/Data/Float.pm less more

3	3
4	4	=head1 SYNOPSIS
5	5
6		use Data::Float qw(have_signed_zero);
7
8		if(have_signed_zero) { ...
9
10		# and many other constants; see text
11
12		use Data::Float qw(
13		float_class float_is_normal float_is_subnormal
14		float_is_nzfinite float_is_zero float_is_finite
15		float_is_infinite float_is_nan
16		);
17
18		$class = float_class($value);
19
20		if(float_is_normal($value)) { ...
21		if(float_is_subnormal($value)) { ...
22		if(float_is_nzfinite($value)) { ...
23		if(float_is_zero($value)) { ...
24		if(float_is_finite($value)) { ...
25		if(float_is_infinite($value)) { ...
26		if(float_is_nan($value)) { ...
27
28		use Data::Float qw(float_sign signbit float_parts);
29
30		$sign = float_sign($value);
31		$sign_bit = signbit($value);
32		($sign, $exponent, $significand) = float_parts($value);
33
34		use Data::Float qw(float_hex hex_float);
35
36		print float_hex($value);
37		$value = hex_float($string);
38
39		use Data::Float qw(float_id_cmp totalorder);
40
41		@sorted_floats = sort { float_id_cmp($a, $b) } @floats;
42		if(totalorder($a, $b)) { ...
43
44		use Data::Float qw(
45		pow2 mult_pow2 copysign
46		nextup nextdown nextafter
47		);
48
49		$x = pow2($exp);
50		$x = mult_pow2($value, $exp);
51		$x = copysign($magnitude, $sign_from);
52		$x = nextup($x);
53		$x = nextdown($x);
54		$x = nextafter($x, $direction);
	6	use Data::Float qw(have_signed_zero);
	7
	8	if(have_signed_zero) { ...
	9
	10	# and many other constants; see text
	11
	12	use Data::Float qw(
	13	float_class float_is_normal float_is_subnormal
	14	float_is_nzfinite float_is_zero float_is_finite
	15	float_is_infinite float_is_nan);
	16
	17	$class = float_class($value);
	18
	19	if(float_is_normal($value)) { ...
	20	if(float_is_subnormal($value)) { ...
	21	if(float_is_nzfinite($value)) { ...
	22	if(float_is_zero($value)) { ...
	23	if(float_is_finite($value)) { ...
	24	if(float_is_infinite($value)) { ...
	25	if(float_is_nan($value)) { ...
	26
	27	use Data::Float qw(float_sign signbit float_parts);
	28
	29	$sign = float_sign($value);
	30	$sign_bit = signbit($value);
	31	($sign, $exponent, $significand) = float_parts($value);
	32
	33	use Data::Float qw(float_hex hex_float);
	34
	35	print float_hex($value);
	36	$value = hex_float($string);
	37
	38	use Data::Float qw(float_id_cmp totalorder);
	39
	40	@sorted_floats = sort { float_id_cmp($a, $b) } @floats;
	41	if(totalorder($a, $b)) { ...
	42
	43	use Data::Float qw(
	44	pow2 mult_pow2 copysign nextup nextdown nextafter);
	45
	46	$x = pow2($exp);
	47	$x = mult_pow2($value, $exp);
	48	$x = copysign($magnitude, $sign_from);
	49	$x = nextup($x);
	50	$x = nextdown($x);
	51	$x = nextafter($x, $direction);
55	52
56	53	=head1 DESCRIPTION
57	54

177	174
178	175	use Carp qw(croak);
179	176
180		our $VERSION = "0.012";
	177	our $VERSION = "0.013";
181	178
182	179	use parent "Exporter";
183	180	our @EXPORT_OK = qw(

1384	1381
1385	1382	=head1 COPYRIGHT
1386	1383
1387		Copyright (C) 2006, 2007, 2008, 2010, 2012
	1384	Copyright (C) 2006, 2007, 2008, 2010, 2012, 2017
1388	1385	Andrew Main (Zefram) <zefram@fysh.org>
1389	1386
1390	1387	=head1 LICENSE