Beta Shell v2.0

File Manager

~ /usr/share/perl5/vendor_perl/Test/SharedFork

Name	Size	Perms	Modified	Actions
[ .. / .. ]
Array.pm	955 B	-rw-r--r--	2015-12-21 23:25:54	Edit Del
Scalar.pm	530 B	-rw-r--r--	2015-12-21 23:25:54	Edit Del
Store.pm	2.49 KB	-rw-r--r--	2015-12-21 23:25:54	Edit Del

Editing: Array.pm (955 B)

package Test::SharedFork::Array;
use strict;
use warnings;
use base 'Tie::Array';
use Storable ();

# create new tied array
sub TIEARRAY {
    my ($class, $share, $key) = @_;
    die "missing key" unless $key;
    my $self = bless { share => $share, key => $key }, $class;
    $self;
}


sub _get {
    my $self = shift;
    my $lock = $self->{share}->get_lock();
    return $self->{share}->get($self->{key});
}
sub FETCH {
    my ($self, $index) = @_;
    $self->_get()->[$index];
}
sub FETCHSIZE {
    my $self = shift;
    my $ary = $self->_get();
    scalar @$ary;
}

sub STORESIZE {
    my ($self, $size) = @_;
    my $lock = $self->{share}->get_lock();
    my $ary  = $self->_get();
    $#$ary   = $size - 1;
}

sub STORE {
    my ($self, $index, $val) = @_;

    my $lock = $self->{share}->get_lock();

    my $share = $self->{share};
    my $cur = $share->get($self->{key});
    $cur->[$index] = $val;
    $share->set($self->{key} => $cur);
}

1;