Select Code to Download

  foreach my $block ($self->get_blocks) {
      my %data = map { $_ => $block->$_ } qw/
        package
...
      END
      $self->_croak($@) if $@;
  }

  foreach my $block ($self->get_blocks) {
      package $block->package;
      eval {
...
      };
      $self->_croak($@) if $@;
  }