This topic has been archived. It cannot be replied.
-
工作学习 / 专业技术讨论 / 那位PERL高手能给一个ATTRIBUTE INHERITANCE的例子， 谢！
-oasis(oasis);
2005-12-1
(#2638091@0)
-
up
-oasis(oasis);
2005-12-2
(#2639391@0)
-
"object oriented perl" is a good bookuse Parent;
package Parent::Child
BEGIN { @ISA = qw (Parent); }
sub new
{
my ($class) = shift;
my (%params) = @_;
my $self = Parent->new(@_);
$self->{'new_column'} = $params{'new_column'};
return ( bless ($self, $class) );
}
-ubs(ubs);
2005-12-2
{258}
(#2639666@0)