446: return scalar(@{$self->{_data}});

##</code><code>##

use IPC::Shareable (':lock');

my @arr;
my %options = ( 
                 create => 'yes',
                 mode => 0644,
                 exclusive => 0,
                 destroy => 'yes'
               );  
my $handle = tie @arr, 'IPC::Shareable', 'dat1', { %options } or die "Tie failed.\n";

@arr = (); # INITIALIZE <-----------

if (@arr) {
        print "NOT empty\n";
}