Test2-Harness-UI

 view release on metacpan or  search on metacpan

t/HashBase.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
use strict;
 
 
 
sub warnings(&) {
    my $code = shift;
    my @warnings;
    local $SIG{__WARN__} = sub { push @warnings => @_ };
    $code->();
    return \@warnings;
}
 
sub exception(&) {
    my $code = shift;
    local ($@, $!, $SIG{__DIE__});
    my $ok = eval { $code->(); 1 };
    my $error = $@ || 'SQUASHED ERROR';
    return $ok ? undef : $error;
}
 
BEGIN {
    $INC{'Object/HashBase/Test/HBase.pm'} = __FILE__;



( run in 0.386 second using v1.01-cache-2.11-cpan-05444aca049 )