package bar; use foo; sub new { my($type) = $_[0]; my($self) = {}; $self->{'new'} = 1; #error reporting and update vars $self->{error_type} = undef; $self->{error_string} = undef; bless($self, $type); return( $self ); } sub generate_form() { my $self = shift; my $foo = Foo->new; print $foo->do_something( "bunny" ); }
In reply to Objects in Objects by Angel
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |