0 dkg@pip:~$ perl -MDevel::Peek  -e 'use Math::BigInt only => "GMP"; my $x = Math::BigInt->new(34); printf("%s\n", Dump($x));'
SV = RV(0x907fe54) at 0x907fe48
  REFCNT = 1
  FLAGS = (PADMY,ROK)
  RV = 0x9065818
  SV = PVHV(0x906ad24) at 0x9065818
    REFCNT = 1
    FLAGS = (OBJECT,OVERLOAD,SHAREKEYS)
    STASH = 0x90a0f30	"Math::BigInt"
    ARRAY = 0x90872d8  (0:6, 1:2)
    hash quality = 125.0%
    KEYS = 2
    FILL = 2
    MAX = 7
    RITER = -1
    EITER = 0x0
    Elt "value" HASH = 0x1e720953
    SV = RV(0x907fe24) at 0x907fe18
      REFCNT = 1
      FLAGS = (ROK)
      RV = 0x90656f8
      SV = PVMG(0x90e21a4) at 0x90656f8
        REFCNT = 1
        FLAGS = (OBJECT,RMG)
        IV = 0
        NV = 0
        PV = 0
        MAGIC = 0x9097ba0
          MG_VIRTUAL = 0xb781aea0
          MG_TYPE = PERL_MAGIC_ext(~)
          MG_FLAGS = 0x10
          MG_PTR = 0x9083500 ""
        STASH = 0x91ab538	"Math::BigInt::GMP"
    Elt "sign" HASH = 0xe7455c8f
    SV = PV(0x9063748) at 0x9065998
      REFCNT = 1
      FLAGS = (POK,pPOK)
      PV = 0x90833b0 "+"\0
      CUR = 1
      LEN = 4

0 dkg@pip:~$ 

##</code><code>##

0 dkg@pip:~$ perl -MDevel::Peek  -e 'use Math::GMP; my $x = Math::GMP->new(34); printf("%s\n", Dump($x));'
SV = RV(0x868ce44) at 0x868ce38
  REFCNT = 1
  FLAGS = (PADMY,ROK)
  RV = 0x8672998
  SV = PVMG(0x86cc918) at 0x8672998
    REFCNT = 1
    FLAGS = (OBJECT,IOK,OVERLOAD,pIOK)
    IV = 141099448
    NV = 0
    PV = 0
    STASH = 0x86adf00	"Math::GMP"

0 dkg@pip:~$