view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

	open( FH, "< $_[0]"  ) or die "open($_[0]): $!";
	my $string = do { local $/; <FH> };
	close FH or die "close($_[0]): $!";
	return $string;
}
END_OLD

sub _readperl {
	my $string = Module::Install::_read($_[0]);
	$string =~ s/(?:\015{1,2}\012|\015|\012)/\n/sg;
	$string =~ s/(\n)\n*__(?:DATA|END)__\b.*\z/$1/s;
	$string =~ s/\n\n=\w+.+?\n\n=cut\b.+?\n+/\n\n/sg;
	return $string;
}

sub _readpod {
	my $string = Module::Install::_read($_[0]);
	$string =~ s/(?:\015{1,2}\012|\015|\012)/\n/sg;
	return $string if $_[0] =~ /\.pod\z/;
	$string =~ s/(^|\n=cut\b.+?\n+)[^=\s].+?\n(\n=\w+|\z)/$1$2/sg;
	$string =~ s/\n*=pod\b[^\n]*\n+/\n\n/sg;

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

    shift;
    my $package = caller();
    no strict "refs";
    *{ $package . "::pi" } = \π
}

sub pi { 3 }

"Take that, subspace.";

__DATA__

=head1 Name 

Acme::Pi::Abrahamic - Pi as related by Abrahamic tradition.

=head1 Synopsis

 use Acme::Pi::Abrahamic;
 my $pi = pi();

t/testy-test.t  view on Meta::CPAN

{
    use integer;
    $blasphemers_pi += 0;
    cmp_ok( pi(), "==", $blasphemers_pi,
            "Perfection promotes understanding" );
}

done_testing();

__DATA__