[prev in list] [next in list] [prev in thread] [next in thread] 

List:       kde-perl
Subject:    Re: [Kde-perl] PerlQt-3.006
From:       Stéphane Payrard <stef () payrard ! net>
Date:       2003-02-14 23:44:28
[Download RAW message or body]

> 
> One of the idioms I'd backtrack on given a choice:
> 
> use Qt::isa => use Qt::base
> 

Everyone has at least a creat() to be ashamed of. :)
But in this case, it is a semantical confusion.


This works for me by using this code for Qt/base.pm:

  package Qt::base;

  sub import {
    local $" = ", ";
    $caller  = (caller)[0];
    shift;
    @quoted  = map { "'$_'" } @_;
    eval  "package $caller; use Qt; use Qt::isa @quoted;"
  }

  *Qt::base = *Qt::isa; # to be on the safe side.
  1;
  

But that should be the other way around:
Qt::isa using Qt::base and printing a deprecation warning.

The choice to bactrack or not is yours. :)

--
 stef
_______________________________________________
Kde-perl mailing list
Kde-perl@mail.kde.org
http://mail.kde.org/mailman/listinfo/kde-perl
[prev in list] [next in list] [prev in thread] [next in thread]