File: xrltest.pm

package info (click to toggle)
xraylib 4.0.0%2Bdfsg1-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 46,936 kB
  • sloc: ansic: 16,103; f90: 8,746; java: 6,766; python: 1,497; cpp: 1,305; pascal: 1,139; makefile: 809; ruby: 622; php: 594; perl: 573; cs: 193; sh: 125
file content (18 lines) | stat: -rw-r--r-- 222 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
use strict;
use warnings;

package xrltest;

sub almost_equal {
	my $actual = shift;
	my $expected = shift;
	my $threshold = 1E-6;
	if (@_) {
		$threshold = shift;
	}

	return abs($actual - $expected) < $threshold;
}


1;