Fixed parrot_nqp -> parrot-nqp in Makefile.in
[kakapo:kakapo.git] / src / LimitedPair.nqp
1 # Copyright (C) 2009, Austin Hastings. See accompanying LICENSE file, or 
2 # http://www.opensource.org/licenses/artistic-license-2.0.php for license.
3
4 module LimitedPair;
5 =module
6 Provides very basic Pair functionality.
7
8 DEPRECATED. Don't use this. Don't inherit from it. Pretend it doesn't exist.
9
10 But it's part of the startup code, so it's not going away. :(
11
12 =end
13
14 Class::SUBCLASS('LimitedPair', 'Class::ArrayBased');
15
16 method init(@args, %opts) {
17         unless Opcode::get_integer(self) {
18                 Opcode::set_integer(self, 2);
19         }
20
21         if +@args { self.key(@args.shift); }
22         if +@args { self.value(@args.shift); }
23 }
24
25 method key(*@value)                     { self._ATTR(0, @value); }
26 method value(*@value)                   { self._ATTR(1, @value); }