Only in B-Size-0.09-my/: Makefile
Only in B-Size-0.09-my/: Size.bs
Only in B-Size-0.09-my/: Size.c
Only in B-Size-0.09-my/: Size.o
Only in B-Size-0.09-my/: blib
diff -ru B-Size-0.09/lib/B/TerseSize.pm B-Size-0.09-my/lib/B/TerseSize.pm
--- B-Size-0.09/lib/B/TerseSize.pm	2006-12-02 15:54:36.000000000 +0300
+++ B-Size-0.09-my/lib/B/TerseSize.pm	2009-07-29 14:00:14.000000000 +0400
@@ -10,6 +10,7 @@
 use strict;
 use constant IS_MODPERL => $ENV{MOD_PERL};
 use constant MP2        => $ENV{MOD_PERL_API_VERSION} == 2 ? 1 : 0;
+use constant HAS_DEVEL_SIZE => do { local $@; eval { require Devel::Size; 1; } };
 
 use B ();
 use B::Asmdata qw(@specialsv_name);
@@ -114,9 +115,14 @@
             next unless $ref;
             my $obj = B::svref_2object($ref);
             next if ref($obj) eq 'B::NULL';
+
             my $tsize = $obj->size;
             $total_opsize += $tsize;
-            $retval{"*${_}{$type}"} = {'size' => $tsize};
+            my $res = { size => $tsize };
+            if ( HAS_DEVEL_SIZE ) {
+                $res->{'total_size'} = Devel::Size::total_size( $ref );
+            }
+            $retval{"*${_}{$type}"} = $res;
         }
 
         next unless defined $has_code;
Only in B-Size-0.09-my/: memory_usage.pl
Only in B-Size-0.09-my/: pm_to_blib