Jak mit use strict

[Honza Pazdziora]

On Fri, Oct 24, 2003 at 09:18:30AM +0200, Ondrej Koala Vacha wrote:
> 
> chci se optat jestli a kdyz ano, tak jak resite syntaktickou kontrolu pri
> psani objektoveho modulu. Normalne to dela 'use strict', takze preklep
> typu

[...]

> ----
> 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?

A proc pouzivate typeglob? Proc nepouzivate normalni reference,
pripadne pokud potrebujete treba filehandle nebo socket, tak pres
objekty? Typegloby nee.

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
 .project: Perl, mod_perl, DBI, Oracle, auth. WWW servers, XML/XSL, ...
		Only self-confident people can be simple.