I confess.
But seriously, why would I be punished for such:
#!/usr/bin/perl
use strict;
use warnings;
use LinkedList::Single;
sub format_node_data {
my ($id, $name) = @{$_[0]};
"[id:$id, name:$name]";
}
sub LinkedList::Single::print {
my $list = (shift)->clone;
for ($list->head; $list->has_next; $list->next) {
print format_node_data($list->node_data), " -> ";
}
print format_node_data($list->node_data), "\n";
}
my $list = LinkedList::Single->new([1, 'foo'], [2, 'bar'], [3, 'baz'])
+;
$list->print;
__DATA__
[id:1, name:foo] -> [id:2, name:bar] -> [id:3, name:baz]
Greetings,
-jo
$gryYup$d0ylprbpriprrYpkJl2xyl~rzg??P~5lp2hyl0p$