Select Code to Download

 sub func(){
  my ($self) = @_;
  foreach my $a (@b){}
  foreach my $a (keys %c){}
 }

 sub func(){
  my ($self) = @_;
...
  my %c = %{$self->{'_class_c'}}
  ...
 }