Calling oo sub within an oo package?

[wallythewhale]

Is it okay to do this?

package CC;
...
my $CC = new $CC;

sub new {...
sub add {
my ($self,$file) = @_;
...
sub proc {
my ($self,$file) = @_;
if (!$file) {
my $ret = CC->add($file); }
...

 

[Kirsle]

The subroutines can call on other OO methods within its own object with $self

my $ret = $self->add ($file);

If you called it as CC->add ($file), then in the add sub, $self = "CC" and $file is the file. $self->add, then $self is a reference to the active object and not just the name of the package.

my $CC = new $CC;

Not valid because $CC (the one being used) doesn't have a value.

$CC = new CC;

As far as I know, this should work just fine.