OOP Verständnisproblem! (gelöst) - #189487 (Allgemeines zu Perl)

Linuxer

2019-01-20 12:10

User since
2006-01-27
3875 Artikel
HausmeisterIn

user image

Was hast Du probiert? Was heisst "scheint nicht zu funktionieren"?

Der Aufruf einer Methode einer Klasse aus einer anderen Methode dieser Klasse heraus sollte problemlos klappen.

Code (perl): (dl )

#! /usr/bin/perl
use strict;
use warnings;
use 5.010;


package Foo;

sub new {
        my $class = shift;
        my $self = {};

        bless $self,ref($class)||$class;

        return $self;
}


sub foo {
        my $self = shift;

        say "I am foo() calling bar().";
        $self->bar();
}



sub bar {
        my $self = shift;

        say "I am bar().";
}



package main;


my $example = Foo->new();

$example->foo();

Resultat:

Code: (dl )

1
2

I am foo() calling bar().
I am bar().

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!