Select Code to Download

package Foo::Live;

...
    my $self = shift;
    $self->{iterator}->next;
};

my $foo = Foo::Live->new;
while (my $subfoo = $foo->next) { print "$subfoo\n" };

$o->foo unless eval { $foo->bar };

eval { $foo->bar };
$o->foo if $@;