WBRASWELL / RPerl-1.1 / lib / RPerl / DataStructure / LinkedList / Node.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50

              
package RPerl::DataStructure::LinkedList::Node;
use strict;
use warnings;
use RPerl::AfterSubclass;
our $VERSION = 0.001_000;
package RPerl::DataStructure::LinkedList::NodeReference;
#use parent qw(RPerl::DataStructure RPerl::DataType::Modifier::Reference);  # NEED UPGRADE: multiple inheritance
use parent qw(RPerl::DataType::Modifier::Reference);  # NEED UPGRADE: multiple inheritance
#use RPerl::DataStructure;
use RPerl::DataType::Modifier::Reference;
# must include here because we do not inherit data types
use RPerl::DataType::Integer;
use RPerl::DataType::String;
use RPerl::DataType::Unknown;
use RPerl::CodeBlock::Subroutine::Method;
our hashref $properties =
{
        data => my unknown $TYPED_data = undef,
        next => my RPerl::DataStructure::LinkedList::NodeReference $TYPED_next = undef
};
our string::method $DUMPER = sub {(my RPerl::DataStructure::LinkedList::NodeReference $node) = @_;
        my string $dumped = '[';
        my integer $is_first = 1;
         
        while (defined($node))
        {
                if ($is_first) { $is_first = 0; }
                else { $dumped .= ', '; }
                # TODO: handle non-scalartype linked list elements
                $dumped .= $node->{data};
                $node = $node->{next};
        }
         
        $dumped .= ']';
        return $dumped;
};
# ref to (linked list node)
# DEV NOTE: for naming conventions, see DEV NOTE in same code section of LinkedList.pm
package  # hide from PAUSE indexing
    linkedlistnoderef;
use parent qw(RPerl::DataStructure::LinkedList::NodeReference);
use RPerl::DataStructure::LinkedList::Node;
our $properties = $properties;
1;  # end of class