Spolecne promenne v objektech - moznosti (uvaha)

[Ondrej Koala Vacha]

On Fri, 3 Sep 2004, Frantisek Darena wrote:

> Co se mysli temi spolecnymi promennymi? Atributy objektu? Pokud jsou to
> jenom promenne, ktere nemaji byt viditelne navenek, muzou to byt lexikalne
> vymezene promenne deklarovane treba na zacatku toho baliku.

V nize uvedenm prikladu je ona spolecna promenna $self->{'all'} a
$self->{'pole'}. Jsou to promenne, ktere jsou k dispozici ve vsech
metodach onoho baliku.

>
> >
> > package x;
> > sub new {
> > 	my $class = shift;
> > 	my $self = {};
> > 	$self->{'all'} = 100;
> > 	$self->{'pole'} = (1,2,3,4);
> > 	bless $self, $class;
> > }
> > sub addtisk {
> > 	my $self = shift;
> > 	$self->{'all'}++;
> > 	print $self->{'all'},@{$self->{'pole'}};
> > }
> >
> >


--
Ondrej Koala Vacha