Use Math::BigInt for describe_bytestring address display

[p5sagit/Devel-PeekPoke.git] / lib / Devel / PeekPoke / BigInt.pm

diff --git a/lib/Devel/PeekPoke/BigInt.pm b/lib/Devel/PeekPoke/BigInt.pm
new file mode 100644 (file)
index 0000000..a338e9c
--- /dev/null
+++ b/lib/Devel/PeekPoke/BigInt.pm
@@ -0,0 +1,11 @@
+package # hide from PAUSE
+  Devel::PeekPoke::BigInt;
+
+use strict;
+use warnings;
+
+use base 'Math::BigInt';
+
+sub as_unmarked_hex { substr ( shift->as_hex, 2 ) }
+
+1;