Acme-Pi

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "class" : "Dist::Zilla::Plugin::License",
            "name" : "@Author::ETHER/License",
            "version" : "6.032"
         },
         {
            "class" : "Dist::Zilla::Plugin::GenerateFile::FromShareDir",
            "config" : {
               "Dist::Zilla::Plugin::GenerateFile::FromShareDir" : {
                  "destination_filename" : "CONTRIBUTING",
                  "dist" : "Dist-Zilla-PluginBundle-Author-ETHER",
                  "encoding" : "UTF-8",
                  "has_xs" : 0,
                  "location" : "build",
                  "source_filename" : "CONTRIBUTING"
               },
               "Dist::Zilla::Role::RepoFileInjector" : {
                  "allow_overwrite" : 1,
                  "repo_root" : ".",
                  "version" : "0.009"
               }
            },

META.yml  view on Meta::CPAN

    -
      class: Dist::Zilla::Plugin::License
      name: '@Author::ETHER/License'
      version: '6.032'
    -
      class: Dist::Zilla::Plugin::GenerateFile::FromShareDir
      config:
        Dist::Zilla::Plugin::GenerateFile::FromShareDir:
          destination_filename: CONTRIBUTING
          dist: Dist-Zilla-PluginBundle-Author-ETHER
          encoding: UTF-8
          has_xs: 0
          location: build
          source_filename: CONTRIBUTING
        Dist::Zilla::Role::RepoFileInjector:
          allow_overwrite: 1
          repo_root: .
          version: '0.009'
      name: '@Author::ETHER/generate CONTRIBUTING'
      version: '0.015'
    -

lib/Acme/Pi.pm  view on Meta::CPAN

sub 𝝿 () { π }

our $π = our $𝝿 = π;

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Acme::Pi - Mmm, pie

=head1 VERSION

version 3.14159265358979

=head1 SYNOPSIS

t/02-import.t  view on Meta::CPAN

use strict;
use warnings;

use open ':std', ':encoding(UTF-8)'; # force stdin, stdout, stderr into utf8
use Test::More 0.88;
use utf8;
use Acme::Pi;

ok(defined($Ï€), 'we have a defined $Ï€');
ok(defined($𝝿), 'we have a defined $𝝿');
ok(defined(π), 'we have a defined π sub');
ok(defined(𝝿), 'we have a defined 𝝿 sub');

ok((3.14 < $Ï€) && ($Ï€ < 3.15), '$Ï€ is between 3.14 and 3.15');

t/04-bignum.t  view on Meta::CPAN

use strict;
use warnings;

use open ':std', ':encoding(UTF-8)'; # force stdin, stdout, stderr into utf8
use Test::More 0.88;
use utf8;
use Acme::Pi;

my $original_length = length(atan2(1,1) * 4);

my $length = length(Ï€);
ok($length > 20, 'Ï€ has many digits of precision ('.$length.')');
ok($length > $original_length, '...which is more digits than the previous version of π ('.$original_length.')');

xt/release/changes_has_content.t  view on Meta::CPAN

use Test::More tests => 2;

note 'Checking Changes';
my $changes_file = 'Changes';
my $newver = '3.14159265';
my $trial_token = '-TRIAL';
my $encoding = 'UTF-8';

SKIP: {
    ok(-e $changes_file, "$changes_file file exists")
        or skip 'Changes is missing', 1;

    ok(_get_changes($newver), "$changes_file has content for $newver");
}

done_testing;