File Coverage

blib/lib/Acme/Pi.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 2 0.0
total 24 26 92.3


line stmt bran cond sub pod time code
1 4     4   616673 use strict;
  4         9  
  4         171  
2 4     4   52 use warnings;
  4         9  
  4         294  
3             package Acme::Pi; # git description: v3.1415926-16-g35c9c3f
4             # vim: set ts=8 sts=2 sw=2 tw=100 et :
5             # ABSTRACT: Mmm, pie
6             # KEYWORDS: pi π
7              
8 4     4   649 use utf8;
  4         335  
  4         25  
9              
10             my $version = atan2(1,1) * 4; $Acme::Pi::VERSION = substr("$version", 0, 16);
11              
12 4     4   554 use Exporter 5.57 'import';
  4         99  
  4         392  
13             our @EXPORT = ('$π', '$𝝿', 'π', '𝝿');
14              
15 4     4   5832 use Math::BigFloat;
  4         452104  
  4         27  
16              
17 20     20 0 1331138 sub π () { Math::BigFloat->new(1)->batan2(1) * 4 }
18 3     3 0 8364 sub 𝝿 () { π }
19              
20             our $π = our $𝝿 = π;
21              
22             1;
23              
24             __END__