package ClassicObject;
sub new {
my ($class, %args) = @_;
bless \%args, 'ClassicObject';
}
sub connect { 'a' }
1;
package ClassicObject;
sub new {
my ($class, %args) = @_;
bless \%args, 'ClassicObject';
}
sub connect { 'a' }
1;