Select Code to Download

my $result = $obj->processor_1->processor_2($argument)->processor_3;

#!/usr/bin/perl
use List::Util qw(min max);
...
                   'count' => 7
                 }
               ], 'main' );

my @chain = qw(min_max count sort_inline esrever);
my ($result) = map { $obj->$_ } @chain;