Help for this page

Select Code to Download


  1. or download this
    $cache={
  'package'=>{
...

  },
};
  2. or download this
    218   for my $block(@blocks) {
219 
...
223     push @header,$header[-1]+length $block;
224 
225   }
  3. or download this
    229   unshift @header,int(@header);
230 
...
234   );
235 
236   print {$FH} $header.$body;