Select Code to Download

# My memory of the gist of what's in the book, a few hours after havin
+g looked it up:
my $thing = do {
...
    elsif ($cond2) { "Bar" }
    else           { "Baz" }
};

my $thing = do {
    ($cond1) ? "Foo" :
    ($cond2) ? "Bar" :
               "Baz";
};

my $thing = ($cond1) ? "Foo" : 
            ($cond2) ? "Bar" :
                       "Baz";

my $thing = do {
    my $rn = int(rand(6))+1;
...
    ($rn == 1) ? "Lousy Roll"        :
                 "Meh.";
};

sub agent {
    my $self = shift;
...
        return Agent->new($agent_args);
    };
}