1package Array::RefElem; 2 3use strict; 4use vars qw(@ISA @EXPORT_OK $VERSION); 5 6require Exporter; 7require DynaLoader; 8@ISA = qw(Exporter DynaLoader); 9@EXPORT_OK = qw(av_store av_push hv_store); 10 11$VERSION = '1.00'; 12 13Array::RefElem->bootstrap($VERSION); 14 151; 16 17__END__ 18 19=head1 NAME 20 21Array::RefElem - Set up array elements as aliases 22 23=head1 SYNOPSIS 24 25 use Array::RefElem qw(av_store av_push hv_store); 26 27 av_store(@a, 1, $a); 28 av_push(@a, $a); 29 hv_store(%h, $key, $a); 30 31=head1 DESCRIPTION 32 33This module gives direct access to some of the internal Perl routines 34that let you store things in arrays and hashes. The following 35functions are available: 36 37=over 38 39=item av_store(@array, $index, $value) 40 41Stores $value in @array at the specified $index. After executing this call, 42$array[$index] and $value denote the same thing. 43 44=item av_push(@array, $value) 45 46Pushes $value onto the @array. After executing this call, $array[-1] and $value 47denote the same thing. 48 49=item hv_store(%hash, $key, $value); 50 51Stores $value in the %hash with the given $key. After executing this call, 52$hash{$key} and $value denote the same thing. 53 54=back 55 56=head1 SEE ALSO 57 58L<perlguts> 59 60=head1 COPYRIGHT 61 62Copyright 2000 Gisle Aas. 63 64This library is free software; you can redistribute it and/or 65modify it under the same terms as Perl itself. 66 67=cut 68