UUID

 view release on metacpan or  search on metacpan

t/5persist/bare.t  view on Meta::CPAN

#
use strict;
use warnings;
use MyTest;
use Try::Tiny;

require UUID;

ok 1, 'loaded';

sub t (&) {
    local $SIG{__WARN__} = sub {};
    my $t = shift;
    my ($rv, $err);
    $rv = try { $t->() } catch { $err = $_; undef };
    return $rv, $err;
}

my ($rv,$er) = t{ UUID->import(':persist') };
is $rv, undef,       'persist seems to die';
like $er, qr/error/, 'persist dies';

t/5persist/boot.t  view on Meta::CPAN

use strict;
use warnings;
use MyTest;
use File::Spec ();
use Try::Tiny;

require UUID;

ok 1, 'loaded';

sub t (&) {
    my $t = shift;
    my ($rv, $err);
    $rv = try { $t->() }
        catch { $err = $_; undef };
    return $rv, $err;
}

my ($rv, $er);
my $FILE = __FILE__;
$FILE =~ s/\\/\\\\/g; # windows!

t/5persist/fork-after.t  view on Meta::CPAN

    1 while unlink $fn0;
    rmdir $tmpdir;
}

sub err ($) {
    my $msg = shift;
    cleanup();
    die $msg;
}

sub t (&) {
    my $t = shift;
    my ($rv, $err);
    $rv = try { $t->() }
        catch { $err = $_; undef };
    return $rv, $err;
}

{
    my $fpath = '/some/random/path';

t/5persist/fork-before.t  view on Meta::CPAN

    1 while unlink $tmp;
    rmdir $tmpdir;
}

sub err ($) {
    my $msg = shift;
    cleanup();
    die $msg;
}

sub t (&) {
    my $t = shift;
    my ($rv, $err);
    $rv = try { $t->() }
        catch { $err = $_; undef };
    return $rv, $err;
}

{
    my $fpath = '/some/random/path';

t/5persist/fork-child.t  view on Meta::CPAN

    1 while unlink $fn0;
    rmdir $tmpdir;
}

sub err ($) {
    my $msg = shift;
    cleanup();
    die $msg;
}

sub t (&) {
    my $t = shift;
    my ($rv, $err);
    $rv = try { $t->() }
        catch { $err = $_; undef };
    return $rv, $err;
}

{
    my $fpath = '/some/random/path';

t/5persist/fork-sibling.t  view on Meta::CPAN

    1 while unlink $fn1;
    rmdir $tmpdir;
}

sub err ($) {
    my $msg = shift;
    cleanup();
    die $msg;
}

sub t (&) {
    my $t = shift;
    my ($rv, $err);
    $rv = try { $t->() }
        catch { $err = $_; undef };
    return $rv, $err;
}

{
    my $fpath = '/some/random/path';

t/5persist/path.t  view on Meta::CPAN

BEGIN {
    # use a number here. does it see a PV?
    @OPTS = ':persist=8675309';
    ok 1, 'began';
}

use UUID @OPTS;

ok 1, 'loaded';

sub t (&) {
    my $t = shift;
    my ($rv, $err);
    $rv = try { $t->() }
        catch { $err = $_; undef };
    return $rv, $err;
}

my ($rv,$er) = t{ UUID::_persist() };
is $rv, 8675309, 'path seems correct';
is $er, undef,   'path correct';

t/5persist/threads.t  view on Meta::CPAN

    ok 1, 'began';
}

use UUID @OPTS;

ok 1, 'loaded';

my $cnt = 0;
share($cnt);

sub t (&) {
    my $t = shift;
    my ($rv, $err);
    $rv = try { $t->() } catch { $err = $_; undef };
    return $rv, $err;
}

sub doit {
    note 'in doit()';
    my $c; { lock $cnt; $c = ++$cnt }
    note "c: $c";