[...]
sub explode {
my $self = shift;
print Dumper [$self->get()];
}
package main;
my $object = new TestClass;
$object->set(qw (Hello World outside));
print $object->explode();
exit;
Rufe explode ohne print auf... Das print machst Du ja schon in der Sub...
@peddn: siehe perldoc -f print
print gibt eine Liste von Strings aus, wenn eine Liste übergeben wird... @list1 ist diese Liste von Strings, die Du print übergibst...
Und das andere kannst Du so vielleicht nachvollziehen:
my @array = (1, 2, 4);
my $anz = @array;
print $anz,"\n";