Select Code to Download

use Data::Dumper;
print Dumper {
...
    optimized => $self->b(),
    direct    => $self->c(),
};

$VAR1 = {
          'direct' => 123,
          'normal' => 123,
          'optimized' => 123
        };