Select Code to Download

sub new {
    my $pkg    = shift;
...
    bless $self, $pkg;
}

sub new {
    my $pkg = shift;
...

    bless $self, $pkg;
}

sub new {
    my $pkg = shift;
...

    bless $self, $pkg;
}

sub eprint {
    my $self = shift;
...
        print "element: $show\n";
    }
}

$self->{$key} = $$entry;           # anchor reference in dictionary
$entry->eprint($key);              # just for debug purpose (WORKS)

    # remeber: value of the hash-element with
    # key $k1 is an Entry object
...
      &message("\t$meaning\n");
    }
    $ref->eprint($k1); # no chance :-(