# print out all of the actors my $c = Var->new; actor($c, sub {print $c->value, " is an actor\n"} ); # is ella an actress eval {actress("ella", sub {Success->throw})}; print $@ ? "ella is an actress" : "ella is not an actress", "\n";