> "Bee" == Bee <[EMAIL PROTECTED]> writes:
Bee> use test::Foo;
Please name your packages with an initial cap. Lowercase
are reserved for pragmas.
Bee> return bless $self;
You're still needlessly avoiding the two-arg bless, which means your
constructors cannot be inherited.
Bee> PS. I
# MAIN
use test::Foo;
my $x = new test::Foo ( 'SunSet', 'myID', 'myPassword' );
my $y = Clone($x);
my $z = $y -> Clone;
$y->{TEMPLATE} = 'SunRaise';
my $t = 'TEMPLATE';
print $$x{$t} . " " . $$y{$t} . " " . $$z{$t};
# test::Foo
package test::Foo;
use strict;
require Exporter; our @ISA = qw/
