Select Code to Download

sub trinary {
    my $a = 1;
...
    trinary => \&trinary,
    if_else => \&if_else,
});

sub if_else {
    my $a = 1;
    my $b = 0;
    return $a if $a > $b;
    return $b;
}