#!/usr/bin/perl
use strict;
use warnings;
use 5.010;

use Data::Dumper;
use Math::BigFloat;

use bignum;

{
    no bignum;
    require Math::BigFloat;
    my $one = Math::BigFloat->new('2');
    print Dumper($one);
    print Dumper("$one");
}

##</code><code>##

$VAR1 = bless( {
                 'value' => [
                              2
                            ],
                 'sign' => '+'
               }, 'Math::BigInt' );
$VAR1 = '2';

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use 5.010;

use Data::Dumper;
use Math::BigFloat;

#use bignum;

{
#    no bignum;
    require Math::BigFloat;
    my $one = Math::BigFloat->new('2');
    print Dumper($one);
    print Dumper("$one");
}

##</code><code>##

$VAR1 = bless( {
                 '_m' => [
                           2
                         ],
                 '_es' => '+',
                 '_e' => [
                           0
                         ],
                 'sign' => '+'
               }, 'Math::BigFloat' );
$VAR1 = '2';