This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade bignum from version 0.41 to 0.42
[perl5.git] / cpan / bignum / t / option_p.t
index cdc4f43..6f57c92 100644 (file)
@@ -1,21 +1,20 @@
-#!/usr/bin/perl -w
+#!perl
 
 use strict;
+use warnings;
+
 use Test::More tests => 4;
 
-my @C = qw/Math::BigInt Math::BigFloat/;
+my @CLASSES = qw/Math::BigInt Math::BigFloat/;
 
 use bignum p => '12';
 
-foreach my $c (@C)
-  {
-  is ($c->precision(),12, "$c precision = 12");
-  }
-
-bignum->import( p => '42' );
+foreach my $class (@CLASSES) {
+    is($class->precision(), 12, "$class precision = 12");
+}
 
-foreach my $c (@C)
-  {
-  is ($c->precision(),42, "$c precision = 42");
-  }
+bignum->import(p => '42');
 
+foreach my $class (@CLASSES) {
+    is($class->precision(), 42, "$class precision = 42");
+}