view release on metacpan or  search on metacpan

t/02_dbi.t  view on Meta::CPAN

        plan skip_all => "DBD::SQLite isn't installed properly";
    } else {
        plan tests => 12;
    }

    use_ok 'AnyEvent';
    use_ok 'AnyEvent::ForkObject';
    use_ok 'AnyEvent::Tools', 'async_repeat';
}

sub rand_str();

our $tmp_dir = tempdir;
END { remove_tree $tmp_dir if $tmp_dir and -d $tmp_dir };

my $cv = condvar AnyEvent;
my $fo = new AnyEvent::ForkObject;

my $db_file = catfile $tmp_dir, 'db.sqlite';

my $dbh;

t/02_dbi.t  view on Meta::CPAN

            });

        };

    });
});

$cv->recv;


sub rand_str()
{
    my $letters = q!qwertyuiopasdfghjkl;'][zxcvbnm,./йцукенгшщзхъфывапролджэ!;
    my $str = '';
    $str .= substr $letters, int(rand length $letters), 1 for 0 .. 3 + rand 100;
    return $str;
}