Jak mit use strict

[Ondrej Koala Vacha]

Dobry den,

chci se optat jestli a kdyz ano, tak jak resite syntaktickou kontrolu pri
psani objektoveho modulu. Normalne to dela 'use strict', takze preklep
typu

my $i=0; $i1++;

az tak nehrozi.

U objektu je to jinak:

----
package n;

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

  my $typeglob = 0;
  $self->{'typeglob'} = \$typeglob;
  return bless $self, $class;
}

sub neco {
  my $self = shift;
 local *typeglog = $self->{'typeglob'};

 $self{'i'}=0;
 $self->{'i1'}++;

}

-------

at uz primo, nebo pres typeglob, zadna z promennych neni (a nemuze) by
'my' a tudiz kontrolovana 'use strict'. Neda se to nejak obejit?


s diky
--
Ondrej Koala Vacha