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