view release on metacpan or  search on metacpan

lib/IPC/Shareable/SharedMem.pm  view on Meta::CPAN

40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
    };
 
    my $sh = {
        _id    => $id,
        _key   => $key,
        _size  => $size,
        _flags => $flags,
        _type  => $type,
    };
 
    return bless $sh => $class;
}
sub id {
    my $self = shift;
 
    $self->{_id} = shift if @_;
    return $self->{_id};
}
sub key {
    my $self = shift;