I have a small inheritance hierarchy in the same file, but how come B can't seen to see A?
Thanks!
I keep getting:
Can't locate object method "new" via package "B" at ./example line 7.
#!/usr/bin/perl use strict; use warnings; require B; my $a = B->new(); package A; use strict; use warnings; sub new { my ($class, %args) = @_; my $self = bless { }, ref($class) || $class; return $self; } 1; package B; use strict; use warnings; require A; @B::ISA = qw(A); sub _init { my ($self, %args) = @_; $self->{_title} = $args{title} || undef; } 1;
In reply to Inheritance in the same file by yoda54
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |