Select Code to Download

use Test::More tests => 100;

...

lives_ok { $o->bar(42) } 'can set foo';
is( $o->bar, 42, 'foo set' );

use Test::More 'no_plan';

...
    lives_ok { $o->bar(42) } 'can set foo';
    is( $o->bar, 42, 'foo set' );
}

SKIP: {
    ok(1);
...
    skip "skip tests", 1 if $bar;
    ok(3);
};

SKIP: {
    my $b = Test::Block->expecting(4);
...
    ok(3);
    ok(4);
};

plan tests => @foo + keys %bar + (3*$ni);

{
    my $b = Test::Block->expecting(scalar(@foo));
...
    my $b = Test::Block->expecting(3 * $ni);
    # $ni tests
}