G'day...
> > : Should I be using "my" or "our" here for the variables - these
> > : are the variables I want present in all my derived classes and
> > : should be the same for all.
>
> I assume you're referring to things like
> %InheritableClassData... You should be using "our" variables;
> "my
On Wed, Nov 17, 2004 at 11:00:17AM -0500, Dave Gray wrote:
> Charles K. Clarkson <[EMAIL PROTECTED]> wrote:
> > [snip]
> > : : foreach my $method ( keys %InheritableClassData ) {
> > : : no strict 'refs';
> > : : *$method = sub {
> > : : shift;
> > : : $InheritableClassData{
Charles K. Clarkson <[EMAIL PROTECTED]> wrote:
> [snip]
> : : foreach my $method ( keys %InheritableClassData ) {
> : : no strict 'refs';
> : : *$method = sub {
> : : shift;
> : : $InheritableClassData{$_} = shift if @_;
> : : return $InheritableClassData{$_};
> : :
Michael Kraus <[EMAIL PROTECTED]> wrote:
: What I was trying to achieve with this:
:
: --START--
: our %InheritableClassData = (
: DBH => undef,
: Q => undef,
: Handler => undef,
: );
:
: foreach (qq(DBH Q Handler)) {
: sub $_ {
: shift;
: $InheritableClassData{$_} = shift if @
]
Subject: Spam:Re: Autmatic function creation
Michael Kraus wrote:
> Just wondering if this code snippet will behave as expected, and if
> not then why not? :)
>
> --START--
> our %InheritableClassData = (
> DBH => undef,
> Q => undef,
> Handle
Sent: Wednesday, 17 November 2004 5:30 PM
To: [EMAIL PROTECTED]
Subject: Spam:RE: Autmatic function creation
Michael Kraus <[EMAIL PROTECTED]> wrote:
: Just wondering if this code snippet will behave as expected,
: and if not then why not? :)
No, I don't think so. One error is in u
Michael Kraus <[EMAIL PROTECTED]> wrote:
: Just wondering if this code snippet will behave as expected,
: and if not then why not? :)
No, I don't think so. One error is in using the qq()
operator instead of the qw() operator. Even with that fix,
perl throws syntax errors.
: --START--
: our
Michael Kraus wrote:
Just wondering if this code snippet will behave as expected, and if not
then why not? :)
--START--
our %InheritableClassData = (
DBH => undef,
Q => undef,
Handler => undef,
);
foreach (qq(DBH Q Handler)) {
sub $_ {
shift;
$Inherita
Just wondering if this code snippet will behave as expected, and if not
then why not? :)
--START--
our %InheritableClassData = (
DBH => undef,
Q => undef,
Handler => undef,
);
foreach (qq(DBH Q Handler)) {
sub $_ {
shift;
$Inherita
