view release on metacpan or  search on metacpan

t/01_pso_oo.t  view on Meta::CPAN

    my $sum;

    $sum += ($_ - $offset++)**2 for @values;
    return $sum;
}


sub mustDie {
    my ($test, $name) = @_;

    eval $test;
    ok (defined $@, $name);
}