Help for this page

Select Code to Download


  1. or download this
        if (AvARYLEN(thing)) {
      if (check_new(tv, AvARYLEN(thing))) {
        total_size += thing_size(AvARYLEN(thing), tv);
      }
    }
  2. or download this
    perl -MDevel::Peek -MDevel::Size=total_size -wle'
    my @a = qw( a b c );
...
    Dump(\@a,1);            # Shows magic
    print total_size \@a;   # 224
'
  3. or download this
    perl -MDevel::Peek -MDevel::Size=total_size -wle'
    my @a = qw( a b c );
...
    Dump(\@a,1);            # Shows magic
    print total_size \@a;   # 224
'