use Test::More 'no_plan';
use Test::Block qw( $Plan );

{   local $Plan = 1;
    # carry out one test
}

{   local $Plan = 3;
    # carry out our 3 tests
}